将“ThisWorkbook”宏导入另一个工作簿(Import “ThisWorkbook” macro to another Workbook)

 我需要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
 
 这将从“This”工作簿中获取Misc模块，将其导出到temp.bas ，然后将其导入另一个工作簿。 但是我需要它不导入模块，而是导入ThisWorkbook范围。 这是一个Private Sub Workbook_BeforeClose事件。 

I need VBA code to import a procedure into ThisWorkbook scope within another workbook.
 
I have code to import a module into another workbook, but how to import this procedure into ThisWorkbook scope instead of into a module scope?
 
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
 
This takes module Misc from "This" workbook, exports it to temp.bas and then import it to another workbook. However I need it to import not into a module, but into ThisWorkbook scope. It's a Private Sub Workbook_BeforeClose event.

原文：https://stackoverflow.com/questions/46584030