Excel'den metin dosyaları oluştur otomatikleştirme

Question

Farklı kimlik içeren ayrı metin dosyaları oluşturmanın her yolu. Ben metin dosyaları içeriği ile ismini vermek istiyorum: 'Ve ' "Starting_Year Örneğin

.

Starting_Year Code  ID 
------------------------------------ 
1982   ALLRIN  400200583 
1983   ALLRIN  000083522 
1983   ALLRIN  400200583 

bu iki metin adında dosyalar, oluşturulacak '1982',' 1983 1982' dosyası "400200583", aynı zamanda "1983" dosyası "000083522" içerir ve "400200583" içerir.

Answer 1

Bunun için scripting.FileSystemObject kullanırsınız. Temelde

, bir FileSystemObject nesnesi oluşturmak ve bir döner dosya oluşturmak Metin Akışı: TextStream nesnesini kullanarak yazabilirsiniz. kullanmak için veri ...

fonksiyonudur:

Public Function CreateTextFile(FileName As String, Optional Overwrite As Boolean = True, Optional Unicode As Boolean = False) As Scripting.TextStream 
End Function 

Bir isim tedarik ve benzeri bir şey aramak: yardımcı

Dim oTs as Scripting.TextStream 
set oTs = CreateTextFile(......) 
oTs.Write(....) 

Hope.