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

Katılım
24 Şubat 2006
Mesajlar
130
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

Özel Üye
Katılım
7 Temmuz 2004
Mesajlar
12,406
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Altın Üyelik Bitiş Tarihi
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 ...)

Kod:
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.
 
Katılım
24 Şubat 2006
Mesajlar
130
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

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
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]
 
Katılım
24 Şubat 2006
Mesajlar
130
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!...
 
Üst