Avatar billede fobian Nybegynder
02. oktober 2002 - 09:12 Der 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.

Er der nogen, som kan hjæpe med det?
Avatar billede terry Ekspert
02. oktober 2002 - 09:14 #1
it sounds like youw ant to export FROM Excel, so I suggest you look at Excel's export functions.
Avatar billede terry Ekspert
02. oktober 2002 - 09:17 #2
you can start by looking at Excel HELP for EXPORT
Avatar billede katborg Praktikant
02. oktober 2002 - 09:24 #3
Har du prøvet at markere tabellen i Excel - Ctrl+C, herefter åbne access vælge Objekter "Tabeller" og Ctrl+V
Avatar billede katborg Praktikant
02. oktober 2002 - 09:25 #4
havde ikke lige læst 3. afstit
Avatar billede katborg Praktikant
02. oktober 2002 - 09:25 #5
afstit = afsnit
Avatar billede fynbohans Nybegynder
02. oktober 2002 - 11:57 #6
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.
Avatar billede fynbohans Nybegynder
02. oktober 2002 - 11:58 #7
Access2000 skal være Excel2000
Avatar billede terry Ekspert
04. oktober 2002 - 10:50 #8
fobian, how aboput making some comments!
Avatar billede fobian Nybegynder
04. oktober 2002 - 10:52 #9
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

cmd.CommandText = "INSERT INTO Tabel1(Kontonr, Måned, Saldo) Values('" & Kt & "','" & Md & "','" & Sl & "');"

cmd.Execute
Next


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
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester