Microsoft Excel

Herbers Excel/VBA-Archiv

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 !!!)"