Guten Tag
Vorerst, ich bin ein VBA Anfänger. Das meisste vom Code habe ich aus anderen Foren.
Ich möchte gerne beim öffnen der Accessdatenbank, dass automatisch alle Excel im Verzeichnis importiert und in die Tabelle eingefügt werden.
Kann mir bitte jemand weiter helfen?
Hier mein aktueller Stand:
Option Compare Database
Private Sub funktionstart()
Pfad1 = "C:\Users\u28458\Documents\"
name1 = Dir(Pfad1, vbDirectory)
Do While name1 <> ""
If name1 <> "." And name1 <> ".." Then
If (GetAttr(Pfad1 & name1) And vbDirectory) = vbNormal Then
If Right(name1, 3) = "xls, xlsx" Then
Call importfunktion
End If
MsgBox "update done"
Debug.Print name1
End If
End If
name1 = Dir
Loop
End Sub
Sub importfunktion()
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, Tabelle2, filename, True
End Sub
Besten Dank
Gruss
|