我正在从Access数据库中的数据创建Excel文件。
我目前正在尝试做的是抵消我在Access中从Excel中做出的选择，并且我一直收到错误。
ExcelWS.Range(Range("H6"), Range("H6").End(xlDown)).Offset(0, -1).Select
ExcelWS是一个Excel。工作表对象。
我的目标是从G6中选择到工作簿的末尾。但是，不会填充G列中的每个单元格，因此单元格G6中的简单End（xlDown）只会让我在文件中占用一部分。话虽如此，H列中的所有单元格都已填充，因此我可以从单元格H6执行End（xlDown）。从那里开始，我想将我的选择移到左边，给我选择G列的所需范围。
上面的代码是大约2小时谷歌搜索的产品，并尝试了大量不同类似代码的组合。但是，我仍然收到错误。
奇怪的是1/10倍，我会收到欲望的结果。其余的时间我收到上述错误。运行时错误'1004'：
对象'_Global'的方法'范围'失败
我觉得好像我的问题与从Access运行这行代码有关，但是这是我完成此任务的唯一方法，因为我有其他依赖于能够从Access执行此操作的东西。
任何帮助将不胜感激，如果有任何更多的信息我可以给我，我会尽我所能。
感谢。
答案 0 :(得分：1)
要运行Select，表单应处于活动状态/正在聚焦状态。
所以你需要将犯规设置为表格。
ExcelWS.Activate
ExcelWS.Range(Range("H6"), Range("H6").End(xlDown)).Offset(0, -1).Select
Simalarly，为了使焦点处于焦点，您的工作簿需要处于活动状态/焦点。
尽可能避免Select。同样完全符合名称。
Dim rngTest as Range
Set rngTest= ExcelWS.Range(ExcelWS.Range("H6"), ExcelWS.Range("H6").End(xlDown)).Offset(0, -1)
答案 1 :(得分：0)
感谢@cyboashu，我能够让它发挥作用。
我拿了他给我的例子并将它们组合在一起，使它做我想做的事。
我在发布问题之后意识到它每隔一段时间就一直在工作。
无论如何，我使用的代码是
react-native