Hent data fra Excel og ind i Access

Kan sende et eksempel. Blot læg din e-mail.

Hejsa mugs - tak for tilbudet, men jeg ser helst at alle for glæde af din viden!
så paste gerne eksemplet her :-)

Hvis du går gennem spørgsmålene i Access-kategorien vil du se, at det er normalt atr sende filer med eksempler. Alle der beder om en kopi får den. Jeg har så sent som for ca. 10 min siden sendt en fil på et spørgsmål, der er ca 1 år gammel. Så alle får del i forslaget. Men her er den:

'Slår Access systemmeddelelser fra. Husk altid at sdlå dem til igen, ellers forbliver de slået
'fra i hele applikationen
DoCmd.SetWarnings False
'Sletter alle data i importtabellen
'DoCmd.OpenQuery "Sletimport"
'Import-kommandoen. Her hedder tabellen "Import", du kan vælge et andet navn og hvis tabellen ikke
'eksisterer bliver den oprettet. Husk på, at de øvrige kommandoer reagerer på tabelnavnet "Import"
DoCmd.TransferSpreadsheet acImport, 0, "Import", "D:\VBA\XP\Mappe1", True, ""
'Meddelelsesbox der fortæller, at den ønskede funktion er udført
MsgBox "Importen er udført."
'Slår Access systemmeddelerser til
DoCmd.SetWarnings True

Du skal lave en reference til Excel i Acccess

Efter din import, kan du køre nogle opdateringsforespørgsler med kriterier, dr sender data fra importtabellen over i de respektive tabeller.

Eller køre en SQL som f.eks:

DoCmd.RunSQL "INSERT INTO Tabel1 SELECT Tabel2.felt2,felt1,dato FROM Tabel2 Where Tabel2.dato < #2003-01-01#"

1) Ok. sålænge folk ikke blive irriteret over ikke at "se" filen er det ok med mig.

2) kodestumpen : Was ist das ? Jeg kan ikke helt se hvad jeg skal med det kode.

3) referencer i Access. Så er Databasen vil kun 'komplet' hvis excel filerne 'eksisterer' ?  (det dur ikke)

1. Det gør de normalt ikke, for de kan jo blot bede om eksemplet selv.
2. "Kodestumpen" er din importfunktion fra Excel.
3. Det er heller ikke nødvendigt med en reference for at importere. Mit eksempel indeholder flere funktioner til dataudveksling mellem Access / Excel, så derfor her jeg en reference til Excel. Det er et must at Excel-filerne eksisterer, hvorfor importere hvis filen ikke eksisterer? Det kan evt. laves med en fejlhåndteringsrutine i stil med:

On Error Goto Errorhandler
Importkode
Errorhandler:
If Errno = et eller andet Then
MsgBox "Filen eksisterer ikke."
Exit Sub
End If

?

Jeg løste det på en nemmere måde. Excell <--> Access var ikke særlig godt.

Løsning. Jeg lavede en export i Excell til .txt fil.  Denne vil hentede jeg så ind
og så lavede alm. sql insert .. vupti.

Men takker for jeres svar.