xlam dosyasını Eklenti olarak ilgili AddIns Klasörünü Makro İle

[htsumer]

Kendi Pc'demde AddIns klasöründe yaziyla.xlam dosyası var. Fakat Excel açılırken c:/devamsızlı klasörü içindeki bu yaziyla.xlam dosyasını nasıl AddIns klasörüne kopyalayabilirim.

Her pcde User kullanıcı yolu değişik olduğundan yapamadım. Örneğin bendeki yok

C:\Users\tugrul\AppData\Roaming\Microsoft\AddIns

Bu her pcde farklı oluyor.
Excel açılırken C'deki devamsızlık klasör içindeki yaziyla.xlam dosyasını alacak
C:\Users\xxxxxxxxx\AppData\Roaming\Microsoft\AddIns klasörüne kopyalayacak.

Teşekkürler

 

[Muzaffer Ali]

Kullanıcı adı ile bulmak için

"C:\Users\" & Environ("Username") &"\AppData\Roaming\Microsoft\AddIns"

 

[halit3]

Alternatif kod:

Sub deneme()


son = 0
Set WshShell = CreateObject("wscript.Shell")
For Each strFolder In WshShell.SpecialFolders


deg1 = Split(strFolder, "\")
For i = 0 To UBound(deg1)
If deg1(i) <> "" Then


If "Application Data" = Trim(deg1(i)) Then
kayıt_yeri = strFolder & "\Microsoft\AddIns"
son = 1
Exit For
End If

If "AppData" = Trim(deg1(i)) Then
kayıt_yeri = strFolder & "\Microsoft\AddIns"

son = 1
Exit For
End If



End If
Next i
If son = 1 Then Exit For
Next


Dim DosyaSistemi
Set DosyaSistemi = CreateObject("Scripting.FileSystemObject")

dosya2 = "yaziyla.xlam" 'dosyanızın adı buraya yazılacak
dosya = ThisWorkbook.Path & "\" & dosya2 ' dosyanızın yeri kodu kullanacağınız dosyanın yanında olacak.

If DosyaSistemi.FileExists(dosya) = False Then
Exit Sub
End If


If DosyaSistemi.FileExists(kayıt_yeri & "\" & dosya2) = False Then
DosyaSistemi.CopyFile dosya, kayıt_yeri & "\" & dosya2
End If


End Sub

 

[htsumer]

Halit bey, teşekkür ederim. Bahse konu dosya kodlarla addins klasörüne eklendi. Bu kodları kendi pc'de denedim başka bir pc de sorun olmaz değilmi?

Ayrıca mesajların çıkmasını istemiyorum ve bu ilk çalıştırıldığında addins dosyasına kopyalayacak, dosya her açılışta kopyalama yapmayacak. Dolayısıyla "Bu dosyadan var ikazıda olmamış olacak.

İşin özeti şöye, Dosyam kurulum dosyası ile başlıyor. Kurulum sırasında c de klasör açılıyor ve yardım vs dosyalarını bu klasöre atıyor. Kurulum bitince excel çalıştırıldığında .xlam dosyası bir kere addins klasörüne kopyalanacak. Çunkü TL çevir her bilg. olmadığı için bu eklentiyi eklemek zorundayım.

Özet:
1- Excel ilk çalıştırıldığında xlam uzantılı eklenti AddIns kopyalanacak
2- Kopyalama yada açılırken ki mesajlar gelmeyecek
3- Kopyalama işlemi ilk açılışta ve bir kere olacak. Daha sonraki açılışlarda kopyalama olayı olmayacak.

 

[assenucler]

Sayın halit3,


Hayırlı Cuma'lar.

Katkınız için teşekkürler.

Sevgi ve saygılar.

 

[halit3]

Halit bey, teşekkür ederim. Bahse konu dosya kodlarla addins klasörüne eklendi. Bu kodları kendi pc'de denedim başka bir pc de sorun olmaz değilmi?

Ayrıca mesajların çıkmasını istemiyorum ve bu ilk çalıştırıldığında addins dosyasına kopyalayacak, dosya her açılışta kopyalama yapmayacak. Dolayısıyla "Bu dosyadan var ikazıda olmamış olacak.

İşin özeti şöye, Dosyam kurulum dosyası ile başlıyor. Kurulum sırasında c de klasör açılıyor ve yardım vs dosyalarını bu klasöre atıyor. Kurulum bitince excel çalıştırıldığında .xlam dosyası bir kere addins klasörüne kopyalanacak. Çunkü TL çevir her bilg. olmadığı için bu eklentiyi eklemek zorundayım.

Özet:
1- Excel ilk çalıştırıldığında xlam uzantılı eklenti AddIns kopyalanacak
2- Kopyalama yada açılırken ki mesajlar gelmeyecek
3- Kopyalama işlemi ilk açılışta ve bir kere olacak. Daha sonraki açılışlarda kopyalama olayı olmayacak.

Kodun mesaj bölümlerini silmeniz yeterli

 

[htsumer]

Evet denedim de kopyalama yapmadı bir yerde hata yaptım sanırım neyse hallederim sağolun.

 

[halit3]

Evet denedim de kopyalama yapmadı bir yerde hata yaptım sanırım neyse hallederim sağolun.

3 nolu mesajdaki kodu güncelledim.

 

[htsumer]

Teşekkür ederim. Isyerimde test edip dönerim salı inşallah.

 

[htsumer]

Halit bey elinize sağlık. Kodlar gayet güzel oldu. Teşekkür eder Hayırlı günler dilerim.