Supportnet Computer
Planet of Tech

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

Antwort von



Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: