从另一个具有动态文件路径位置的工作簿中运行excel宏

Question

因此，我在Worksheet1中有一个宏，它可以打开另一个文件（Worksheet2），然后复制并粘贴特定的单元格并将其从Worksheet1传输到Worksheet2。

一旦完成工作表1的宏，将单元格从工作表1复制粘贴到工作表2，来自工作表1的相同宏将触发另一个宏（嵌入在工作表2中）运行。

我有从打开Worksheet2到从工作表1复制数据并将其粘贴到工作表2的代码，唯一的问题是工作表1中的宏触发运行在工作表2中嵌入的宏。

Sub FCY()
'
' Macro3 Macro
'

    Dim MainFile As Workbook
    Dim jnl As Workbook
    Dim RF As Workbook
    Dim FileExt As String

    Set MainFile = ActiveWorkbook

    'FileExt - Cells where is Worksheet2 being saved (example: Worksheet2.xls)
    FileExt = Sheets("REF Data").Cells(25, 7).Value & "." & Cells(25, 9).Value

    'Set jnl - a command to open the Worksheet2 by using the "FileExt" plus the File Location
    'which is entered in Cells (22,7) or Range("G22") (example - C:\Documents\Worksheet2.xls)
    Set jnl = Workbooks.Open(Worksheets("REF Data").Cells(22, 7).Value & "\" & FileExt)

    'Selecting the specified cells to copy and paste from Worksheet1 to Worksheet2
    MainFile.Activate
    Sheets("FCY").Select
    Range("B11:BJ11").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    jnl.Activate
    Range("B11:BJ11").Select
    ActiveCell.PasteSpecial xlPasteValues


    'Command which runs another Macro embedded in Worksheet2
    'Incorrect code to run the macro in Worksheet2
    Application.Run (Worksheets("REF Data").Cells(22, 7).Value & "\" & FileExt & SaveAstab)

'
End Sub

我已经知道可以使用以下代码来实现：

Application.Run ("'C:\Documents\Worksheet2.xls'!SaveAstab") 

注意： SaveAstab是Worksheet2中宏的名称。

但是，如果您在上面注意到用户在特定单元格上输入了文件位置+文件名+扩展名。 我的意思是，文件位置+文件名+扩展名的详细信息是动态的，由用户输入。

我的问题是，如果我调用为文件位置+文件名+扩展名分配的单元格，则出现错误（运行时错误9）。

‘Incorrect code to run the macro in Worksheet2
Application.Run (Worksheets("REF Data").Cells(22, 7).Value & "\" & FileExt & SaveAstab)

谁能在这件事上分享自己的专业知识？ 非常感谢你

Answer 1

试试看...

Dim runCommand as String
runCommand = Chr(39) & Worksheets("REF Data").Cells(22, 7).Value & "\" & FileExt & Chr(39) & "!SaveAstab" 
Debug.print runCommand 
Application.Run(runCommand)

并给我输出uf debug.print