方法打开对象工作簿失败错误



当我执行此代码时,我会遇到一个错误[运行时错误'1004':method'open'对象'workbooks'失败。

我在线阅读说,这可能是实际文件的错误,因此我还尝试使用" ignoreReadOnlyRecommended:= true",以允许文件自身修复,但这也不起作用。关于如何解决这个问题有什么建议吗?

Sub BlueFieldImport()
Dim mywb As Workbook
Set mywb = ThisWorkbook
Dim filepath As String, fp As String
Dim mymonth As String
mymonth = Sheets("Data_Staging").Range("A38").Value
filepath = FindFile("C:Book1.xls")
Dim BlueFieldsWB As Workbook
Set BlueFieldsWB = Workbooks.Open(filepath, , ReadOnly:=True)

而不是使用变量,只需传递包含路径的字符串即可。

如果您将其通过直接路径,函数背后的逻辑是什么?

相关内容

最新更新