.Refresh BackgroundQuery --> Err=7
05.11.2020 14:52:51
Matthias
ich stehe vor einem Problem mit QueryTables und komme nicht auf die Lösung.
Auf meinem eigenen PC (Win10 & Excel 2016) funktioniert der Code und bei einer Freundin (Win 7 & ich glaube Excel 2007) funktioniert es nicht.
Ich habe über eine Abfrage herausgefunden, dass immer der Error 7 bei .Refresh BackgroundQuery:=False bei ihr auftritt.
Kann sich dies jemand erklären und mir weiterhelfen? Zumal es bei mir problemlos läuft.
_
With Worksheets(Target).QueryTables.Add(Connection:=conName, _
Destination:=Worksheets(Target).Range("A1"))
.Name = fname
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlOverwriteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = False
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = xlWindows
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.Refresh BackgroundQuery:=False
.TextFileDecimalSeparator = ","
End With
Ich habe schon als False und True gesetzt und immer kommt der Fehler.
Vielen Dank für Eure Hilfe und viele Grüße
Matthias