AW: Datei einlesen | Auswahlmenü
11.06.2007 13:12:03
pbm
Nun habe ich folgendes Makro:
Sub datei_auswaehlen()
MsgBox "Please click to import a file.", vbOKOnly
Dim dat As String
dat = Application.GetOpenFilename("Textdateien (*.txt), *.txt")
' Auf die Variable dat wird der Dateinamen geschrieben
Call txt_einlesen
End Sub
Sub txt_einlesen()
Workbooks.OpenText Filename:="dat" _
, Origin:=932, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=False, Other:=True, OtherChar:="|", FieldInfo:= _
Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
Array(7 _
, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), _
Array _
(14, 1), Array(15, 1), Array(16, 1), Array(17, 1)
Der Debugger unterbricht nach
Sub txt_einlesen....
Das Einlesen ist mit dem Recorder aufgezeichnet worden. Kann man das genereller halten? Im _
Moment geht es bis Array 122, muß unter Umständen aber weiter laufen.
Philipp