Textimport to excel (HILFE !!!)
Betrifft: Textimport to excel (HILFE !!!)
von: Mahdia
Geschrieben am: 13.09.2004 11:11:15
Hallo Leute,
Ich bin Anfänger bei VBA und Excel :-)
Ich muss ein Makro schreiben, der ein Textdatei öffnet. Sie sieht so aus:
------------------------------------------------
Städte = Frankfurt, München, Berlin, Hannover
Autos = BMW, VW, Audi, Mercedes, Ferrari
...
----------------------------------------------
Also, jede Zeile beinhaltet eine Gruppe und deren Elemente. Diese muss ich schließlich in einer Tabelle umwandeln, die so aussehen muss:
https://www.herber.de/bbs/user/10828.xls
Ich danke euch für die Hilfe im Voraus :-)
Betrifft: AW: Textimport to excel (HILFE !!!)
von: tobias
Geschrieben am: 13.09.2004 12:15:22
Hallo
grundsätzlich geht das so:
ComboOrdner1 = ThisWorkbook.Path & "\System\Kostenstelle.txt"
Open ComboOrdner1 For Input As #1
Do While Not EOF(1)
Input #1, APlatz, KStelle, EMail
Feld(1) = APlatz
Feld(2) = KStelle
Feld(3) = EMail
Loop
Close #1
die Einträge in der Kostenstelle.txt sahen dabei so aus:
"APlatz","KStelle","EMail"
musst du jetzt halt mal ausprobieren...
mfg Tobias
Betrifft: AW: Textimport to excel (HILFE !!!)
von: Mahdia
Geschrieben am: 13.09.2004 13:05:39
Hallo,
Leider hat mir dieses Beispiel nicht weiter geholfen.was ist Feld?
kannst du mir sagen wie dein Code funktioniert?
mfg
Betrifft: AW: Textimport to excel (HILFE !!!)
von: tobias
Geschrieben am: 13.09.2004 13:15:24
Hallo
Feld() ist ein Array, brauchst du aber nicht. Das war nur ein Beispiel.
Du müstest mal ausprobieren mit Input #1, DeineVariable
Steht dein Text in der txt-Datei mit oder ohne ""?
tobias
PS:Ich kann es eben auf der Arbeit nicht selber testen.
Betrifft: AW: Textimport to excel (HILFE !!!)
von: Mahdia
Geschrieben am: 13.09.2004 13:18:40
In Txtdatei steht der Text ohne "".
Ich werde es nochmal versuchen. Ich danke dir für Hilfe.
mfg
Beiträge aus den Excel-Beispielen zum Thema "Textimport to excel (HILFE !!!)"