Vbscript ile excel4 makro ile veri almak

[Orion1]

Merhaba arkadaşlar.
Vbscript ile excel4makro kullanarak kapalı excel dosyasından veri alıp txt dosyasına yazdırma işini yaptım.
Kodlar aşağıdadır ve dosya ekide aşağıdadır.:cool:
sub excelden_veri_al
Dim fso, xl,f
set fso = createobject("Scripting.FileSystemObject")
set xl = createobject("Excel.Application")
yol = fso.GetAbsolutePathName("") & "\"
son = xl.ExecuteExcel4Macro("COUNTA('" & yol & "[Test.xls]Sayfa1'!C1)")
Const ForReading = 1, ForWriting = 2
Set f = fso.OpenTextFile(yol & "\Excelden_Veri_al.txt", ForWriting, True)
f.WriteBlankLines 2
f.WriteLine "================================================== ==============================================="
f.writeblanklines 1
f.writeline " H A Z I R L A Y A N E V R E N G İ Z L E N 01.10.2009 "
f.writeline ""
f.writeline "Bu Program kapalı excel dosyasından veri alır"
f.writeblanklines 1
f.WriteLine "================================================== ==============================================="
f.writeblanklines 2
for k = 1 to son
for i = 1 to 3
deg = deg & xl.ExecuteExcel4Macro("'" & yol & "[Test.xls]Sayfa1'!R" & k & "C" & i) & vbtab
next
f.writeline deg
deg=""
next
CreateObject("Shell.Application").Open yol & "Excelden_Veri_al.txt"
end sub
call excelden_veri_al

[hamitcan]

Elinize sağlık Evren bey, ufkumuzu oldukça genişlettiniz. Yalnız
call excelden_veri_ satırı açıkta mı kalmış acaba ?

[Orion1]

Elinize sağlık Evren bey, ufkumuzu oldukça genişlettiniz. Yalnız
call excelden_veri_ satırı açıkta mı kalmış acaba ?
Evet hamit bey haklısınız.
Ekli dosyada problem yokta kodları copy paste yaparken tam kopyalayamamışıkç.
Teşekkür ederim.Durumu düzelttim.