Excel VBA从不同的Excel应用程序访问工作簿实例

所以说你有两个单独的工作簿打开在一个单独的Excel过程中写入，如何访问其他工作簿，并通过VBA进行更改？ 有没有办法循环所有的Excel应用程序，看看他们打开了什么工作簿？ 帮助非常感谢！

Answer 1

使用AppActivate然后SendKeys发现了一个有点不雅的解决scheme。 SendKeys给macros键入一个热键，这个macros将包含代码来做我希望工作簿做的任何事情，比如按顺序closures自己，以便第一个应用程序可以打开它。

Answer 2

以下显示打开的工作簿的名称，其中的工作表名称和单元格A1的值。 这应该足以让你去。

Dim InxWB As Long Dim InxWS As Long For InxWB = 1 To Workbooks.Count With Workbooks(InxWB) Debug.Print "Workbook """ & .Name & """ contains the following sheets:" For InxWS = 1 To .Sheets.Count Debug.Print " " & .Sheets(InxWS).Name Debug.Print " Cell A1 contains: " & _ .Sheets(InxWS).Cells(1, 1).Value Next End With Next