Kapalı dosyaya makro kodu yazmak.

[dEdE]

Merhaba,
Buradan öğrendiklerimle kapalı dosyaya veri gönderip, alabiliyorum.
Bu defa kapalı dosyanın ThisWorkbook sayfasına makro kodu yazdırmam(göndermem) gerekiyor.
Forumda yaptığım aramalarda bu konuya ilişkin bilgi bulamadım.
Yardımcı olabilir misiniz?

 

[bedersu]

Sayın dEdE,
Öncelikle bir txt dosyasına aşağıdaki kodları yapıştırın:

Attribute VB_Name = "ThisWorkbook"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Private Sub Workbook_Open()
MsgBox "Deneme"
End Sub

Daha sonra da aşağıdaki kodlarla oluşturduğunuz txt dosyasından kodları alın:

Sub procedure_ekle()
    Dim yxls As New Excel.Application
    Dim ywrkb As New Excel.Workbook
    kod = "D:\KAYITcode.txt"
    Set ywrkb = yxls.Workbooks.Open("D:\KAYIT\Module kopyala2.xls")
    ywrkb.VBProject.VBComponents("ThisWorkbook") _
.CodeModule.AddFromFile kod
    ywrkb.Save
    ywrkb.Close
    Set yxls = Nothing
    Set ywrkb = Nothing
End Sub

Buradaki kodlarla ADO uygulamasında olduğu gibi kapalı dosyaya veri yazılmıyor.Kitap açılıyor fakat hiçbir şekilde kullanıcı tarafından görülmüyor.Umarım işinize yarar.ADO ile yapmaya çalıştım fakat yapamadım.Bunu yapabilen arkadaşlar çıkarsa cevaplarını ben de merakla bekliyorum.

 

[dEdE]

Teşekkürler Sayın bedersu,

İşime yaradı. Sorun çözüldü.
Sizin de dediniz gibi, farklı yöntemlerle yapabilen excel dostları çıkarsa yanıtları görmekten mutlu olurum.

Saygılar.

 

[halit3]

Farklı bir yaklaşimla aşağıdaki linkdeki (makroları modüllere aktar örnek.rar) dosyasına bakabilirsiniz.


http://www.excel.web.tr/f135/modullerin-icindeki-makrolaryn-deoi-tirilmesi-t66713/post363245.html

 

[dEdE]

Sayın Özdemir,

Gerçekten çok güzel ve öğretici bir çalışma olmuş.
Teşekkürler.

 

[halit3]

Sayın Özdemir,

Gerçekten çok güzel ve öğretici bir çalışma olmuş.
Teşekkürler.

Teşekkürler iyi çalışmalar