*.txt in *.xls importieren

Bild

Betrifft: *.txt in *.xls importieren
von: Tom H.
Geschrieben am: 04.12.2003 10:39:28

Servus,
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
Bild


Betrifft: AW: *.txt in *.xls importieren
von: Nike
Geschrieben am: 04.12.2003 11:19:02

Hi,
starte mal den Makro Recorder und öffne dann deine Text
Datei mittels Datei öffnen Dialog.
Stelle das Format auf .txt um und wähle deine Datei.
nun sollte automatisch der Textimport Assi starten,
in dem du dann auch verschiedene Foramte vorgeben kanns...

Anschließend den Code anschaun und entsprechend anpassen...

Bye

Nike


Bild


Betrifft: AW: *.txt in *.xls importieren
von: Tom H.
Geschrieben am: 04.12.2003 11:28:02

Danke erstmal,
soweit war ich zwar auch schon, aber mal sehen was sich dadraus weiter machen lässt...

Danke,
Gruß Tom


Bild

Beiträge aus den Excel-Beispielen zum Thema " *.txt in *.xls importieren"