- Katılım
- 1 Mart 2005
- Mesajlar
- 22,254
- Excel Vers. ve Dili
-
Win7 Home Basic TR 64 Bit
Ofis-2010-TR 32 Bit
Merhaba
aşağıdaki kodlar ile not defteri ile vbs dosyası oluşturdum.
Amacım vbs dosya ile xls dosyasını çalıştırmak.
Önce bilgisayarda Excel kurulumu değilmi ,sorgulamak.
Kurulu değilse Excel kurulu değil diye mesaj vermek,
Kurulu ise xls dosyasını çalıştırmak.
Vbs dosyayı Excel'in kurulu olmadığı bir bilgisayarda denedim.
6ncı satırda hata verdi!Vbs dosya Excel'in kurulu olduğu bilgisayarda çalışıyor.
Excel'in kurulu olmadığı bir bilgisayarda Excel kurulu değil diye mesaj alabilmem için nası bir kod yazmalıyım?
aşağıdaki kodlar ile not defteri ile vbs dosyası oluşturdum.
Amacım vbs dosya ile xls dosyasını çalıştırmak.
Önce bilgisayarda Excel kurulumu değilmi ,sorgulamak.
Kurulu değilse Excel kurulu değil diye mesaj vermek,
Kurulu ise xls dosyasını çalıştırmak.
Vbs dosyayı Excel'in kurulu olmadığı bir bilgisayarda denedim.
6ncı satırda hata verdi!Vbs dosya Excel'in kurulu olduğu bilgisayarda çalışıyor.
Excel'in kurulu olmadığı bir bilgisayarda Excel kurulu değil diye mesaj alabilmem için nası bir kod yazmalıyım?
Kod:
Set WshNetwork = WScript.CreateObject("WScript.Network")
'WScript.Echo "Merhaba," & WshNetwork.UserName
Set NewXL = CreateObject("Excel.Application")
If NewXL Is Nothing Then
MsgBox "Excel kurulu değil",vbcritical,"E V R E N"
else
MyWB = "C:\SAYISAL-LOTO\Sayisal-Loto.xls"
NewXL.Workbooks.Open MyWB
NewXL.Application.Run "Auto_Open"
'NewXL.Visible = True
Set NewXL = Nothing
Set WshNetwork = Nothing
end if