麻辣家族討論版版 - Powered by Discuz! Board

標題: [發問] 模組、表單複制的問題 [打印本頁]

作者: mickeymiles 時間: 2013-4-9 13:48 標題: 模組、表單複制的問題

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

作者: Hsieh 時間: 2013-4-9 14:14

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

作者: mickeymiles 時間: 2013-4-9 15:32

回復 2# Hsieh

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

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

作者: mickeymiles 時間: 2013-4-9 16:19

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 時間: 2013-4-10 18:40

回復 4# mickeymiles

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

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

作者: mickeymiles 時間: 2013-4-11 10:47

回復 5# GBKEE

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

作者: mickeymiles 時間: 2013-4-11 14:38

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

作者: GBKEE 時間: 2013-4-11 17:41

回復 6# mickeymiles

[attach]14639[/attach]

作者: mickeymiles 時間: 2013-4-16 09:29

回復 8# GBKEE

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

作者: GBKEE 時間: 2013-4-16 13:45

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

歡迎光臨麻辣家族討論版版 (http://forum.twbts.com/)