vbs kodları ile excel dosyası açma

[zevki.sefali]

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

 

[turist]

Kodlarınızla iki dosya arasında nasıl bir işlem yapmak istediğinizi bilmediğimiz için, belki tam çözüm değil ama ;
objExcel.Application.Visible = False
şeklinde deneyin.
Olmazsa; kodlarınızın tamamını paylaşırsanız, daha net ve hızlı çözüm olabilir.

 

[zevki.sefali]

Kodlarınızla iki dosya arasında nasıl bir işlem yapmak istediğinizi bilmediğimiz için, belki tam çözüm değil ama ;
objExcel.Application.Visible = False
şeklinde deneyin.
Olmazsa; kodlarınızın tamamını paylaşırsanız, daha net ve hızlı çözüm olabilir.

Turist Bey Merhaba
objExcel.Application.Visible = False
kodunu kullandığımda dosya açılıyor ama görünmüyor. Başka bir dosya açtığımda görünmeye başlıyor.
iki dosya arasında işlem şu şekilde:
arc 2018.xls dosyasında oluşturduğum makro kodları var ve bu kodlarla export.xlsx dosyasından veri alıyorum.
eğer arc2018.xls dosyasını vbscript kodları ile açarsam export.xlsx dosyasını görmüyor.
Windows("export.xlsx").Activate satırı hata veriyor.
Umarım anlata bildim

 

[Haluk]

Sizin VBS ile oluşturduğunuz objExcel nesnesi, arc2018 dosyasını açıyor ama export.xls dosyası objExcel ile açılmadığı için dosyalar birbiri ile haberleşemiyor.

İsterseniz, objExcel ile her 2 dosyayı da açıp deneyin.

Bu arada.... bu iş için neden VBS kullanıyorsunuz ki?

.

 

[zevki.sefali]

Sizin VBS ile oluşturduğunuz objExcel nesnesi, arc2018 dosyasını açıyor ama export.xls dosyası objExcel ile açılmadığı için dosyalar birbiri ile haberleşemiyor.

İsterseniz, objExcel ile her 2 dosyayı da açıp deneyin.

Bu arada.... bu iş için neden VBS kullanıyorsunuz ki?

.

aynen anlattığınız gibi ikisi bir biri ile haberleşemiyor. vbs yi araç çubuğuna kısa yol yapıp dosyayı daha rahat ve zahmetsiz açmak için kullanıyorum. ama makrolar bu kez işlevsiz kalıyor

 

[Haluk]

........ ama makrolar bu kez işlevsiz kalıyor

Ekli Desktop.rar dosyası içindeki hazırlamış olduğum ekli dosyaları incelerseniz, makroları çalıştırabilirsiniz.

Bunun için, Test.xlsm dosyasını bilgisayarınızda C:\TestFolder\Test.xlsm olacak şekilde yerleştirin, dosya kapalı durumda olsun.

Daha sonra, Starter.vbs dosyasını çalıştırın. Bu VBS dosyası söz konusu Excel dosyasını açıp, dosyadaki AutoOpen makrosunu çalıştıracaktır.

Dosyayı aşağıdaki linkten de indirebilirsiniz....

https://drive.google.com/open?id=10xkf9jUcAi87ua35lewz-ANFXU6hcU0s

.

 

[zevki.sefali]

Ekli Desktop.rar dosyası içindeki hazırlamış olduğum ekli dosyaları incelerseniz, makroları çalıştırabilirsiniz.

Bunun için, Test.xlsm dosyasını bilgisayarınızda C:\TestFolder\Test.xlsm olacak şekilde yerleştirin, dosya kapalı durumda olsun.

Daha sonra, Starter.vbs dosyasını çalıştırın. Bu VBS dosyası söz konusu Excel dosyasını açıp, dosyadaki AutoOpen makrosunu çalıştıracaktır.

Dosyayı aşağıdaki linkten de indirebilirsiniz....

https://drive.google.com/open?id=10xkf9jUcAi87ua35lewz-ANFXU6hcU0s

.

Haluk Bey
Çok sağolun. Elinize sağlık.

 

[Haluk]

Kolay gelsin ...

.