Dateiimport aus TXT per QueryTables.Add
29.11.2022 08:39:21
Daniel
ich habe dieses Forum immer wieder schon für Hilfen und Tipps verwendet und möchte mich dazu auch bedanken. Nun habe ich aber ein Problem mit einem Makro und leider ist der Ersteller dieses Makros nicht mehr greifbar. Deswegen wende ich mich an die Leute hier im Forum :-)
Das Makro funktioniert auf meinem Rechner und auf dem Rechner eines Kollegen, aber leider bei den restlichen Kollegen nicht und ich weiß leider nicht weiter, da ich leider so gut wie keine VBA-Kenntnisse habe. Ich wurschtel mich per Google-Suche so durch.
Anbei eine kurze Beschreibung und der Code dazu:
Export von Stücklistendaten aus CAD in eine Text-Datei.
Textdatei soll im Excel per Makro eingelesen, sortiert und bestimmte Zeilen gelöscht werden.
Problem ist beim Einfügen. Rest funktioniert.
Code:
Sub Einfügen()
' einfügen Makro'
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Users\Benutzer\Desktop\Struktur.txt", Destination:=Range("$A$1"))
.Name = "Struktur"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 1252
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(2, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
Es kommt die Fehlermeldung: Laufzeitfehler 7 nicht genügend Speicher. Beim Klick auf Debuggen wird die Zeile: Refresh BackgroundQuery:=False gelb markiert.
Kann mir hierzu vielleicht jemand weiterhelfen?
Sollte ich noch mehr Infos liefern müssen, einfach sagen.
Vielen Dank schon mal.
Gruß
Daniel