別インスタンスのエクセルを制御したい

お世話になっています。
エクセルマクロＡでＢとＣのブックを制御したいのですが、
Office2016から Office365にアップした為できなくなりました。
どうすれば制御できるでしょうか。以下詳細です。

Ａ：ブックＢとＣのセルに値を書く為、Ｂから起動したエクセルマクロです
Ｂ：最初に起動したエクセルブックとなります
Ｃ：Ｗｅｂサイトから起動したエクセルブックになります

Office2016の時は Application.Workbooks.count が３だったので、
Ａ、Ｂ、Ｃどのセルにも値が代入できていましたが、
Office365だと２になります。
これを３にする為には、Ｃを終了。
ＡまたはＢの『ファイル開く』から、Ｃを起動しなくてはいけません。
んなこと毎回するより、なんらかの方法でＣのインスタンスを取得して解決したいのです。

タスクマネージャーで見ると、問題の場合はＡＢ、とＣでエクセルが２個。
Ｃを開きなおした場合は、エクセルが１個になっています。
つまり別インスタンスとなっているＣはＡから制御できないとなります。

CreateObject("Excel.Application") は使えそうになく、
GetObject(, "Excel.Application")
で取得もうまく行きませんでした。
保存されるＣのファイル名の法則性はあると言えばあるのですが、
Open("Ｃのフルパス") とするのも味気なく、
もっと良い方法でＣのインスタンスを取得してＣを制御したいのです。
教えて下さい。よろしくお願いします。

No.1 ベストアンサー 回答者： Qchan1962 回答日時： 2023/05/11 20:02

こんばんは

回答が付いていないので　少しだけ
＞もっと良い方法
ご質問にある様な方法が比較的良い方法と存じます

すでに出ているような方法以外ですと　WindowsAPIで起動Excelを取得して
条件によりターゲットブックを特定し処理すれば出来ますが・・
それなりの処理コードが必要になると思いますね
WindowsAPIを使いますか？
参考（Excelの説明がありましたのでこちらを）
https://www.excel-chunchun.com/entry/enumwindows …

添削例
Sub Test01_ExecExcelWorkbooks()
Dim wb As Variant
Dim sht As Worksheet
For Each wb In ExecExcelWorkbooks()
On Error Resume Next
wb.Activate
Set sht = wb.ActiveSheet
If wb.Name = "ＣBook.xlsx" Then
sht.Range("A1").Value = "QA"
Exit For
End If
Next
End Sub

この回答へのお礼

WindowsAPIはバリバリ使いこなしています。
ホームページを拝見すると正に答えのような気がします。
実際に試してみます。まずはお礼にて。真にありがとうございます。

お礼日時：2023/05/12 03:55