vba - 尝试打开工作簿并运行该文件中的宏

Question

我有一个工作簿，它打开另一个工作簿(文件名基于单元格值)，然后在该文件中运行名为 Single_sector 的宏。

它可以很好地打开文件，但不运行宏。有什么想法吗？

Sub run_all()
Dim Location



On Error Resume Next

'Location of file to open
 Location = Worksheets("Main").Range("folder_location").Value

'Open F&V File
Application.Workbooks.Open Location & Range("fv_file").Value
'Run Macro
Run ("Single_sector")



End Sub

Answer 1

将以下代码放入调用其他工作簿的宏中:

Location = Worksheets("Main").Range("folder_location").Value
Set wb = Workbooks.Open(Location & Range("fv_file").Value)
Application.Run "'" & wb.Name & "'!" & strSubToRun, Parameters
Set wb = Nothing

Parameters 是您要传递的参数数组，因此另一个工作簿中的 sub 应该类似于

Public Sub TheSub(ParamArray X())

Dim i As Long

Sheet1.Cells(1, 1).Value = "Parameters passed:"

For i = 0 To UBound(X(0))
    Sheet1.Cells(i + 2, 1).Value = CStr(X(i))
Next

End Sub