[發問] 模組、表單複制的問題

mickeymiles

請教各位前輩，
如何將excel檔案內的模組或表單，
使用vba的程式，複制到另一個excel檔去呢?
目前想到的方法，是要先export出去後，再import進去
是否還有其他方法呢?
還請各位大大指教，謝謝!!

Hsieh

回復 1# mickeymiles
做成增益集，載入後即可使用於其他EXCEL檔案

mickeymiles

回復 2# Hsieh

增益集載入後，之後開每個excel都會有出現
而目前遇到的東西，不需要每個excel都用到
只有特定的excel有用到，所以並不考慮做增益集

謝謝您~~
目前有找到一個函數add，不過只能增加空白頁，似乎無法直接copy過去!!

mickeymiles

With wb
        Dim UpdateName As String
        For Each meModule In wb.VBProject.VBComponents
            With meModule
                If (.Type = vbext_ct_StdModule And .Name = "Module1")  Then
                          UpdateName = meModule.Name
                    Application.VBE.ActiveVBProject.VBComponents.Remove Application.VBE.ActiveVBProject.VBComponents(.Name)                                                      
                    abook.VBProject.VBComponents(UpdateName).Export "C:\copypaste\" & UpdateName                                                
                    wb.VBProject.VBComponents.Import "C:\copypaste\" & UpdateName
                End If
            End With
        Next
    End With
-----------------------------------------------------------
上面這個程式，是我用export和import來匯入匯出
但是有一個問題，在匯入"Module1"時，excel vba內的模組名稱會被命名為"Module11"
多了一個"1"，其他的都沒有問題，這個是excel的bug嗎?
還請各位答覆，謝謝!!

GBKEE

回復 4# mickeymiles

但是有一個問題，在匯入"Module1"時，excel vba內的模組名稱會被命名為"Module11"

你在匯出 Module 時可先命名 如:"mickeymiles"  在專案中:只匯入一次就不會有 這 "Module11" 的困惱

mickeymiles

回復 5# GBKEE

G大的意思是指在要覆蓋的地方，新增一個module名嗎?
再將要覆蓋的移到那邊是嗎?

mickeymiles

回復 4# mickeymiles
自問自答一下，有存在的module，無法刪掉所以有這個情形會產生
所以好像要另外使用codemodule來達成這個方法

GBKEE

回復 6# mickeymiles

下載 (12.28 KB)

2013-4-11 17:41

mickeymiles

回復 8# GBKEE

再請教一下，關於remove這個函數
使用上是否需要某些設定，才可移除module還是form嗎?
看msdn上，好像並無此種限制
但我在實際使用上，有時候module無法移除，有時候是form無法移除(不同excel)
實在是摸不著頭緒，還請您指點，謝謝!!

GBKEE

回復 9# mickeymiles
請說明,如何無法移除??