Bir excel.xlsm dosyasından başka bir xlsm dosyasının içindeki vb kodu değiştirmek

[maxfree]

Merhabalar,

200 adet içerikleri farklı ancak kod kısımları aynı olan dosyam var.

Yardımcı bir xlsm dosyası oluşturup diğer 200 adet dosyanın içindeki vb kodlarında güncelleme yapmak istiyorum.
Excel hücrelerinin tamamını kontrol edebiliyorum.
Directory, filename vs hepsini hallettim. Dosyaları buldurabiliyorum, açtırabiliyor ve hücrelerdeki değerleri güncelleyebiliyorum.
Fakat dosyaların içindeki vb kodlarına ulaşamıyorum.
Nasıl bir yol izleyebilirim ?.

 

[maxfree]

Bir Kısmını çözdüm.

Siteden biraz araştırma yapınca aşağıdaki komutları buldum. Çalışıyorlar.
Yalnız amacım satır satır değil de tüm o subrutini değiştirmek.
Beceremez isem satır satır halledeceğim.

Lütfen deletelines olan satıra dikkat edin vb kodunuzun içindeki veriyi silebilirsiniz !
Çok detaya girmeden daha sonra ihtiyaç duyacaklar için kısaca yazıyorum.
Forumda ActiveSheet yazarken boşluk kaldı. ActiveSheet i boşluksuz yazın!

VB Kodunu okuyup bir değişken ile almak için;
C = ThisWorkbook.VBProject.VBComponents(Worksheets(ActiveSheet.Name).CodeName).CodeModule.Lines(T, 1)

VB Kodunda satır silmek ve eklemek için;
ThisWorkbook.VBProject.VBComponents(Worksheets(ActiveSheet.Name).CodeName).CodeModule.DeleteLines 1
ThisWorkbook.VBProject.VBComponents(Worksheets(ActiveSheet.Name).CodeName).CodeModule.InsertLines 1, "Deneme=Deneme"