Ist hier der Code, zum der unbelegten Textdatei herzustellen (gerade heraus kommentieren die Linien für das Addieren des Textes und fügen den Mitgliedstaat hinzu, der Laufzeitbibliothek Ihren VBA Hinweisen Scripting ist)
Von hier:
http://www.ozgrid.com/forum/showthread.php?t=58283&page=1VorWriteTextFile ()
', eine Textdatei using Dateisystem-Gegenstand in VBA schreibend
'Dieser Code erfordert einen Hinweis (im VBE bearbeitet > Hinweise), auf Microsoft, das Laufzeit Scripting ist
Schwaches FSO als FileSystemObject
Schwaches FSOFile als TextStream
Schwaches FilePath als Schnur
Schwaches NoOfLoop als ganze Zahl
FilePath = „c:\WriteTest.txt“ 'stellen eine test.txt-Akte her oder ändern dieses
Einstellen FSO = neues FileSystemObject
'öffnet Akte schreiben innen Modus
FSOFile = FSO.OpenTextFile (FilePath, 2
, zutreffendes) einstellen
''runde hinzufügende Linien der Schleife
'Für NoOfLoop = 1 bis 10
''Ihren Code hier schreiben
'FSOFile.WriteLine („ich bin Schreibenslinie“ u. NoOfLoop)
'Folgendes NoOfLoop
FSOFile.Close
Enden-Unterseeboot
Wieder bewaffnet mit den ganzen dieses Wissen, bin ich sicher, dass Sie Ihr System arbeiten lassen können, wie spezifiziert.
; -)
JeffCoachman