TXT File öffnen mit Dialog
03.03.2004 08:05:22
helena
versuche File zu öffnen via MSGBox, ohne MSGbox funktioniert es
bekomme Fehlermeldung 1004 &wert.txt.xls
möchte aber nur File mit Suffix TXT importieren
Sub open_file()
Dim File As String
File = InputBox("Bitte den Suchbegriff eingeben", "ich suche auf Laufwerk A ..")
Wert = File
If Wert = "" Then Exit Sub
Workbooks.OpenText Filename:="A:\& wert" & ".txt ", Origin:=xlMSDOS, StartRow _
:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, Comma:=False, _
Space:=True, Other:=True, OtherChar:="\", FieldInfo:=Array(Array(1, 9), _
Array(2, 2), Array(3, 2), Array(4, 2)), TrailingMinusNumbers:=True
End Sub
Danke für Hilfe
gruss helena
Anzeige