C++BuilderでのExcel内VBAマクロ実行について

Question

前提・実現したいこと

C++Builder6にて、OLE活用して、
マクロ付きエクセルファイル(.xlsm)内の
VBAマクロを実行するCUIプログラム作成したいと思っています。

発生している問題・エラーメッセージ

OLE関数利用して、Excel表示やExcel内のセル値更新などは行えることは確認したのですが、
目的となるVBAマクロ実行するためのコード記述方法が分かりません。
（そもそも可能であるか、も分からず。）

実現方法について、情報わかる方いらっしゃればご教示いただきたく。

該当のソースコード

#include <ComCtrls.hpp>
~~
int main(int argc,char *argv[])
~~
int main(int argc, char *argv[])
{
  //OLEオートメーションオブジェクトを保持するためVariant宣言
  Variant application, workbook, workbooks;
  //CreateObjectでExcelオブジェクト作成
  application = Variant::CreateObject("Excel.Application");
  CoInitialize(NULL);
  //Ecel表示
  appliction.OlePropertySet("Visible",(Variant)true);
  //Workbookコレクション表示
  workbooks = application.OlePropetyGet("Workbooks");
  workbook = workbooks.OleFunction("Open", "D:\Users\Daipuri\DeskTop\Test.xlsm");
  //Test.xlsm内のVBAマクロを実行したい
  //記述コードわからず

   return 0;
}

試したこと

Webでの参考情報検索によるトライ&エラー
→関連情報をみつけることができず、困ってます

補足情報（FW/ツールのバージョンなど）

C++ Builder6 Proffesional

Answer 1

※当方にC++ Builder6の実行環境が無い為、推測にもとづく回答です。

以下はExcelのマクロを実行するVBScriptです。C:\project\book1.xlsm に保存しているMacroTest1と言う名前のマクロを実行します。(Windows 10、Excel 2013 で実行を確認しました）

' t1.vbs
' C> cscript t1.vbs
'
Dim application
 
Set application = WScript.CreateObject("Excel.Application")

application.Visible = True
application.Workbooks.Open "C:\project\book1.xlsm"
application.Application.Run "MacroTest1"

ExcelのOLEオートメーションを使っています。このVBScriptコードに照らして質問者さんのC++ Builder用コードに置き換えてみると、以下のようなコードで動きませんでしょうか。

int main(int argc, char *argv[])
{
  //OLEオートメーションオブジェクトを保持するためVariant宣言
  Variant application, workbook, workbooks;
  //CreateObjectでExcelオブジェクト作成
  application = Variant::CreateObject("Excel.Application");
  CoInitialize(NULL);
  //Ecel表示
  appliction.OlePropertySet("Visible",(Variant)true);
  //Workbookコレクション表示
  workbooks = application.OlePropetyGet("Workbooks");
  workbook = workbooks.OleFunction("Open", "D:\Users\Daipuri\DeskTop\Test.xlsm");
  //Test.xlsm内のVBAマクロを実行したい
  //記述コードわからず

  // ※※!!!!! ここからは推測でのコードです。
  // VBAマクロ名が"MacroTest1"だとして：
  Variant propApplication;
  propApplication = application.OlePropetyGet("Application");
  propApplication.OleFunction("Run", "MacroTest1");

...
  return 0;