VBA -如何引用两个单独打开的工作簿而不命名它们？

在VBA中，可以使用对象变量来引用两个单独打开的工作簿而不给它们命名。以下是实现的步骤：

1. 首先，声明两个对象变量，用于引用工作簿。例如，我们可以声明两个变量wb1和wb2，分别用于引用第一个和第二个工作簿。

Dim wb1 As Workbook
Dim wb2 As Workbook

1. 接下来，使用Workbooks.Open方法打开两个工作簿，并将它们分别赋值给wb1和wb2。

Set wb1 = Workbooks.Open("路径\工作簿1.xlsx")
Set wb2 = Workbooks.Open("路径\工作簿2.xlsx")

请注意，"路径\工作簿1.xlsx"和"路径\工作簿2.xlsx"应替换为实际的工作簿路径和名称。

1. 现在，您可以使用wb1和wb2来引用这两个工作簿，并对它们进行操作。例如，可以使用以下代码在两个工作簿之间复制数据：

wb1.Sheets("Sheet1").Range("A1:B10").Copy Destination:=wb2.Sheets("Sheet2").Range("A1")

这将复制wb1中的"A1:B10"范围的数据到wb2的"Sheet2"工作表的"A1"单元格。

1. 最后，记得在完成操作后关闭这两个工作簿。

wb1.Close SaveChanges:=False
wb2.Close SaveChanges:=False

这将关闭工作簿而不保存更改。如果需要保存更改，可以将SaveChanges参数设置为True。

总结： VBA中可以使用对象变量来引用两个单独打开的工作簿而不给它们命名。通过声明对象变量并使用Workbooks.Open方法打开工作簿，可以对它们进行操作。最后，记得在完成操作后关闭这两个工作簿。

腾讯云相关产品和产品介绍链接地址：

• 腾讯云对象存储（COS）：提供高可靠、低成本的云端存储服务，适用于图片、音视频、文档等各类数据的存储和管理。详情请参考：https://cloud.tencent.com/product/cos
• 腾讯云云服务器（CVM）：提供弹性、安全、稳定的云服务器，可满足不同规模和业务需求。详情请参考：https://cloud.tencent.com/product/cvm
• 腾讯云人工智能（AI）：提供丰富的人工智能服务，包括图像识别、语音识别、自然语言处理等，帮助开发者构建智能化应用。详情请参考：https://cloud.tencent.com/product/ai