Supportnet / Forum / Tabellenkalkulation
Import einer Textdatei mit Makro
Frage
Moin.
MIt Excel 2000 möchte ich eine Textdatei einfügen. Dabei soll das Dialogfenster für den Dateiimport per Commandbutton angezeigt werden. Bei Klick auf die gewünschte Textdatei soll diese in festgelegter Form in das Excel Sheet eingefügt werden.
Folgendes Makro hab ich dafür aufgezeichnet:
Private Sub CommandButton2_Click()
Rows("1:1").Select
Selection.ClearContents
With Selection.QueryTable
.Connection = _
"TEXT;C:\Ordner1\Ordner2\Ordner3\Datei.txt
.TextFilePlatform = 1252
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, _
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 _
, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, _
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
Unload Me
End Sub
Das funktioniert genauso wie ich will.
Mein Problem aber ist ein Laufzeitfehler 1004 (Anwendungs- oder Objektdefinierter Fehler), wenn ich in dem Textimport Dialog auf abbrechen klicke. Dabei wird der letzte Befehl markiert (.Refresh BackgroundQuery:=False).
Wo liegt mein Fehler? Und was kann ich machen, damit die Schaltfläche Abbrechen wieder funktioniert?
Danke im Voraus,
Gruß Jonk