Office: (Office 2010) mehrere Dateien importieren

Nein. Wildcards funktionieren nur in Verbindung mit Mustervergleichen (Irgendwas LIKE *...).

Du machst das Sternchenzeichen in Deiner Gestaltung zum Bestandteil des Blattnamens, was dann logischerweise nicht passt.

Und ja: Die Variable muss aus dem String herausgenommen werden:
Code:

Dadurch wird nicht die Zeichenkette "sTab" in die SQL-Anweisung übergeben, sondern vor der Verkettung der Ausdrücke wird die Variable ausgewertet, und der Inhalt der Variablen wird an die SQL-Anweisung übergeben.

 

Ok, jetzt erhalte ich den Laufzeitfehler '3131' - Syntaxfehler in FROM Klausel.

 

Das Beheben eines Fehlers schafft Raum für Wirken des nächsten Fehlers.

Am Ende der Zusammenstellerei: Was erbringt Debug.Print sSQL ?

 

Als Ergebnis erhalte ich
Code:

 

Sorry beim Kopieren sind die backslash verloren gegangen:
INSERT INTO [tb_Daten] (NR, Baumuster, TabNr) SELECT NR, Baumuster, TabNr FROM [excel 8.0;hdr=yes;imex=1;DATABASE=C:Z_A-NeudatenPrüfungImportDaten_1.xls].Tabelle1$

 

leider schon wieder
C:Z_A-NeudatenPrüfungImportDaten_1.xls].Tabelle1$

 

Ok, backslash vor 'Prüfung', 'Import' und 'Daten_1.xls'

 

Ja, damit kann ich das Tabellen ansprechen:
Code:

Aber wie kriege ich es mit der For...Next-Schleif hin? Habe es so probiert:
Code:

Aber da sagt Access das es die Datei nicht öffnen kann, weil sie bereits exklusiv geöffnet ist?

 

Ich glaube ich habe da etwas übersehen. Die Exceltabellen auf dem Laufwerk heißen Daten_1.xls, Daten_2.xls, Daten_3.xls… Passen zum Index der Dateibezeichnung ist das zugehörige Tabellenblatt nummeriert, also (Daten_1.xls)Tabelle1, (Daten_2.xls)Tabelle2, (Daten_3.xls)Tabelle3. Wie kann ich nun die Zahl aus der Dateibezeichnung übernehmen für die Tabellenblattbezeichnung?

 

Ich habe eine Idee, mit
Code:

könnte ich die Dateibezeichnung ermitteln, z.B. Daten_1.xls oder Daten_36.xls. Aber wie extrahiere ich die Zahl daraus hervor?

 

So komme ich nun auch nur auf die Zahl:
Code:

Aber geht das auch einfacher oder kürzer?

 

Reguläre Ausdrücke sind eine feine Sache:
Code:

 

Jetzt funktioniert es wie es sein sollte.
Hab noch eine andere Frage. Kann man von Access aus vor dem Import in den Exceltabellen immer jeweils die ersten 5 Zeilen rauslöschen? Wenn ja wie geht das?

 

Zeilen löschen ginge nur über den Weg Excelautomation.

Allerdings könnte man sich innerhalb der SQL-Anweisung gleich auf einen bestimmten Bereich einschränken:
Code:

 

Hi Eberhard,
du bist wirklich klasse!
Danke