02. oktober 2002 - 09:12Der er
8 kommentarer og 1 løsning
Tilføje data i Access tabel fra Excel
Er det muligt at tilføje data til en access97 tabel fra Excel97.
Jeg søger en løsning, hvor det er muligt at blive stående i Excel97 og derfra vælge et område i excel, som skal tilføjes en eksisterende tabel i Access97.
Jeg kender muligheden for at importere data og have en tabel med link til et område i Excel når man er i Access97, men jeg skal kunne styre det fra Excel uden at skulle ind i Access97.
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
Du kan kan gøre det med ODBC i VBA. F.eks. ved klik på en knap i Excel. Start med at kigge i Visual Basic Help f.eks. under OpenDataBase. Har ikke Access97 her. I Access2000 ligger det under Funktioner/Makro/ Visual Basic Editor.
Tak for svarene. Fynbohans fik mig på rette vej og jeg har nu fundet ud af det. Jeg har indsat koden til orientering og hvis der er nogen, som har forslag til forbededringer er de meget velkommen. :-) ErrHandler er slået fra, da jeg ikke lige kunne få den til at virke i Excel97, men den virker i Excel2000. /Fobian
Option Explicit Private DBConnection As ADODB.Connection
Sub TilføjTilTabel() 'On Error GoTo ErrHandler
Set DBConnection = New ADODB.Connection DBConnection.Provider = "Microsoft.Jet.OLEDB.4.0;" DBConnection.Mode = adModeReadWrite DBConnection.Open "Data Source =c:\jekdb.mdb" Dim cmd As New ADODB.Command DBConnection.BeginTrans cmd.ActiveConnection = DBConnection cmd.CommandType = adCmdText
Dim i As Integer Dim Kt As Variant Dim Md As Variant Dim Sl As Variant
ThisWorkbook.Worksheets("ark1").Activate For i = 2 To 11 Kt = Range("a" & i).Value Md = Range("b" & i).Value Sl = Range("c" & i).Value
DBConnection.CommitTrans DBConnection.Close MsgBox "Data er nu overført til Access tabel" Exit Sub
'ErrHandler: 'DBConnection.RollbackTrans 'MsgBox "Data kan ikke overføres. Det kan skyldes, at der findes poster med samme primærnøgle i tabellen i forvejen" 'Err.Raise Err.Number
End Sub
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.