從另一個工作簿運行宏

Question

我在工作簿 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, LookIn:=xlFormulas, _
    LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
    MatchCase:=False, SearchFormat:=False).Offset(1, 0).Select

Range(Selection, Selection.End(xlDown)).Select

Dim cRng As Range
Dim dRng As Range

Set dRng = Selection

For Each cRng In dRng
If cRng.Interior.ThemeColor = xlThemeColorAccent3 Then


    Dim mCalc As String
    Dim mSum As Workbook

    On Error Resume Next
    Set mSum = Workbooks("Master Calc with Macro.xlsm")
    mCalc = mSum.Name
    On Error GoTo 0

    Application.ScreenUpdating = False
    If mSum Is Nothing Then
        mSum1 = Application.GetOpenFilename("Excel Files.xl*),"& "*.xl*", 1)
    If mSum1 = False Then
        Exit Sub
    End If
        Set wb1 = Workbooks.Open(mSum1)
        mCalc = ActiveWorkbook.Name
    Else
        Workbooks(mCalc).Activate
    End If

    cRng.Copy

    Workbooks(mCalc).Activate
    Sheets("Data").Select
    Range("A5").Select

    Selection.PasteSpecial Paste:=xlPasteValues
    Sheets("Report").Activate

    Workbooks(mCalc).Application.Run ("!SummarizeMaster")

    Sheets("Report").Select
    ActiveSheet.Copy
    Cells.Select
    Cells.Copy
    Selection.PasteSpecial Paste:=xlPasteValues
    ActiveWorkbook.SaveAs _
        Filename:=Application.ThisWorkbook.Path & "\" & Format(Date -        28, "MMM") & " Files\" & Left(cRng, 7) & ".xlsx"

    ActiveWorkbook.Close

    Workbooks(mCalc).Close savechanges:=False

End If
Next cRng



End Sub

Answer 1

這一行：

Workbooks(mCalc).Application.Run ("!SummarizeMaster")

需要稍微改變一下。 您需要在單引號內包含工作簿的名稱，即使看起來您正在使用Workbooks(mCalc)指定正確的工作Workbooks(mCalc) ：

Workbooks(mCalc).Application.Run ("'Master Calc with Macro.xlsm'!SummarizeMaster")

您實際上可以將其縮短為：

Application.Run ("'Master Calc with Macro.xlsm'!SummarizeMaster")

Answer 2

如果宏需要使用運行宏的工作簿路徑來查找相對宏路徑，並且需要從數組列表中運行多個宏，則以下代碼將有所幫助：

Dim relativePath As String, programFileName As String
Dim selectedProgramsFiles() As String, programsArrayLastIndex As Byte, I As Byte

For I = 0 To programsArrayLastIndex 'Loop through all selected programs
    programFileName = selectedProgramsFiles(I)
    relativePath = ThisWorkbook.Path & "\" & programFileName
    Workbooks.Open Filename:=relativePath

    Application.Run ("'" & relativePath & "'!ModuleName.Main")

   Workbooks(programFileName).Activate
   ActiveWorkbook.Close SaveChanges:=False
Next I 'For I = 0 To programsArrayLastIndex 'Loop through all selected program

Answer 3

Application.Run "PERSONAL.xlsb!ClearYellow", 0

ClearYellow是Personal.xlsb中正在運行的子的名稱。 “0”是這個子的第一個參數（如果沒有參數，將省略，可以添加更多由逗號分隔的參數）

Application似乎並不需要

這也可以用於從其他工作簿運行； 工作簿必須是開放的； 如果該工作簿的名稱中有空格，則名稱必須用''

跨工作簿Call不起作用； 沒有在同一個工作簿或同一個模塊中測試過