Textdateinamen aus Zellinhalt erstellen

Bild

Betrifft: Textdateinamen aus Zellinhalt erstellen von: werner
Geschrieben am: 28.03.2005 15:33:42

Recherche und Suche im Forum führte mich zu CreateTextFile
Mein Problem: Erstellung von ASCII-Dateien mit den Dateinamen aus Spalte A und die Textdateien sollen dann jeweils den Inhalt aus der Zelle B1 haben. Beispiel:
Zelle A1: 1001.txt B1: Allow * http://www.domain01.de/ | Teil */recht/* |
Zelle A2: 1002.txt B2: Allow * http://www.domain02.de/ | Teil */musik/* |
usw.
Ergebnis soll sein:
Textdatei 1001.txt hat den Inhalt:
Allow * http://www.domain01.de/ | Teil */recht/* |
Textdatei 1002.txt hat den Inhalt:
Allow * http://www.domain02.de/ | Teil */musik/* |
usw.
Danke für eure Hilfe.
gruß
werner

Bild


Betrifft: AW: Textdateinamen aus Zellinhalt erstellen von: NE
Geschrieben am: 28.03.2005 16:12:27

Hi,

zB sowas:

Sub x()
   Dim i&
   For i = 1 To 10
      Open "D:\" & Cells(i, 1).Value & ".txt" For Output As #1
      Print #1, Cells(i, 2).Value
      Close #1
   Next
End Sub


Gruss Nancy


Bild


Betrifft: nur leere .txt in D: von: werner
Geschrieben am: 28.03.2005 16:41:53

Hallo Nancy,
Danke.
Ich habe den Code in VBA-Makro kopiert und den Cursor auf Zelle A1 gesetzt. Der Makro erstellt aber nur eine leere Datei mit der Endung .txt auf der Platte D:
Mache ich etwas falsch. Hier Makro-Inhalt:
Sub txt_erstellen()
' txt_erstellen Makro
' erstellt .txt-Dateien aus Zellen ab A1
   Dim i&
   For i = 1 To 10
      Open "D:\" & Cells(i, 1).Value & ".txt" For Output As #1
      Print #1, Cells(i, 2).Value
      Close #1
   Next
'
End Sub



Bild


Betrifft: AW: nur leere .txt in D: von: NE
Geschrieben am: 28.03.2005 17:09:01

Hi again,

Werner, was nur EINE?? Sollten zumindest 10 sein ;-))

Bei mir stand zB.:
Z / A / B
1 / 1 / eins
2 / 2 / zwei
...
10 / 10 / zehn

Der Code bezieht sich auf das aktive Tabellenblatt, unabhängig von der Cursorposition.
Was steht denn in A und B? Doppelte Werte in A werden auch jedesmal überschrieben.
Sonst grade mal keine Idee weiter;-)

Gruss Nancy


Bild


Betrifft: xls-Datei auf herber.de geladen von: werner
Geschrieben am: 28.03.2005 18:14:09

Hi Nancy,
ich habe die kleine xls-Datei auf den Server geladen.
https://www.herber.de/bbs/user/20251.xls
Datei enthält den Makro und 2 Zeilen
124712 Disallow * | Allow http://www.domain01.de/ | Teil */recht/* |
69840 Disallow * | Allow http://www.domain02.de/ | Teil */musik/* |
Also A1=124712 B1=Disallow * | Allow http://www.domain01.de/ | Teil */recht/* |
usw.
Liegt es vielleicht an Pipe-Symbol (|)? Dann könnte ich ein anderes Trennzeichen nehmen.
Nochmals Danke vorab.
werner


Bild


Betrifft: AW: xls-Datei auf herber.de geladen von: NE
Geschrieben am: 28.03.2005 18:46:38

Werner, also bei mir geht das mit deiner Datei [xl2000 unter win2k],
es werden 3 *.txt auf D:\ erstellt, eine .txt welche leer ist da in A3-B10 nix steht,
sowie eine 124712.txt und eine 69840.txt welche halt die jeweilige Zeile aus B enthalten.

Es scheint zwar nicht das Hauptproblem zu sein, aber probier mal noch das:
Sub txt_erstellen()
   Dim i&
   For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
      If Cells(i, 1) <> "" And Cells(i, 2) <> "" Then
         Open "D:\" & Cells(i, 1).Value & ".txt" For Output As #1
         Print #1, Cells(i, 2).Value
         Close #1
      End If
   Next
End Sub

Ansonsten keine Ahnung, was da bei Dir schiefläuft, vielleicht liegts auch am XP?
Kann ich mir aber gar nich sooo richtig vorstellen *dream* ;-))

Gruss Nancy


Bild


Betrifft: 1000 Dank von: werner
Geschrieben am: 28.03.2005 19:00:30

Hi Nancy,

funktioniert jetzt alles einwandfrei. Die leere .txt wird auch nicht mehr erzeugt. Der Hammer mit reichlich Asche über mein Haupt kommt aber noch: Wie eben festgestellt: Es geht auch dein anderer Makro, der eben nur zusätzlich eine leere .txt erstellt hatte. Ich hatte anscheinend eine Dateisortierreihenfolge eingestellt, in der Dateinnamen mit Ziffern nicht nach .filename erscheinen. Kurzum: Die dateien wurden auch erzeugt, standen nur nicht in meinem Dateiverwalter wegen der vielen anderen Dateien im selben Verzeichnis, da wo ich sie erwartet hatte.
Wie kann ich mich revanchieren?
1000 Dankeschön aus Hamburg
werner


Bild


Betrifft: AW: 1000 Dank von: NE
Geschrieben am: 28.03.2005 19:15:29

Bitteschön, und ... makes nix - sh#t happens ;-))

Hab' unlängst auch versucht zu plotten und es kam am Plotter nix an,
nach 2 Stunden Probiererei, Treiberdownload etc hab' ich dann gemerkt,
dass ich das Plotterkabel am falschen Rechner angeschlossen hatte.
Is halt tückisch, wenn mehrere von den Dingern unterm Tisch stehen *peinlich*

Schöne Rest-Ostern noch
Gruss Nancy


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Textdateinamen aus Zellinhalt erstellen"