2

我可以使用两种方法在单独的窗口中打开另一个工作簿

TheEmu_Path = "excel.exe " & ThisWorkbook.Path & "\" & "myexcel.xlsx" 
call Shell(TheEmu_Path, 3)

或者

Set oExcel = New Excel.Application
oExcel.Workbooks.Open Filename:=TheEmu_Path & "myexcel.xlsx"

第一种方法我可以打开，但不知道如何为打开的工作簿设置引用第二种方法我可以在打开工作簿时引用，但稍后对于任何以后的过程我不知道如何引用单独打开的工作表

Set oExcel = ??
Set oWB = oExcel.Workbooks("myexcel.xlsx")
Set oWS = oWB.Sheets("F1")

如何设置 oExcel（已经单独打开的工作簿）的参考？

创建并打开后，稍后我想在新按钮命令中更改单独打开的工作簿中的值

Set oExcel = CreateObject("Excel.Application")
Set oWB = oExcel.Workbooks("myexcel.xlsx")
Set oWS = oWB.Sheets("1")
oWS.Cells(1, 1) = 55

我在第二行有一个错误，因为我相信我仍然没有正确引用 oExcel。

评论大卫修订

令人印象深刻，非常感谢。

它只需很少的添加即可完美运行，oExcel 将直接被视为工作簿 - 太棒了！

Dim oExcel As Object 'or Dim oExcel As Workbook
Dim oWS As Excel.Worksheet 'or Dim oWS As Worksheet

Set oExcel = GetObject(ThisWorkbook.Path & "\" & "myexcel.xlsx").Application
'or Set oExcel = GetObject(ThisWorkbook.Path & "\" & "myexcel.xlsx")

Set oWS = oExcel.Sheets("1")
oWS.Cells(1, 1) = 4

问其他问题是令人兴奋和鼓舞的，因为我在使用导致 #na 值的 UpdateRemoteReferences 时文件崩溃。

4

1 回答 1

2

创建一个新的 Excel 实例：

Dim oExcel as Excel.Application 'or As New Excel.Application
Set oExcel = New Excel.Application
'Dim oExcel as Object
'Set oExcel = CreateObject("Excel.Application") 'Alternative method for late-binding

当我这样做时，会打开一个新的 Excel，并且有一个空白工作簿文件。要引用此工作簿：

Dim oWB as Workbook
Set oWB = oExcel.Workbooks(1)

要在此实例中打开文件：

Dim anotherWB as Workbook
Set anotherWB = oExcel.Workbooks.Open("c:\test.xlsx")

等等。

虽然我通常不建议使用应用程序的多个实例，但我只是没有任何用处，我只是在 Excel.Application 的一个实例中打开所有工作簿。

根据评论请求更新

根据上面的示例，控制多个实例的最简单方法 IMO 是从一个干净的状态开始并创建新对象，在运行时控制它们。

在不可能的情况下，仍然可以获得另一个实例。在这两种情况下，我认为您都需要知道另一个 Excel 实例中打开的工作簿文件的名称。

更轻松

如果您知道工作簿名称，您可以获得如下访问权限：

Dim oExcel As Object ' or Excel.Application
Set oExcel = GetObject("Workbook_Name.xlsx").Application

然后，您可以使用普通方法参考工作簿，只要您有资格使用oExcel，例如：

Dim otherWorkbook as Workbook
Set otherWorkbook = oExcel.Workbooks(1) 'or oExcel.Workbooks("Workbook_Name.xlsx")

更难，可能更通用

另一种选择是使用 WinAPI 函数来获取窗口句柄。我以前使用过 WinAPI 来做这样的事情，虽然我没有测试过下面的示例代码，但它应该是一个很好的起点。

http://excelribbon.tips.net/T009452_Finding_Other_Instances_of_Excel_in_a_Macro.html

于 2013-10-04T21:49:39.397 回答