- Katılım
- 1 Mart 2005
- Mesajlar
- 22,248
- Excel Vers. ve Dili
-
Win7 Home Basic TR 64 Bit
Ofis-2010-TR 32 Bit
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.
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.
Kod:
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"
Ekli dosyalar
-
254 bayt Görüntüleme: 55