当我执行此代码时,我收到错误[运行时错误' 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)
答案 0 :(得分:0)
不要使用变量,只需传递包含路径的字符串即可。
如果直接传递直接路径,找到文件的函数背后的逻辑是什么?