Hallo,

ich erstelle in einem Word Dokument mit VBA ein Excel-Sheet und möchte in dieses einige Datensätze einer Access Datenbank speichern.

Bei dem Quellcode bekomme ich un unregelmäßigen Abständen den Fehler: "Die Methode Range für das Objekt _Global ist fehlgeschlagen".

Dabei ist die Range doch hier eindeutig definiert, oder sehe ich es falsch? Wieso tritt der Fehler nur manchmal auf? Vielen Dank

Dim exAnw As Excel.Application
Dim exDok As Excel.Workbook
Set exAnw = CreateObject("Excel.Application")
Set exDok = exAnw.Workbooks.Add(Template:=ActiveDocument.path & "\temp.xltx")
exAnw.Visible = True

            
With exDok.ActiveSheet.ListObjects.Add(SourceType:=0, Source:=Array( _
                "OLEDB;Provider=Microsoft.ACE.OLEDB.12.0;Password="""";User ID=Admin;Data Source=" & path & ";Mode=Share Deny" _
                , _
                " Write;Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:Bypass UserInfo Validation=False"), Destination:=Range("Gesamt!$B$2")).QueryTable
                .CommandType = xlCmdSql
                .CommandText = query4_5_a
                .RowNumbers = False
                .FillAdjacentFormulas = False
                .PreserveFormatting = True
                .RefreshOnFileOpen = False
                .BackgroundQuery = True
                '.RefreshStyle = xlInsertDeleteCells
                .RefreshStyle = xlOverwriteCells
                '.RefreshStyle = xlInsertEntireRows
                .SavePassword = False
                .SaveData = True
                .AdjustColumnWidth = True
                .RefreshPeriod = 0
                .PreserveColumnInfo = True
                .SourceDataFile = path
                .ListObject.DisplayName = "Tabelle_daten"
                .Refresh BackgroundQuery:=False
                
End With