相关疑难解决方法(0)

我正在尝试找到我的代码崩溃的行号,但是这个网站上的许多解释似乎对我的级别来说很复杂.

我的代码基本上如下,我不知道它在哪里打破.

Sub1   
    Call function1  
    Call function2  
End Sub  

该网站上的其他答案似乎只是一个简短的功能.但我不知道在我的代码中调用函数的位置或者如何获取弹出消息.如果我打算将我的sub1代码放入他们的函数中,我也不知道在哪里.初学者在这里.

我正在尝试创建一个用于创建其他 .xlsm 工作簿的工作簿，但无法弄清楚如何获取我需要的模块，以便我可以添加它们。

我的代码如下（根据此处给出的答案进行修改：如何以编程方式添加 excel 2010 宏）

我需要帮助的地方是在 ImportModules 子中，通过注释'LIST MODULES HERE

如何获取当前工作簿中的模块数组？

Private Sub SVAmaker_Click()

    Dim file As String
    file = InputBox("SVA Planner file name", "Name", "Name")

    Application.DefaultSaveFormat = xlOpenXMLWorkbookMacroEnabled
    Workbooks.Add
    ActiveWorkbook.SaveAs filename:=file

    Dim WB As Workbook
    WB = ActiveWorkbook
    Call ImportModules(VBA.CStr(WB))

End Sub

Sub ImportModules(sWorkbookname As String)

    Dim cmpComponents As VBIDE.VBComponents
    Dim wbkTarget As Excel.Workbook

    Set wbkTarget = Workbooks.Open(sWorkbookname)

    If wbkTarget.VBProject.Protection = 1 Then
        Debug.Print wbkTarget.Name & " has a protected project, cannot import module" …