bir ana formdan başka excel çalışma dosyalarının açılması

[elvis]

arkadaşlar benim istediğim;
bir tane excel dosyam var burada ben bir tane anaform oluşturdum. bu anaformun üstüne de başka bir klasörde bulunan dosyalarımı açmak için (herbir dosya için ayrı ayrı) form üzerinde düğme oluşturdum.

ekte gönderdiğim bir tane vbscrip kod dosyası var. ben bunu çalıştırdığımda ilgili dosya hangi klasörde ise o klasördeki dosya açıldığında (makrolar etkinleştirilsin mi? sorusu olmadan) direk olarak açılıyor.

KOD ŞU:

Set WshNetwork = WScript.CreateObject("WScript.Network")
WScript.Echo "PERSONEL PROGRAMI," & WshNetwork.UserName
WScript.Echo "Hazırlayan : Mikail KORKMAZ"
Set NewXL = CreateObject("Excel.Application")
MyWB = "E:\Office\WINDOWS\dosyalar 2\PERSONEL PROGRAMI.xls"
NewXL.workbooks.open MyWB
NewXL.application.run "MyMacro"
NewXL.Visible = True
Set NewXL = Nothing
Set WshNetwork = Nothing

sizlerden istediğim , bu vbscrip kod dosyasını anaform diye oluşturduğum düğmelerden birine atayabilir miyiz?

yardımlarınız için şimdiden teşekkürler...

 

[Haluk]

Script'i aşağıdaki linkten temin ettiniz herhalde.

http://www.excel.web.tr/viewtopic.php?t=12486

Her neyse..... o işin başka tarafı.

Diğer taraftan; söz konusu VBscript dosyasının adı Starter.vbs ise, UserForm üzerindeki CommandButton1 düğmesine tıkladığınızda söz konusu VBScript dosyasının çalışması için aşağıdakini UserForm kod modulüne yerleştirin;

(Kodun yazıldığı dosya ve script, aynı dosya yolunda ise ...)

Private Sub CommandButton1_Click()
    Shell "cmd /C" & "Starter.vbs"
End Sub

Ama benim esas merak ettiğim şey, buna zaten gerek yok ki.

Yani, makroları etkinleştirerek açtığınız bir dosyadan, başka bir dosyayı "Workbooks.Open" ile açarsanız zaten size makro güvenlik uyarısı gelmez. Yani, o scripti kullanmanıza gerek yok.

 

[elvis]

sn haluk bey! ilginize öncelikle teşekkür etmek istiyorum. o kodu bahsettiğiniz linkten temin ettim. benim hazırlamış olduğum personel proğramı isimli dosyayı açmak için kullanıyordum. hazırlamış olduğum personel programında personel bilgileri, icra kişi dosyası, personel izin takip kartı, yıllık izin takip kartı... vb. dosyalar var. ben bu linki inceledim ve düşündüm ki bir excel dosyasında hepsini yerleştirmektense ayrı ayrı excel dosyasını kullanır ve bu linkteki dosyayla o dosyaları açarım diye düşündüm.

(Her neyse..... o işin başka tarafı. )

 

[Levent Menteşoğlu]

Bir klasördeki dosyaları açmak için Haluk üstadımında belirttiğini gibi basit bir workbook.open komutu ile açabilirsiniz. Burada yapmanız gereken dosyaların bulunduğu yolu doğru tanımlamaktır. Örneğin;

[vb:1:38a76995f2]Workbooks.Open Filename:="C:\deneme\icra.xls"[/vb:1:38a76995f2]

 

[elvis]

levent bey ve haluk bey ilginize teşekkürler...
bu arada sitenin 2. yılı tüm arkadaşlara kutlu olsun
iyi ki varsınız!...