Orion1
13-02-2010, 19:25
Merhaba
eklediğim vbs dosya ile yeni bir excel dosyası oluşturup a1 hücresine evern yazıyor.
Bunu not defteri ile yazabilirsiniz.Farklı kaydet deyip uzantısını vbs yapınız.
Bu dosyay açmak içinde sağ tıklayın.Birlikte açı tıklatın.oaradan not defteri seçin.Kodları göreceksiniz.Dosyayı C:\ kök dizininde oluşturuyor.İsterseniz siz kodda oynayarak başka bir klasördede oluşturabilirsiniz.
set nwxl=createobject("Excel.application")
nwxl.visible=true
nwxl.Workbooks.Add.saveas("C:\Evren14.xls")
set yaz = nwxl.activeworkbook.sheets("Sayfa1")
yaz.range("A1").value="evren22"
eklediğim vbs dosya ile yeni bir excel dosyası oluşturup a1 hücresine evern yazıyor.
Bunu not defteri ile yazabilirsiniz.Farklı kaydet deyip uzantısını vbs yapınız.
Bu dosyay açmak içinde sağ tıklayın.Birlikte açı tıklatın.oaradan not defteri seçin.Kodları göreceksiniz.Dosyayı C:\ kök dizininde oluşturuyor.İsterseniz siz kodda oynayarak başka bir klasördede oluşturabilirsiniz.
set nwxl=createobject("Excel.application")
nwxl.visible=true
nwxl.Workbooks.Add.saveas("C:\Evren14.xls")
set yaz = nwxl.activeworkbook.sheets("Sayfa1")
yaz.range("A1").value="evren22"
