必须按照您描述的顺序进行吗？
如果您使用所附链接"VBA to get value from closed file"中的建议添加GetValue函数（make public）以从测试工作簿中检索信息，您将获得：
在测试工作簿中：

• 创建包含现有公式的区域例如Sheet1，单元格A1Sum_Visible_Cells（工作表（“原始数据”）.Range（“M2：M”& LastRow（工作表（“原始数据”））））公式

在REPORT工作簿的Sheet1单元格L9中使用GetValue（）函数：

=GetValue(p, f, s, a)

其中

• p =“测试工作簿路径”
• f =“测试. xls”
• s =“工作表1”
• a =“A1”

您不需要使用vba来执行此操作。在单元格Sheet1!L9中输入公式

=SUBTOTAL(109,'Raw Data'!$M:$M)

若要在VBA中执行此操作，请使用

Application.Workbooks("Report.xlsm").Worksheets("Sheet1").Range("L9") = "Result of your function"

注意：必须包含文件扩展名，并且工作簿必须处于打开状态。
编辑：
Sum_Visible_Cells不是工作表函数。
尝试以下操作（假设代码位于工作簿Test中）

Application.Workbooks("Report.xlsm").Worksheets("Sheet1").Range("L9") = _
    Application.WorksheetFunction.Subtotal(109, ThisWorkbook.Worksheets("Raw Data").Columns(13))

从你的评论Range("M2:M)，我猜你想从总数中排除第1行。
只要M1不是数值，就可以对整列求和。如果第1行 * 是 * 数值，而您想排除它，请尝试

Dim rng as Range
With ThisWorkbook.Worksheets("Raw Data")
    Set rng = .Range(.Cells(2,13), .Cells(.Rows.Count, 13).End(xlUp))
End With 
Application.Workbooks("Report.xlsm").Worksheets("Sheet1").Range("L9") = _
    Application.WorksheetFunction.Subtotal(109, rng)