Aquí está el código para crear el archivo de texto en blanco (apenas comentan hacia fuera las líneas para agregar el texto, y agregan a ms Scripting la biblioteca Runtime a sus referencias de VBA)
De aquí:
http://www.ozgrid.com/forum/showthread.php?t=58283&page=1WriteTextFile secundario ()
'Escribiendo un archivo de texto usar objeto del sistema de ficheros en VBA
'Este código requiere una referencia (en el VBE filetea > las referencias) a Microsoft Scripting tiempo de pasada
FSO dévil como FileSystemObject
FSOFile dévil como TextStream
FilePath dévil como secuencia
NoOfLoop dévil como número entero
FilePath = “c:\WriteTest.txt” 'crea un archivo de test.txt o cambia esto
Fijar FSO = nuevo FileSystemObject
'abre el archivo adentro escriben modo
Fijar FSOFile = FSO.OpenTextFile (FilePath,
2, verdades)
''líneas de adición redondas del lazo
'Para NoOfLoop = 1 a 10
''escribir su código aquí
'FSOFile.WriteLine (“soy línea de la escritura” y NoOfLoop)
'NoOfLoop siguiente
FSOFile.Close
Submarino del extremo
Una vez más armado con todo este conocimiento, estoy seguro usted puede hacer que su sistema trabaja según lo especificado.
; -)
JeffCoachman