打開對象工作簿的方法失敗錯誤

當我執行此代碼時，出現錯誤[運行時錯誤'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

打開對象工作簿的方法失敗錯誤

回答

相關問題