Dim WbookCheck As Workbook
On Error Resume Next
Set WbookCheck = Workbooks("BOMCKTMP.xlsm") *<--debug highlights this as the issue.*
If WbookCheck Is Nothing Then 'Closed
答案 0 :(得分:1)
答案 1 :(得分:1)
在工具->引用下...您选择的选项之一应该包括“ Microsoft Excel xx.x对象库”,其中xx.x是您的excel版本。 (这通常是默认设置,因此应该已经选中)
仔细检查后,确保“ BOMCKTMP.xlsm”是实际打开的工作簿。如果未打开,则应用程序Excel将无法在其“工作簿”对象集合中“查看”该特定工作簿。
如果您需要打开“ BOMCKTMP.xlsm”,并且知道它始终位于同一位置,则可以使用:
Workbooks.Open
通过MSDN对其进行阅读,以了解如何包括其特定的文件路径。
https://msdn.microsoft.com/en-us/vba/excel-vba/articles/workbooks-open-method-excel