Qui è il codice per generare la lima di testo in bianco (commentano appena fuori le linee per l'aggiunta del testo ed aggiungono il ms che Scripting la biblioteca Runtime ai vostri riferimenti di VBA)
Di qui:
http://www.ozgrid.com/forum/showthread.php?t=58283&page=1WriteTextFile secondario ()
'Scrivendo una lima di testo using l'oggetto del file system in VBA
'Questo codice richiede un riferimento (nel VBE lavora > riferimenti) a Microsoft che Scripting il tempo di esecuzione
FSO fioco come FileSystemObject
FSOFile fioco come TextStream
FilePath fioco come stringa
NoOfLoop fioco come numero intero
FilePath = “c:\WriteTest.txt„ 'genera una lima di test.txt o cambia questo
Regolar FSO = nuovo FileSystemObject
'apre la lima dentro il modo di scrittura
Regolare FSOFile = FSO.OpenTextFile (FilePath,
2, allineare)
''linee d'aggiunta rotonde del ciclo
'Per NoOfLoop = 1 - 10
''scrivere il vostro codice qui
'FSOFile.WriteLine (" sono linea di scrittura„ & NoOfLoop)
'NoOfLoop seguente
FSOFile.Close
Sommergibile dell'estremità
Di nuovo, munito con tutta questa conoscenza, sono sicuro che potete fare funzionare il vostro sistema come specificato.
; -)
JeffCoachman