如何使用VBA激活未保存的工作簿？

我的代码的目标是运行在线报告，从导出的excel文件复制数据并将其粘贴回主文件，然后操作数据

我现在遇到的麻烦是从导出的excel文件复制数据。联机报告将excel文件导出为未保存的“Book1”，其中包含一个包含数据的“Sheet1”。我似乎无法激活导出的文件以便复制工作表

我试过了

Workbooks("Book1").Activate

以及使用for循环遍历所有打开的工作簿（只有两个打开的工作簿，但是for循环只循环一次，告诉我它没有遍历未保存的工作簿）

任何帮助都将不胜感激。很高兴澄清任何问题

---

谢谢

也许

FindWindow

API有帮助？或者，如果有一种方法可以将联机报表excel文件设置为一个对象，那么更大的问题是，为什么需要激活工作簿？创建工作簿并放弃返回的

工作簿

对象实例，或者打开工作簿并放弃返回的

工作簿

对象实例，或者，您将一张工作表复制到一个新工作簿中，而该工作簿是

ActiveWorkbook

，您只需在复制工作表之后

Set wb=ActiveWorkbook

，即可保留

workbook

对象实例。我99%确定您不需要激活任何内容。您的报告可能是在不同的Excel实例中打开的，因此使用常规方法很难访问。您是否可以保存报告并从当前excel实例中的该位置打开它？您首先是如何打开报告的？也许

FindWindow

API有帮助？或者，如果有一种方法可以将联机报表excel文件设置为一个对象，那么更大的问题是，为什么需要激活工作簿？创建工作簿并放弃返回的

工作簿

对象实例，或者打开工作簿并放弃返回的

工作簿

对象实例，或者，您将一张工作表复制到一个新工作簿中，而该工作簿是

ActiveWorkbook

，您只需在复制工作表之后

Set wb=ActiveWorkbook

，即可保留

workbook

对象实例。我99%确定您不需要激活任何内容。您的报告可能是在不同的Excel实例中打开的，因此使用常规方法很难访问。您是否可以保存报告并从当前excel实例中的该位置打开它？你一开始是怎么打开报告的？