Access-DB mit SQL-Queries über VBA
16.01.2015 12:59:50
Gernot
Ich nutze eine Exceldatei, in der ich von Hand ca. 50 SQL-Abfragen von Access Datenbanken eingefügt habe. Beim Öffnen der Datei werden alle Abfragen aktualisiert, alles bestens. Da ich immer wieder neue Datenbanken einpflegen muss und ich dafür vorhandene SQL-Queries editiere, ausführe und in die Exceldatei einfüge, frage ich mich, ob es nicht mit einem VBA-Code eleganter ginge? Die Datenbanken liegen immer in derselben Verzeichnisstruktur. Nur das unterste Verzeichnis ändert sich pro Datenbank.
Der SQL-Code für eine DB sieht folgendermaßen aus:
XLODBC
1
DSN=Microsoft Access-Datenbank;DBQ=L:\Wurm\PROJEKTE\00078525\energie15.mdb;DefaultDir=L:\Wurm\PROJEKTE\00078525;DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;
SELECT T_Woche_Kanal_1.F_Adresse AS 'Adr', T_Woche_Kanal_1.F_Datum AS 'Datum', T_Woche_Kanal_1.F_ARBEITSumme_NT AS 'Kanal 1', T_Woche_Kanal_1.F_Zeit_Spitze AS 'Lastspitze Datum', T_Woche_Kanal_1.F_LstSpitze AS 'Lastspitze' FROM `L:\Wurm\PROJEKTE\00078525\ENERGIE15`.T_Woche_Kanal_1 T_Woche_Kanal_1 ORDER BY T_Woche_Kanal_1.F_Adresse, T_Woche_Kanal_1.F_Datum
Adr Datum Kanal 1 Lastspitze Datum Lastspitze
Die DB heißen in jedem Verzeichnis gleich. Nur die ID-Nummer der Projekte ist unterschiedlich. Ich würde gerne die ID-Nummern in einer Tabelle als Quelle hinterlegen und mit einem VBA-Code automatisch alle Daten der DB einfügen, die in der Tabelle mit den ID-Nummern angegeben ist.
Die bisherige genutzte Datei lade ich hoch. Darin habe ich nur noch 2 DB abgefragt, da sonst die Datei trotz Komprimierung zu groß für den Upload wäre.
https://www.herber.de/bbs/user/95048.zip
Vielen Dank für Ihre Zeit!
Beste Grüße
Gernot