Excel vbaで別ブックのコマンドボタンをクリック

いつもお世話になっております。
Excelファイルが2つあり、AとBがありBファイルからAファイルのコマンドボタンをクリックさせることはできますか？

Aファイルにはコマンドボタンがシート上にあります。
Aファイルはプログラムの変更することがでません。

AファイルのコマンドボタンをBファィルからクリックさせたいのですが可能でしょうか？

宜しくお願い致します。

質問者からの補足コメント

• fujillinさん　こんにちは。
  返信ありがとうございます。
  マクロの実行ではなく
  シート上のボタンをクリックしたいのですができますか？

  No.1の回答に寄せられた補足コメントです。 補足日時：2022/05/08 15:02

• 

  ・Aファイル
  Private Sub CommandButton1_Click()
  Sheets("テスト").Range("A1").Value = "Aファイルクリックされた"
  End Sub
  ・Bファイル
  Private Sub CommandButton1_Click()
  Dim xWb As Workbook
  Dim wbName As String
  On Error Resume Next
  Set xWb = Workbooks.Open("C:\Users\cocok\Desktop\tomo\A.xlsm")
  wbName = xWb.Name
  xWb.Sheets("テスト").CommandButton1_Click
  End Sub
  Bファイルのボタンをクリックするとエラーはないのですが、Aファイルのボタンは動きません。

    補足日時：2022/05/08 15:08

No.2 ベストアンサー 回答者： Qchan1962 回答日時： 2022/05/08 16:14

こんにちは

物理的に押すのは難しい・・・
ボタン登録のVBAを実行するのと同じだと思いますが。

＞xWb.Sheets("テスト").CommandButton1_Click
が違うと思います。。。

wbName = xWb.Name
xWb.Sheets("テスト").CommandButton1_Click
この2行を

Dim objSh As String
objSh = xWb.Worksheets("テスト").CodeName
Application.Run xWb.Name & "!" & objSh & ".CommandButton1_Click"

xWb.Nameを直接使いましたが、wbNameでもOK、
他に使わないのなら、不要かな・・

この回答へのお礼

Qchan1962さん！　こんにちは！
有難う御座います。
出来ました♪
勉強になりました。m(__)m

お礼日時：2022/05/08 16:25

No.1 回答者： fujillin 回答日時： 2022/05/08 14:43

こんにちは

＞AファイルのコマンドボタンをBファィルからクリックさせたいのですが
＞可能でしょうか？
想像するところ、そのコマンドボタンに関連付けられているマクロを実行したいのだと解釈しました。

もしそうであるなら、以下をご参照ください。
http://officetanaka.net/excel/vba/tips/tips09.htm
https://xtech.nikkei.com/it/atcl/column/15/09010 …