Office: (Office 2013) Import Exceltabelle

golochim · 1. Dezember 2020

Hallo,

ich habe eine Datenbank, in der Daten aus der Exceltabelle importiert werden. Dazu habe ich mir ein Modul geschrieben, mit dem ich eine Datei importieren kann:
Code:

Option Compare Database

Private Sub importExcelData()

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12Xml, _
"AV", "C:UsersDocumentsVertreibscontrollingNeueQuellenAbverkaufNOV20.xlsx", True, "D1!"

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12Xml, _
"AV", "C:UsersDocumentsVertreibscontrollingNeueQuellenAbverkaufNOV20.xlsx", True, "D2!"

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12Xml, _
"AV", "C:UsersDocumentsVertreibscontrollingNeueQuellenAbverkaufNOV20.xlsx", True, "D3!"

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12Xml, _
"AV", "C:UsersDocumentsVertreibscontrollingNeueQuellenAbverkaufNOV20.xlsx", True, "D4!"

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12Xml, _
"AV", "C:UsersDocumentsVertreibscontrollingNeueQuellenAbverkaufNOV20.xlsx", True, "H1!"

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12Xml, _
"AV", "C:UsersDocumentsVertreibscontrollingNeueQuellenAbverkaufNOV20.xlsx", True, "K1!"

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12Xml, _
"AV", "C:UsersDocumentsVertreibscontrollingNeueQuellenAbverkaufNOV20.xlsx", True, "S1!"

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12Xml, _
"AV", "C:UsersDocumentsVertreibscontrollingNeueQuellenAbverkaufNOV20.xlsx", True, "KS!"

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12Xml, _
"AV", "C:UsersDocumentsVertreibscontrollingNeueQuellenAbverkaufNOV20.xlsx", True, "So!"

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Jetzt möchte ich aber, dass alle Dateien aus einem bestimmten Ordner importiert werden. Auch Dateien, die neu dazu kommen. Der Aufbau der Dateien ist immer gleich. Der Name der Datei bezieht sich immer auf den Monat und Jahr (z.B. NOV20). Wenn ein Monat abgeschlossen wird, wird eine neue Datei erstellt. Diese Dateien werden auch Täglich aktualisiert und müssen dann in Access importiert werden. Jede Datei besteht auch noch aus 9 Tabellenblättern, die auch gleiche Struktur und gleiche Bezeichnung haben (siehe Code) haben.

Könnte man das Problem mit einer Schleife lösen?? Leider fehlt mir das Wissen dazu!!! Könnte mir jemand hier helfen?

Vielen Dank und Schöne Grüße

Jojo

:)

Steffen0815 · 2. Dezember 2020

Hallo,
du möchtest alle Excelmappen (inklusive aller Blätter) eines Verzeichnisses importieren?

Dann versuche etwas in der Art: Code:

Sub Testen()
Const xlOrdner = "c:\..\"

Dim xlMappe As String, xlTab As Variant

xlMappe = Dir(xlOrdner & "*.xlsx") ' erste Datei
While xlMappe ""
Debug.Print "Import Mappe :" & xlMappe
For Each xlTab In Array("D1", "D2", "D3", "D4", "H1", "K1", "S1", "KS", "So")
Debug.Print "Import Blatt:" & xlTab
' DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12Xml, "AV", xlMappe, True, xlTab & "!"
Next
xlMappe = Dir ' nächste Datei
Wend
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

golochim · 2. Dezember 2020

Hallo Steffen,

vielen Dank für die schnelle Antwort. Ich werde es testen!

Gruß

Jojo

Office: (Office 2013) Import Exceltabelle

Import Exceltabelle

Import Exceltabelle

Import Exceltabelle - Similar Threads - Import Exceltabelle

Wahrscheinlich nicht neu - Makros exportieren

Import aus Web - Scriptfehler

Daten-Import inkl. Primärschlüssel

VBA Variableninhalt nach import aus zwei verschiedenen Dateien verschieden >Leer< und >""<

Power Query Import von Exceldatei

CSV in Outlook

Import einer Exceltabelle mit Adressdaten