QueryTables.Add - immer gleiche Datei
05.08.2021 22:03:25
Norman
ich habe vor einigen Tagen schon einmal etwas über ein Sharepoint-Problem geschrieben - ich denke, dass auch dieses Problem jetzt damit zusammenhängt.
Ich arbeite in einem Warenverteilzentrum und jeden Abend wird ein Lagerspiegel generiert, wovon ich dann die letzten Beiden einlese und weiterverarbeite. Das geschieht in einer Schleife. Der relevante Code folgt:
Worksheets("Import_LX03").Activate
With Worksheets("Import_LX03").QueryTables.Add(Connection:="TEXT;" & _
varName, Destination:=Range("A" & lngTotalRowsImportLX03))
.Name = "new_ohne_1"
.FieldNames = False
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 65001
.TextFileStartRow = 8
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileOtherDelimiter = "|"
.TextFileColumnDataTypes = Array(9, 1, 1, 2, 2, 2, 2, 2, 1, 1, 1, 1, 2, 1, 2, 2, 2, 2)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
Von daher ist es schade, diese Möglichkeit nun nicht mehr zu haben. Es gibt jemanden mit gleichem Problem, der aber auch keine Lösung bekommen hatte:
https://stackoverflow.com/questions/52081096/querytables-add-in-vba-adds-same-file-regardless-of-filepath
Man kann es kaum jemanden erzählen und es ist schon fast unheimlich. Workbooks.Open öffnet übrigens die richtige Datei. Bin gespannt auf Eure Antworten!
Liebe Grüße
Norman