*.txt in *.xls importieren
04.12.2003 10:39:28
Tom H.
Ich habe folgendes Problem und hoffe auf eure Hilfe!
Ich muss eine Textdatei in eine Exceltabelle importieren.
Soweit so gut, das geht
Hier der Code dazu:
Sub pfad()
ChDir "\"
ChDrive "K:\"
Dateiname1 = Application.GetOpenFilename _
(" (*.txt),*.txt")
Workbooks.Open Filename:= _
Dateiname1
file = Dateiname1
Dim zeichenlänge As Long
zeichenlänge = 21
file1 = Right$(Dateiname1, zeichenlänge)
End Sub
Jetzt liegt meine Schwierigkeit darin, das der Zellwert auf Standart steht, aber Spalten P-V müssen als Zahl formatiert sein...
Sobalt mein Programm an diese Stelle kommt :
Workbooks.Open Filename:= _
Dateiname1
Wählt man die zu öffnende Datei an und sie wird sofort in einem neuen Excelfile erstellt...
Soweit gut erklärt?
MfG Tom