[Çözüldü] Makro İle Eklenti (xla) Oluşturma ve Aktif Etme

[drejan62]

Merhabalar,
Hazırladığımız bir excel çalışma sayfasını makro yardımı ile otomatik bir şekilde excel eklentisi olmasını sağlayabilirmiyiz.
Teşekkürler

[Bülent Öztürk]

Merhaba Ercan Bey,

Aşağıdaki şekilde dener misiniz?

Kod: [Seç]

Sub Excelce_Eklenti_Olarak_Kaydet()
ThisWorkbook.IsAddin = True
ThisWorkbook.SaveAs Filename:="C:\Documents and Settings\bulent.ozturk\Application Data\Microsoft\AddIns\" & "ExcelceNet.xla" _
, FileFormat:=xlAddIn
End Sub


[drejan62]

Bülent bey olmadı maalesef.

[Bülent Öztürk]

Dosya yolu ve adlarını değiştirdiniz mi?

Şu şekilde kendinize uyarlayın bakalım;

Kod: [Seç]

ThisWorkbook.IsAddin = True
EklentiKlasoru = Environ("APPDATA") & "\Microsoft\Addins\"
DosyaAdi = "Excelce.xla"
ThisWorkbook.SaveAs Filename:=EklentiKlasoru & DosyaAdi, FileFormat:=xlAddIn
AddIns.Add EklentiKlasoru & DosyaAdi


[Bülent Öztürk]

Ekte dosya mevcut.

[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

[drejan62]

Tamamdır üstat sağol

[Bülent Öztürk]

Rica ederim. 

Neymiş peki sorun?

[drejan62]

Rica ederim. 

Neymiş peki sorun?

Sorunun ne olduğunu vallahi anlamadım ne yalan söylimm )

[Bülent Öztürk]

Peki, çözülmüş olmasına bakalım o zaman.