Makrolar ile TXT Dosyası Oluşturma isimli içerikte, ilgili işlemin VBA kodları ile nasıl yapacağınızı öğreten bir Hazır Makro Kodu yer almaktadır.
Hazır Kod
VBA:
Sub Text_Dosyasi_Olustur()
Dim ED, E
Set ED = CreateObject("Scripting.FileSystemObject")
Set E = ED.CreateTextFile("C:ExcelDepoTest.txt", True, False) 'İlk true Overwrite,İkinci False ASCII true olursa Unicode
End SubAçıklama
- Dosya isminden sonra False yazarsak eski bilgilerin üstüne yazılmaz ve “File Already Exists” yani “Dosya Zaten Var” uyarısı gelir.True yazarsak,eski bilgiler silinir,yenileri yazılır.Bu örnekte bilgi yazma kısmına yer vermedik.Bilgi yazma kısmı makalemizin ikinci kısmında,Alt FSO bölümünde bulunmaktadır.
- İkinci kısım False olursa dosya ASCII,True olursa UNICODE olur.
Klasör yolunu kendinize göre ayarlamayı unutmayınız!Faydalanılması temennisiyle