Office: (Office 2013) Alle Access Importe aktualisieren per Makro

Hi zusammen!

Ich habe in einer Excel Arbeitsmappe viele Access Import-Tabellen. Um diese auf einen Klick zu aktualisieren, habe ich ein makro geschrieben. Leider funktioniert dies nicht. Es kommt keine Fehlermeldung, aber es passiert auch nichts.

Code:

Sub Aktualisierung_AccessImport()
'
' Aktualisierung_AccessImport Makro
'

'
Dim ws As Worksheet
Dim qt As QueryTable

For Each ws In ActiveWorkbook.Worksheets
   For Each qt In ws.QueryTables
        qt.Refresh BackgroundQuery:=False
    Next qt
Next ws
End Sub

Könnt ihr mir sagen wo der Fehler liegt?

 

Hallo,

das hört sich an, als ob du zwar die Daten irgend einmal importiert hättest, jetzt aber keine aufrechte Verbindung zur externen Datenquelle (ACCESS-Datenbankdateien) mehr hast:
1) Das kannst du wie folgt testen: Im Excel-Menüband > Tabulator "DATEN" > Gruppe "Verbindungen" > Button "Verbindungen":
2) Es erscheint das Dialogfenster für Arbeitsmappenverbindungen, in dem dann mindestens 1 Eintrag für eine aufrechte Verbindung zu einer externen Datenquelle eingetragen sein müsste.
3) Machst du auf diesen Eintrag bzw. auf einen dieser Einträge einen Doppelklick, erscheint das Dialogfenster für die Verbindungseigenschaften. Wenn du dort den Tabulator "Definition" auswählst, müssten mehrere bereits ausgefüllte Felder erscheinen:

• Verbindungsname: "BezeichnungXY"
• Beschreibung: Kurzkommentar - kann auch leer sein.
• Verbindungstyp: Microsoft Access-Datenbank
• Verbindungsdatei: C:\Pfad\Access-DateiXY.accdb
• Verbindungszeichenfolge: Provider=Microsoft.ACE......usw.
• Befehlstyp: "Tabellensammlung" / "SQL"
• Befehlstext: "TabellennameXY"

Nur wenn diese alle ausgefüllt sind (mit Ausnahme des Beschreibung-Feldes), gibt es eine aufrechte Verbindung zur externen Datenquelle.
Wenn aber bereits unter Punkt 2) kein Listeneintrag vorhanden war, dann gibt es in dieser Arbeitsmappe keine Verbindung zu einer externen Datenquelle. Dann musst du eine solche (wieder) herstellen, wofür es ja den Button "Aus Access" in der Gruppe "Externe Daten abrufen" im Excel-Menü-Tabulator "DATEN" gibt.