importer data fra excel til access tabel

Det kan sagtens lade sig gøre. Prøv ar lave en makro og brug handlingen Overfør regneark.

tjaaa....der er bare nogle forudsætninger, som skal være opfyldt først.

Du skal kende stien til Excel-filen

Nedenstående kode importere til tabellen "Tabelnavn" fra stien "C:\DinFil.xls"
docmd.TransferSpreadsheet acImport,acSpreadsheetTypeExcel9,"tabelnavn","C:\DinFil.xls",True

I VBA vil det se sådan ud:

DoCmd.TransferSpreadsheet acImport, 0, "Import", "STI OG NAVN PÅ REGNEARK", True, ""

Der skal dog lidt mere til, når du vil importere forskellige regneark.

JAmen mugs det er forskelligt hvilke regnark der skal ind - Så jeg kan ikke angive stien på forhånd!!

DET SKAL DU. På een eller anden måder er du nødt til at fortælle Access hvilken fil der skal importeres. en database er dum, den skal have det hele at vide, også stien til dit regneark!

der er ingen vej udenom. Stien skal angives. Du kan evt. benytte denne kode, der giver dig lejlighed til at indtaste stien i en inputbox:

Dim a As String
a = InputBox(Prompt:="Indtast stien til Excel-arket.", Title:="Hvor ligger Excel-filen?", Default:="")
DoCmd.SetWarnings False
DoCmd.TransferSpreadsheet acImport, 0, "Import", a, True, ""

Nu spørger jeg nok dum - skal der ikke angives til hvilken tabel den skal importeres?? - Og koden kan jeg bare sætte den ind i en kommandoknap

Tabellen hedder "Import". Jeg er lige ved at tro, at Access opretter den selv, hvis den ikke findes. Men prøv blot at indsætte koden i en kommandoknap, og se hvad der sker.

Hvis tabellen ikke findes bliver den oprettet.

hmm den skriver en fejl der hedder søgenøglen blev ikke fundet - Jg skal importere et en excel fil til en tabel der hedder liste 1

Måske jeg skulle vælge den neme løsning du gav og lave en makro

DoCmd.TransferSpreadsheet acImport, 0, "import", a, True, ""


Det er i denne fejlen melder sig

Må jeg se din VBA-sætning.

Private Sub Etiket183_Click()
Dim a As String
a = InputBox(Prompt:="Indtast stien til Excel-arket.", title:="Hvor ligger Excel-filen?", Default:="")
DoCmd.SetWarnings False
DoCmd.TransferSpreadsheet acImport, 0, "import", a, True, ""
End Sub

Du dkriver, at du vil importere til en tabel der hedder liste 1, men i din VBA hedder tabellen "import". Det hænger ikke sammen. Kontroller om du har en tabel der hedder import.

Jeg har indsat din kode i en testdb, og koden fungerer perfekt.

jeh har prøvet både med liste 1 og import ingen af delene virker

hmm mystisk - nok bare mig der klummere i det

Jeg kan sende din min testdb. Blot læg din e-mail

kan det være måden jeg skriver placeringen/ stien på

Jeg har ikke oplevet fejlen med søgenøgle før. Men det er da tænkeligt at du ikke har stavet filnavnet korrekt. Prøv at finde din Excel-fil med stifinderen og kopier stien, og sørg for at filnevnet er rigtig stavet.

det har jeg prøvet - her har du min mail - BittenNielsen69@hotmail.com - JEg får først kigget på det imorgen tidlig på job!!

Sendt.

Og er kommet tilbage igen. Mail er sendt til brugeren der bedes undersøge, om det er muligt at modtage zippede filer eller evt. manglende plads i mailboxen.

Den sidst tilsendte mail er også kommet retur. Nu ved jeg snart ikke hvad jeg skal gøre.