Question

我正在尝试使用Workbook.Open加载一些工作簿，并且在每种情况下，我得到“运行时错误'424'：对象必需”

违规代码是：

Const path As String = "\\networkpath\data\"

Sub LoadReports()
Dim date_ext As String
date_ext = "_" & Format(Date, "yyyy-mm-dd") & ".xlsm"

Workbook.Open path & "ReportX" & date_ext   ' This is where the runtime error occurs
End Sub

如果日期是7/14/2017，路径和文件名应解析为“\\ networkpath \ data \ _ ReportX_2017-07-14.xlsm”。

当我注释掉Workbook.Open并在运行完整宏之前手动打开文件时，一切正常。更令人困惑的是，在其他工作簿中的其他宏中，完全相同的代码工作正常。当我搜索运行时错误424和/或Workbook.Open时，我找不到任何我不知道的东西，比如filename参数正在查找包含路径的字符串。我不确定这里有什么问题。任何帮助表示赞赏，谢谢！

Answer 1

首先在服务器上放置一个测试工作簿。将其命名为abc123.xlsm

然后尝试这个

Sub testLoadReport()
    Workbooks.Open "\\networkpath\data\abc123.xlsm"
End Sub

workbook.open运行时错误424

1 个答案: