indlæs en excel til en tabel

Jeg har en lille testdb hjemme. Kan sende den når jeg kommer hjem fra arbejde. Blot læg din e-mail.

Fandt koden et andet sted:

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, ""
MsgBox "Importen er udført."

Data kommer nu ind i en tabel der hedder "Import". Du kan så lave en dataoverførsel til den rigtige tabel med en tilføjelsesforespørgsel og herefter slette "import-tabellen".
Eller du kan rette tabelnavnet "Import" i koden til navnet på din aktuelle tabel.

jhg@aarhus-taxa.dk

Husk at du i inputboksen's Default, kan indtaste et Default-drev / mappe,  hvis filerne altid ligger samme sted.

Sendt.