Vba 进口；本工作手册；将宏复制到其他工作簿

我需要VBA代码将过程导入另一个工作簿中的

ThisWorkbook

范围

我有将模块导入另一个工作簿的代码，但是如何将此过程导入到

ThisWorkbook

范围而不是模块范围

Sub TransferModule()
    Const modul As String = "Misc"
    Const tempfile As String = "/Users/Roman/Desktop/temp.bas"

    Dim WBK As Workbook

    On Error Resume Next

    Set WBK = Workbooks.Add

    ThisWorkbook.VBProject.VBComponents(modul).Export tempfile

    WBK.VBProject.VBComponents.Import tempfile

    Kill tempfile
End Sub

---

这将从“此”工作簿中获取模块

Misc

，将其导出到

temp.bas

，然后将其导入另一个工作簿。但是，我需要它不是导入到模块中，而是导入到

ThisWorkbook

范围中。这是一个

私有子工作簿\u在关闭之前

事件。

而不是创建具有以下内容的新工作簿：

Set WBK = Workbooks.Add

考虑使用类似于：

Sub lkjhgf()
    ThisWorkbook.SaveCopyAs ("C:\Users\Garys\Desktop\new.xlsm")
End Sub

新创建的工作簿将具有原始工作簿的所有

thiswoolk

代码

（当然，你可能需要做更多的清理工作来删除不需要复制的内容。）

编辑#1:

请参见Vogelaar的回答：

---

谢谢，不过我有一个宏，可以将SheetA从主工作簿复制到新工作簿，在这个新工作簿中，如果可能的话，我需要将私有子工作簿添加到“ThisWorkbook”中。这是我在初级练习册中不需要的私人潜水艇。