Hallo
Ich habe ein Makro aufgezeichnet, damit ich Daten in ein xls-File importieren kann und mich nicht durch alle Menüpunkte hangeln muss.
Data -> Import External Data -> Edit Text Import -> … ist mir doch zu aufwendig.
Als Code ist folgendes herausgekommen, was ich noch leicht angepasst habe und auch problemlos funktioniert.
' Datei laden und konvertieren
With Selection.QueryTable
.Connection = _
"TEXT;error*"
.TextFilePlatform = xlWindows
.TextFileStartRow = 1
.TextFileParseType = xlFixedWidth
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1)
.TextFileFixedColumnWidths = Array(19, 8, 29)
.Refresh BackgroundQuery:=False
End With
Nur leider bekomme ich den Fehler:
“ Run-time error ‘1004’: Application-defined or object-defined error ”, wenn ich doch keine Datei auswählen möchte und anstelle dessen den “Cancel”-Knopf drücke.
Bei Debug zeigt er mir die Zeile (.Refresh BackgroundQuery:=False ) als Problem an.
Jemand eine Idee, wie ich den Fehler beim betätigen des “Cancel”-Knopf abfangen kann?
Danke für eure Hilfe. |