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

时间:2017-09-15 15:39:31

标签: vba excel-vba excel

当我执行此代码时,我收到错误[运行时错误' 1004':方法'打开'对象'工作簿'失败。

我在网上看到这可能是实际文件的错误所以我也尝试使用" 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)

1 个答案:

答案 0 :(得分:0)

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

如果直接传递直接路径,找到文件的函数背后的逻辑是什么?