Voici le code pour créer le dossier blanc des textes (commentent juste dehors les lignes pour ajouter le texte, et ajoutent la milliseconde Scripting la bibliothèque d'exécution à vos références de VBA)
D'ici :
http://www.ozgrid.com/forum/showthread.php?t=58283&page=1WriteTextFile secondaire ()
'Écrivant un dossier des textes using l'objet de système de fichiers dans VBA
'Ce code exige une référence (dans le VBE usine > des références) à Microsoft Scripting le temps d'exécution
Faible FSO comme FileSystemObject
Faible FSOFile comme TextStream
Faible FilePath comme corde
Faible NoOfLoop comme nombre entier
FilePath = « c:\WriteTest.txt » 'créent un dossier de test.txt ou changent ceci
Placer FSO = nouveau FileSystemObject
'ouvre le dossier écrivent dedans le mode
Placer FSOFile = FSO.OpenTextFile (FilePath,
2, vrais)
''lignes s'ajoutantes rondes de boucle
'Pour NoOfLoop = 1 à 10
''écrire votre code ici
'FSOFile.WriteLine (" je suis ligne d'écriture » et NoOfLoop)
'Prochain NoOfLoop
FSOFile.Close
Sous-marin d'extrémité
Encore, armé avec toute cette connaissance, je suis sûr que vous pouvez faire fonctionner votre système comme spécifique.
; -)
JeffCoachman