Daten von versch. Excel im Access importieren

Hallo prissy,
zufälligerweise gab es hier vor kurzem ein vergleichbares Problem.
Lass dich nicht von den technischen Details abschrecken. Die Frage ist, was ist bei deinem Problem anders.

 

Hallo,

In dieser Liste wird festgelegt, nach welchen Dateien gesucht werden soll. Gleich im Anschluss wird eine Schleife gestartet,

Code:

For iCounter = LBound(arr) To UBound(arr)
...
Next iCounter

in der bei jedem Schleifendurchlauf einer dieser Einträge ausgelesen wird.

Code:

.FileName = arr(iCounter)

Da die Listeneinträge Platzhalter besitzen, können jedesmal mehrere Dateien gefunden werden. Deshalb existiert noch eine innere Schleife,

Code:

For I = 1 To .FoundFiles.Count
...
Next I

in der jedesmal eine der Dateien ausgewertet wird.

PFAD ist die von dir DIR genannte Variable.
"Me!Verzeichnis" ist der der Inhalt eines Textfeldes im aktuellen Formular. "Me!" bezieht sich immer auf das Formular, das den Code enthält. "Verzeichnis" ist der Name des Textfeldes.

VerzeichnisSuchen hab ich zwar noch nicht benutzt, aber nach der Syntax kann es sich nur um ein Access-Dialogfeld handeln. Klick mal mit der Maus auf das Wort und drück <F1>, dann bekommst du bestimmt diese Information.

 

Hallo prissy,
du bezweifelst mit Recht, dass alle Dateien eingelesen werden. Deine While-Schleife wird, wenn ich das richtig gelesen habe, nur genau einmal durchlaufen.

Du hast das Array aus dem Code genommen ("dim arr ..." kann auch entfernt werden), das wird wohl so richtig sein. Damit brauchst du auch nicht die äußere Schleife des Codes aus #3

Code:

For iCounter = LBound(arr) To UBound(arr)

Next iCounter

Aber die innere Schleife brauchst du.
Du hast die Unterverzeichnisse durch

Code:

strVerz = dir(strDir & "*.*", vbDirectory)

eingebunden. Ich geh mal davon aus, dass es mehrere geben kann. Also muss

Code:

DoCmd.TransferSpreadsheet acImport, , "T-UserReportsNew", strDir & strVerz & "\Reports.xls", True

mehrmals ausgeführt werden. Dafür war in #3 der Code

Code:

For I = 1 To .FoundFiles.Count

DoCmd.TransferSpreadsheet , , Tabelle, .FoundFiles(I), False, "Umgewandelt$"

Ich lass mal die Fehlerbehandlung weg, damit es übersichtlicher wird.
Vorher muss natürlich FoundFiles.Count und FoundFiles(I) für alle i ermittelt werden, deshalb

Code:

With Application.FileSearch
.NewSearch
.LookIn = PFAD
.SearchSubFolders = True[COLOR="DarkOrange"] 'Hier wird viel einfacher als bei dir die Suche in Unterverzeichnissen einbezogen.[/COLOR]
.FileName = arr(iCounter)
.Execute

End With

Ich glaub, ich erklär lieber mal die Bedeutung von "With": Ohne "With" wäre der Code umständlicher:

Code:

Application.FileSearch.NewSearch
Application.FileSearch.LookIn = PFAD
Application.FileSearch.SearchSubFolders = True
Application.FileSearch.FileName = arr(iCounter)
Application.FileSearch.Execute
For I = 1 To Application.FileSearch.FoundFiles.Count

DoCmd.TransferSpreadsheet , , Tabelle, Application.FileSearch.FoundFiles(I), False, "Umgewandelt$"

Ich denke, es reicht für heute.
Eins noch: Wenn du hier

Code:

.Execute
'If .Execute() > 0 Then
'MsgBox "Es wurde(n) " & .FoundFiles.Count & " Datei(en) gefunden."

die Hochkommas rausnimmst, darf .Execute nicht doppelt im Code sein.

Code:

'.Execute
If .Execute() > 0 Then
MsgBox "Es wurde(n) " & .FoundFiles.Count & " Datei(en) gefunden."

 

Hallo,
freut mich! Alles Gute!