小编Jud*_*deD的帖子

我在工作簿A中有一个宏调用工作簿B中的宏.我希望工作簿B中的宏运行,然后我想关闭工作簿B.我一直收到一个错误,说我无法找到我要运行的宏工作簿B.我在这方面几乎是一个新手,但我做了一个非常彻底的搜索,并且无法自己想出任何东西.这是我的全部代码.

Public Sub InputDept()


Dim Cap As Workbook
Dim Cap2 As String

On Error Resume Next
Set Cap = Workbooks("NGD Source File for Net Budget Reporting.xlsx")
Cap2 = Cap.Name
On Error GoTo 0

Dim wb As Workbook
Dim Cap1 As Variant

Application.ScreenUpdating = False
If Cap Is Nothing Then
Cap1 = Application.GetOpenFilename("Excel Files(*.xl*)," & "*.xl*", 1)
    If Cap1 = False Then
    Exit Sub
    End If
Set wb = Workbooks.Open(Cap1)
Cap2 = ActiveWorkbook.Name
Else
Workbooks(Cap2).Activate
End If


Sheets("Dept Summary").Activate


Cells.Find(What:="Direct", after:=ActiveCell, …