Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Textimport to excel (HILFE !!!)

Forumthread: Textimport to excel (HILFE !!!)

Textimport to excel (HILFE !!!)
13.09.2004 11:11:15
Mahdia
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 :-)
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Textimport to excel (HILFE !!!)
13.09.2004 12:15:22
tobias
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
Anzeige
AW: Textimport to excel (HILFE !!!)
13.09.2004 13:05:39
Mahdia
Hallo,
Leider hat mir dieses Beispiel nicht weiter geholfen.was ist Feld?
kannst du mir sagen wie dein Code funktioniert?
mfg
AW: Textimport to excel (HILFE !!!)
tobias
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.
Anzeige
AW: Textimport to excel (HILFE !!!)
13.09.2004 13:18:40
Mahdia
In Txtdatei steht der Text ohne "".
Ich werde es nochmal versuchen. Ich danke dir für Hilfe.
mfg
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige