Makro İle Text Dosyasına Kayıt Hk.

[kaptanangel]

Aşağıdaki olayı gerçekleştiremedik. Birçok makro yazan arkadaşlar başaramadı.Yardımcı olursanız sevinirim.....Şimdiden teşekkürler



txt dosyasına kayıt edilecek tablo sarı alan hariç


sdlsd 1/2/2005 121 1 @
sdfsdfsd 2/2/2005 ewr wer 223 3 @
sdfwer 3/2/2005 we r 34 3 @
ewrwerewrw 4/2/2005



Her kolon en büyük karakter sayına göre sabitlenecek.
Her kolon arasındaki boşluk verilecek sayıya göre startdart bırakılacak.
Bazı kolonlar birleştirelecek örneğin j ve k bileşik kayıt edilecek.
Tarih arasındaki / çıkarılıp kayıt edilecek.





sub kaydet()
dim veri1 as string 'değişken atanacak en büyük karakter uzunluğu
dim veri2 as stirng

fname="c:\text.txt"

open fname for output as #1
for sut =1 to 1
for alan =1 to cells(65536.1).end(3).row
veri1=cells(alan,1)
veri2=cells(alan,2)

print #1 , veri1,veri2

next
next
close#1
end sub