Ich hab mir einen Macro zusammengebastelt (mit Müh und Not ;-) ), der mir Daten aus einem Excelsheet in eine Access Datenbank zieht (s.u.).
Ich hab nun folgendes Problem:
Der Pfad der Datenbank wird sich vorraussichtlich hin und wieder ändern. Die Excel Dateien sind Umfragebögen und werden vervielfältigt, so dass der Macro in etwa 100 oder mehr Exceldateien enthalten sein wird.
Ich hab nun wahrlich keine Lust den Pfad in allen Exceldateien zu aktualisieren, sobald sich der Pfad der Datenbank ändert.
Wie könnte man das Problem am besten lösen und v.a. programmieren?
Meine Überlegung: Ich lege ein Excelsheet an, in dem ich den Pfad der Datenbank angebe, auf den die Macros in den anderen Excelsheets dann zugreifen. Ändert sich der Pfad, dann muss ich nur in diesem einem Excelsheet den Pfad ändern (Macros sollten sich dann automatisch aktualisieren!)
Wie könnte man das Programmiertechnisch umsetzen?
Hier der Macro:
Sub Daten_Anlagen_speichern_in_Access()
Dim db As DAO.Database, rs As DAO.Recordset, r As Long
Set db = OpenDatabase("U:\Datenbank\LEB_Datenbank.mdb")
Set rs = db.OpenRecordset("Anlagen", dbOpenTable)
r = 1
With rs
.AddNew
.Fields("Bestellnr") = Sheets("Ergebnisblatt").Range("H" & r + 8).Value
.Fields("Lieferant") = Sheets("Ergebnisblatt").Range("C" & r + 6).Value
.Fields("Projekt") = Sheets("Ergebnisblatt").Range("C" & r + 8).Value
.Fields("Kontinent") = Sheets("Ergebnisblatt").Range("H" & r + 5).Value
.Update
End With
rs.Close
Set rs = Nothing
db.Close
Set db = Nothing
End Sub