- Katılım
- 22 Haziran 2009
- Mesajlar
- 165
- Excel Vers. ve Dili
- ofis 365
Arkadaşlar merhaba
vbs kodları ile excel dosyamı açıyorum ama açılan dosya görünüyor. Ama diğer dosyadan makro ile veri almaya çalıştığımda kodlar tarafından dosya bulunamıyor. sanki dosya açık değilmiş gibi. Vbs kodlarını aşağıya yazdım. yardımcı olursanız sevinirim.
Set objExcel = CreateObject("Excel.Application")
objExcel.Application.Visible = True
Set objWorkbook = objExcel.Workbooks.Open("C:\Users\dt\Desktop\arc 2018.xls",0,false)
objWorkbook.activate
Set objExcel= nothing
Set objWorkbook =nothing
vbs kodları ile excel dosyamı açıyorum ama açılan dosya görünüyor. Ama diğer dosyadan makro ile veri almaya çalıştığımda kodlar tarafından dosya bulunamıyor. sanki dosya açık değilmiş gibi. Vbs kodlarını aşağıya yazdım. yardımcı olursanız sevinirim.
Set objExcel = CreateObject("Excel.Application")
objExcel.Application.Visible = True
Set objWorkbook = objExcel.Workbooks.Open("C:\Users\dt\Desktop\arc 2018.xls",0,false)
objWorkbook.activate
Set objExcel= nothing
Set objWorkbook =nothing