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.

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.