同时使用两个 VBE

Question

我刚刚接手了工作中一些非常可怕的遗留 vba 的维护工作。当我有空闲时间时，我基本上会在新模板中重组和重写它。有时，我会设法利用某种故障并同时打开两个不同的 VBE 实例。我不知道我到底做了什么来实现这一点，但这让我的生活变得更轻松，所以我想知道是否有其他人知道。我认为这与将 Word 作为新实例运行有关，但我无法更改工作电脑上的文件类型设置。

编辑：我通常复制并粘贴到 Excel 中并以这种方式执行此操作，但这并不理想，因为我还在工作的其他部分使用大量 Excel 宏

Answer 1

您可以使用 Application.Run 在另一个 VBA 主机中执行代码，并且可以跨 VBE 执行代码。

Sub CallExcelUDFFromNonExcelHost()

  'Get an existing instance of Excel
  Dim appXL As Excel.Application
  Set appXL = GetObject(, "Excel.Application")

  'Get the already opened Excel workbook
  Dim wbk As Excel.Workbook
  Set wbk = appXL.Workbooks("MyExcelFunctions.xlsm")

  'Call the function in the Excel workbook
  Dim result
  result = appXL.Run(wbk.VBProject.Name & ".MyFunction", "Some Argument")

End Sub

Answer 2

尝试通过代码打开 Word：

Dim ws As Object

Set ws = CreateObject("word.application")
ws.Visible = True

您应该获得第二个实例。