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

当我执行此代码时，出现错误[运行时错误'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)

来源

2017-09-15 KateLO

FindFile是做什么的？即当它传递给'Workbooks.Open'时'filePath'有效吗？此外，您正在使用命名参数，删除该空位置参数。 –

根据你的情况，你可以使用'Add（）'方法而不是'Open（）'，如果当前打开的文件仍然打开文件（如果这是问题）。 'Add（）'有一个模板参数。 – braX

而不是使用变量，只是传递包含路径的字符串。

无论如何，直接路径传递文件的功能是什么？

来源

2017-09-15 16:06:00

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

回答

相关问题