Personal.xls ye modül ekleme

[bmutlu966]

Başka bir çalışma sayfasındaki bir modülü personal.xls ye makro ile nasıl ekleyebilirim ?

 

[haso_excel]

Neden makro ile yapıyordunuz. Kopyalayacğınız çalışma kitabını açın. Vba editörüne geli kopyalayacağınız modulu tutup ilgili dosyanın VBAproject inin üzerine bırakın kopyalanır.

 

[bmutlu966]

Bunu ben yapabilirim tabiiiki. Ancak Excel'den hiç anlamayan birileri sadece bir makro tuşuna basarak bunu kendi bilgisayarlarında yapması gerekecek.

 

[bmutlu966]

'Makro ile Import için;

Sub import_form()
Application.VBE.ActiveVBProject.VBComponents.Import ("C:\Module2.bas")
End Sub

Yukarıdaki kodlarla C:\altında bulunan Module2.bas dosyası Aktif olan çalışma sayfası altına ekleniyor.

Bu kod da ActiveVBProject kısmı Personal.xls yi işaret edecek şekilde nasıl yazılabilir ?

 

[bmutlu966]

Bu konuda bir fikri olan uzman arkadaşımız yokmu acaba ?

 

[halit3]

Bu konuda bir fikri olan uzman arkadaşımız yokmu acaba ?

ekli dosyaya bir bakınız.
textbox nesnesine gerekli makronuzu yazınız
komut düğmesine tıklayınız açılan pencereden makroyu ekliyeceğiniz dosyayı seçiniz.

 

[bmutlu966]

İlgin için çok teşekkürler. Ancak bunu kullanacak olan kişiler bilgisayarlarındaki Personal.xls yi genede bulamazlar. Bu dosyanın bulunduğu yolu otomatik buldurabilirmiyiz ?

 

[bmutlu966]

Personal.xls dosyasından kasdım. Xp de

C:\Documents and Settings\Kullanıcı ismi\Application Data\Microsoft\Excel\XLSTART
yolunda bulunan dosya...

 

[halit3]

Personal.xls dosyasından kasdım. Xp de

C:\Documents and Settings\Kullanıcı ismi\Application Data\Microsoft\Excel\XLSTART
yolunda bulunan dosya...

bunun yerine

AD = Application.GetOpenFilename

bunu yaz

AD = "C:\Documents and Settings\Kullanıcı ismi\Application Data\Microsoft\Excel\XLSTART\Personal.xls"

 

[bmutlu966]

Verdiğim zahmet için çok çok teşekkürler.