Excelですべてのブックを別のインスタンスで表示するにはどうすればよいですか？

Question

現在開いているすべてのブックの名前を取得しようとしています。私は現在持っています

Dim wb1 As Workbook 
    Set wb1 = ThisWorkbook 'wb where macro is 
    wb1_name = wb1.Name 
    For Each WB In Application.Workbooks 
    wb2_name = WB.Name 
     If wb2_name <> wb1_name Then 
     WB.Activate 
     Range("H1").Value = "hello" 

     End If 
    Next WB 

    End Sub 

ループ内で開いている他のブックを受け取ることができません。それは現在のワークブックを自分自身と比較することで、何もしません。これはおそらく、ソフトウェアからデータを取得し、ダウンロードし、そのExcelファイルを開くコードを持っていたためです。私は、このファイルが私の画面上にはっきりと見えるので、Excelがダウンロードされて開かれたときにExcelの別のインスタンスだと思う。

Answer 1

Excelの異なるインスタンスは互いに通信できませんが、同じインスタンスで開いているいくつかのブックは、互いに簡単に話すことができます。

複数のExcelファイルを選択してEnterキーを押すと、すべて同じインスタンスで実行されます。それがあなたのシナリオを説明しているならば、以下のコードを実行することで、すべてのワークブックとすべてのシートを簡単にリストすることができます。

Sub ListWorkbooks() 
    Dim Rng As Range 
    Dim WorkRng As Range 
    On Error Resume Next 

    Set WorkRng = Application.Selection 
    Set WorkRng = Application.InputBox("Out put to (single cell)", xTitleId, WorkRng.Address, Type:=8) 
    Set WorkRng = WorkRng.Range("A1") 
    xNum1 = Application.Workbooks.Count 
    For i = 1 To xNum1 
     xNum2 = Application.Workbooks(i).Sheets.Count 
     WorkRng.Offset(i - 1, 0).Value = Application.Workbooks(i).Name 
     For j = 1 To xNum2 
      WorkRng.Offset(i - 1, j).Value = Application.Workbooks(i).Sheets(j).Name 
     Next 
    Next 
End Sub