使用Workbooks.Open打开excel文件时出现错误

DAexcelhome

问题：Set workBook = .workbooks.Open(FileName:=workBookName)被提示出现错误，workBook值却显示为“nothing”

我的代码如下：


With workExcel
        '获取需要打开的《批注归集》EXCEL文件名
        workBookName = .GetOpenFilename(FileFilter:="Excel Files (*.xls;*.xlsx;*.xlsm),*.xls;*.xlsx;*.xlsm", Title:="打开该文档对应的归集批注的EXCEL文件")
        '打开EXCEL文件
        Set workBook = .workbooks.Open(FileName:=workBookName)

end with

补充说明：
1通过断点查看workExcel对象已正常赋值，见下图：

2 FileName:=workBookName中参数workBookName也正常。见下图：

３但workBook值却显示为“nothing”。

3190496160

是不是多了一个点号

DAexcelhome

3190496160 发表于 2023-11-14 08:23
是不是多了一个点号

谢！
这个圆点是与上面“with wordExcel”配套使用的，是必须要的。

3190496160

DAexcelhome 发表于 2023-11-14 09:12
谢！
这个圆点是与上面“with wordExcel”配套使用的，是必须要的。

呵呵呵，真的？？？

山菊花

选择其它文件时，workBook返回值是否正常？
手工打开当前文件，是否正常？
如果两个都正常，问题可能出现在路径上，如包含不可识别字符。

DAexcelhome

山菊花 发表于 2023-11-14 10:30
选择其它文件时，workBook返回值是否正常？
手工打开当前文件，是否正常？
如果两个都正常，问题可能出现 ...

选择其他文件时，workBook也不正常。

DAexcelhome

3190496160 发表于 2023-11-14 10:10
呵呵呵，真的？？？

后来使用workExcel.Visible=true确认，前面不带圆点才能正常使用。
谢！

山菊花

这可能不是Excel的问题。查看一下控制面板中的区域设置（区域和语言——管理），看有异常吗？

DAexcelhome

山菊花 发表于 2023-11-14 22:45
这可能不是Excel的问题。查看一下控制面板中的区域设置（区域和语言——管理），看有异常吗？

以上是控制面板中"区域语言-管理"中的截图。麻烦看下有什么问题。

山菊花

看似一切正常，不明白为什么出错。