“新”Excel.Application vs Excel.Application

Question

我要求澄清"New“对对象和脚本的影响。

我的理解是，如果我需要在excel文档上执行操作，并且应用程序已关闭，那么我应该使用新的Excel.Application。

如果我保持此应用程序处于活动状态(例如，通过诸如工作簿之类的对象)，然后在脚本中决定打开另一个工作簿，我应该仍然使用新的Excel.Application，还是使用Excel.Application更好？

我担心的是我要写一个很长的脚本，它将在至少5个工作簿上执行操作。我将不得不从一个工作簿切换到另一个工作簿，然后返回到前者...

如果每次脚本创建一个新的Excel.Application，我可能最终会有相当多的它们运行，我担心这种混乱会产生问题。

写这样的代码是不是更合适：

Dim NxlApp as New Excel.Application
Dim xlApp as Excel.Application

  NxlApp.Workbooks.Open "C:\Users\...\WorkbookA.xlsx"
  NxlApp.Visible = True

'Perform actions on WorkbookA (keep it open)


  Set ExcelApp = GetObject("", "Excel.Application.14")
  xlApp.Workbooks.Open "C:\Users\...\WorkbookB.xlsx"
  xlApp.Visible = True

'Perform actions on WorkbookB (keep it open)


'Go back to WorkbookA (using the xlApp variable this time)

  xlApp.Workbook("A.xlsx")...

Answer 1

excel应用程序可以同时打开多个工作簿，因此您不需要实例化一个新的工作簿。如果是从excel内部进行操作，则不需要引用应用程序即可打开工作簿。您可能希望创建多个工作簿实例，例如

Dim wbWorkbookA As Workbook
Dim wbWorkbookB As Workbook

Set wbWorkbookA = Workbooks.Open("C:\Users\...\WorkbookA.xlsx")
Set wbWorkbookB = Workbooks.Open("C:\Users\...\WorkbookB.xlsx")

这将打开工作簿并提供一个引用，以便您可以使用代码操作它们。

Answer 2

我将写一个长脚本，它将在至少5个工作簿上执行操作

问得好，简而言之，您可以在一个Application对象中打开5个工作簿。

如果你在excel中(否则见下文)，那么你已经有了一个Excel.Application。然后，您可以将每个工作簿设置为不同的对象或按名称引用它们：

dim wb1, wb2 as Excel.Workbook, wb3 as New Excel.Workbook 'blank is
same as Variant set wb1 = application.open("path/wb.xlsx") msgbox
wb1.name                  'ref by object msgbox
workbooks("wb.xlsx").name 'ref by name

根据我的理解，如果我需要对excel文档执行操作，并且应用程序已关闭，那么我应该使用

Excel.Application

如果你在Excel之外(如Access)，那么你可能想要创建一个Excel.Application对象，下面是一些提示：

Dim nXlApp as New Excel.Application

具有与以下内容相同的效果：

Dim xlApp as Excel.Application
Set xlApp = New Excel.Application             'Early Binding
Set xlApp = CreateObject(“Excel.Application”) 'Late Binding

不要在循环中定义(dim)，但是您可以根据需要多次实例化(设置)同一个对象。如果你在一个控件(按钮等)中使用全局对象(不推荐这样做，但有时很方便)，你可以这样使用：

if xlApp is Nothing then set xlApp = CreateObject(“Excel.Application”)

当你做完的时候，别忘了清理房间！

wb1.Close False
set wb1 = Nothing 'do this once for each defined object, anything using New/Set

另请参见

• Difference between CreateObject("Excel.Application") .Workbooks.Open and just Workbooks.Open
• https://support.microsoft.com/en-us/kb/288902 (GetObject和CreateObject behavior)