Dim savepath as String
Dim dfile as String
Dim wb as Workbook
'strings setting omitted
If Not Dir(savepath & dfile) <> "" Then
MsgBox "Cannot find the file."
End If
Set wb = Workbooks(savepath & dfile)
wb.Open
'Workbooks(savepath & dfile).Open also fails
儘管Dir()沒有提高消息框,但我得到運行時錯誤9。我可以將連接字符串複製並粘貼到Windows資源管理器欄中,並打開excel文件,因此文件當然存在。Workbooks.Open方法在文件存在時給出運行時間9(Dir(file_string)有效)
任何想法?
爲什麼要省略字符串設置?我們如何知道你是否有這些正確的? – Davesexcel 2015-04-02 21:20:45
Workbooks集合只包含* open *工作簿。 – 2015-04-02 21:22:41