小编nba*_*yly的帖子

运行时错误'1004':使用ThisWorkbook选择Range类失败的方法

在运行脚本的过程中,如果我从包含宏的工作簿中手动删除焦点,我会得到引用的错误.如果我没有点击任何它没有问题的工作.只有在我尝试将选择放回A1"输入"表单时才会出现脚本错误.断点位于以下行:

ThisWorkbook.Sheets("Input").Range("A1").Select
Run Code Online (Sandbox Code Playgroud)

如果我调试并将焦点放回宏工作表上,则脚本完成没有问题.上一行:

ThisWorkbook.Sheets("Input").Cells.Delete
Run Code Online (Sandbox Code Playgroud)

运行没有错误所以我猜测它的范围超出了范围,但不太明白为什么因为它应该由之前的范围表示法定义.有人可以解释为什么这条线超出范围?不应该ThisWorkbook明确定义我的代码引用的工作簿吗?非常感谢任何指导.

excel vba excel-vba

4
推荐指数
1
解决办法
2万
查看次数

Microsoft Access 数据库引擎找不到对象工作表 - ACE OLEDB

我正在尝试使用 Microsoft.ACE.OLEDB.12.0 通过 VBA 对 Excel 中的 3 个表进行连接。尝试运行查询时遇到很多问题。此时我收到以下错误:

Run-time error '-2147217865 (800040e37)':

The Microsoft Access database engine could not find the object 'CustomSheetName1$A$1:$AV$6027'. Make sure the object exists and that you spell its name and the path name correctly. If 'CustomSheetName1$A$1:$AV$6027' is not a local object, check your network connection or contact the server administrator.

源文件在同一个子文件中创建并保存到位于本地的宏根文件夹中C:\Users\localuser\Documents\MacroFolder\。我可以完全访问该文件。

运行时连接字符串显示为:

"Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\localuser\Documents\MacroFolder\Book4.xlsx;Extended Properties='Excel 12.0 Xml;HDR=Yes;IMEX=1';"

下面的子摘录。我混淆了字段名称,只包含了我认为相关的代码。如果需要,可以添加更多内容并进一步澄清。执行查询时代码在最后一行中断。

Dim wbTarget As Workbook, wsTarget As Worksheet
Dim wb As Workbook, ws As Worksheet …
Run Code Online (Sandbox Code Playgroud)

oledb excel vba

3
推荐指数
1
解决办法
6152
查看次数

标签 统计

excel ×2

vba ×2

excel-vba ×1

oledb ×1