VBA Kopyalama Modülünü bir Çalışma Kitabından diğerine aktarın

Soruyu okuduğunuz için teşekkürler. Ben adım hit "ActiveWorkbook.VBProject.VBComponents (" Coexis_BitAND" en kısa sürede kod adım ne zaman,VBA Kopyalama Modülünü bir Çalışma Kitabından diğerine aktarın

  ThisWorkbook.Activate 
     ActiveWorkbook.VBProject.VBComponents("Coexis_BitAND").Export ("c:\Coexis_BitAND.bas") 
     wbNew.Activate 
     ActiveWorkbook.VBProject.VBComponents.Import ("c:\Coexis_BitAND.bas")

Ancak başka bir yeni çalışma kitabına bir çalışma kitabından bir modül ihraç otomatik bir komut dosyası oluşturmak çalışıyorum) .Export ("c: \ Coexis_BitAND.bas") "OnError Goto'larımdan birine atlıyor.

ben bunu yapmak mümkündür okumak ama, ben VBA

kaynak

2016-04-05 Rick FlyFish

Makro güvenlik nedir ** Güven ** ayar (lar) ** ?? ** –

O devre dışı bırak bildirim –

ve Turst erişimi olan tüm makroları VBA Projesi nesne modeli aşağıdaki gözden geçirin –

ile deneyim benim eksikliği gibi basit bir şey olması bazıları kez sahiptir eminim sen cant adımı çalışan bir şey bulmak için henüz ettik VBIDE'ı programlarken kod aracılığıyla. Kodunuz% 100 olsa bile, Adım Err olacaktır.

& numaralı hatanın bulunduğu yere sadece bir Durdur, bırakın Durdur'a bırakın. Kodunuzda hala bir Hata olursa. Sen Chips fonksiyonu kullanarak kodunuzu doğrulayabildi: Her iki çalışma kitapları aynı anda açık olduğunu varsayarsak

kaynak

2016-04-06 05:41:17 ShaggyRogers

, bu orijinal cevabını, işlenmiş bulunan bu ne için teşekkür denemeye

Dim comp as VBComponent 
Set comp = ThisWorkbook.VBProject.VBComponents("Coexis_BitAND") 
Workbooks("otherWorkbookName").VBProject.VBComponents.add comp

kaynak

2016-04-06 06:24:59 Gerneio

Yup, VBIDE bileşeninin önünde VBIDE eklemeniz gerekebilir. Bu yüzden VBIDE.VBComponent – ShaggyRogers

gibi görünebilir. Belki de benimki her zaman onsuz çalıştı. – Gerneio

Seçenek Açık değişken gibi görünüyor. Onsuz VBComponent iyi. Bununla birlikte VBIDE parçasını eklemeliyiz. – ShaggyRogers

vermek tüm yardımlar.

 If DUTs = 0 Then 
     '----- WARNING VBA Macro Settings must Trust access to VBA Project Object Models. 
     '----- Antivirus may detect this action and delete this file! 
     filePath = ActiveWorkbook.Path 
     ThisWorkbook.Activate 
     ActiveWorkbook.VBProject.VBComponents("Coexis_BitAND").Export (filePath + "\Coexis_BitAND.bas") 
     wbNew.Activate 
     ActiveWorkbook.VBProject.VBComponents.Import (filePath + "\Coexis_BitAND.bas") 

    End If

kaynak

2016-04-07 15:02:26

VBA Kopyalama Modülünü bir Çalışma Kitabından diğerine aktarın

cevap

İlgili konular