Hallo,

folgendes problem: ich möchte automatisch daten aus access in excel laden. das ganze wurde per makro aufzeichnen und den befehl "daten aus access" aufgenommen. an sich funktioniert der code einwandfrei. wenn das makro jedoch automatisch startet, werde ich immer gefragt ob ich auch zu dem speicherort der DB verbinden möchte... d.h. es läuft nciht automatisch ab, sondern ich muss immer auf "OK" klicken.... kann mir jemand sagen wie ich diese frage ausschalten kann? appl.screenupdate funktioniert nicht, das habe cih bereits probiert... hier mein code

Sub import()
'

'

'
Sheets("Tabelle1").Select
Columns("A:F").Select
' Selection.ListObject.QueryTable.Delete
Selection.ClearContents
With ActiveSheet.ListObjects.Add(SourceType:=0, Source:=Array( _
"OLEDB;Provider=Microsoft.ACE.OLEDB.12.0;Password="""";User ID=Admin;Data Source=egalwo\access.db;Mode=ReadWrite" _
, _
";Extended Properties="""";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDBatabase Password="""";Jet OLEDB:Engine " _
, _
"Type=6;Jet OLEDBatabase Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New " _
, _
"Database Password="""";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDBon't Copy Locale on Comp" _
, _
"act=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False;Jet OLEDB:Support Complex Data=False;Jet OLEDB:Bypa" _
, "ss UserInfo Validation=False"), Destination:=Range("$A$1")).QueryTable
.CommandType = xlCmdTable
.CommandText = Array("TBL_import")
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.SourceDataFile = "egalwo\access.db"
.ListObject.DisplayName = "TBL_db"
.Refresh BackgroundQuery:=False '<-- danach kommt immer die frage nach der verbindung
End With
End Sub

Gruß soupy