C#メモ Excelファイルの標準モジュールに作ったSubプロシージャやらFunctionプロシージャを呼び出してみる

野暮用で試したので。

ポイントはこんな感じ。

ExcelのVBAでSubプロシージャやFunctionプロシージャはC#から呼び出されるための特別な書き方をしなくてOK
Visual Studioのプロジェクト参照設定で”Microsoft Excel X.X Object Library”ってのを追加しておく
※X.Xは数値でPCにインストールしてあるExcelのバージョン
Microsoft.Office.Interop.Excel.Application.Runメソッドで取り扱うExcelのパスと必要に応じてVBAに渡す引数を指定する
C#側でExcelに関係するオブジェクトはSystem.Runtime.InteropServices.Marshal.ReleaseComObjectメソッドで明示的に解放する

準備したサンプルのExcel VBAマクロはこんな感じ。
マクロの動きとしては単にダイアログを表示するだけ。
SubプロシージャとFunctionプロシージャでそれぞれ引数ありなし、それとは別にFunctionプロシージャは戻り値ありを定義。

' 引数なしのSub

Private Sub ModuleSub()

MsgBox "標準モジュールの引数なしSubを呼んだよ！"

End Sub

' 引数ありのSub

Private Sub ModuleSubWithArgument(message As String)

MsgBox "標準モジュールの引数ありSubを呼んだよ！引数は..." & message

End Sub

' 引数なしのFunction

Private Function ModuleFunction()

MsgBox "標準モジュールの引数なしFunctionを呼んだよ！"

End Function

' 引数ありのFunction

Private Function ModuleFunctionWithArgument(message As String)

MsgBox "標準モジュールの引数ありFunctionを呼んだよ！引数は..." & message

End Function

' 戻り値ありのFunction

Private Function ModuleFunctionWithReturn()

Dim result As String

result = "げろげーろ"

MsgBox "標準モジュールの戻り値ありFunctionを呼んだよ！戻り値は..." & result

ModuleFunctionWithReturn = result

End Function

' ' 引数なしのSub ' Private Sub ModuleSub() MsgBox "標準モジュールの引数なしSubを呼んだよ！" End Sub ' ' 引数ありのSub ' Private Sub ModuleSubWithArgument(message As String) MsgBox "標準モジュールの引数ありSubを呼んだよ！引数は..." & message End Sub ' ' 引数なしのFunction ' Private Function ModuleFunction() MsgBox "標準モジュールの引数なしFunctionを呼んだよ！" End Function ' ' 引数ありのFunction ' Private Function ModuleFunctionWithArgument(message As String) MsgBox "標準モジュールの引数ありFunctionを呼んだよ！引数は..." & message End Function ' ' 戻り値ありのFunction ' Private Function ModuleFunctionWithReturn() Dim result As String result = "げろげーろ" MsgBox "標準モジュールの戻り値ありFunctionを呼んだよ！戻り値は..." & result ModuleFunctionWithReturn = result End Function

'
' 引数なしのSub
'
Private Sub ModuleSub()
    MsgBox "標準モジュールの引数なしSubを呼んだよ！"
End Sub
'
' 引数ありのSub
'
Private Sub ModuleSubWithArgument(message As String)
    MsgBox "標準モジュールの引数ありSubを呼んだよ！ 引数は..." & message
End Sub
'
' 引数なしのFunction
'
Private Function ModuleFunction()
    MsgBox "標準モジュールの引数なしFunctionを呼んだよ！"
End Function
'
' 引数ありのFunction
'
Private Function ModuleFunctionWithArgument(message As String)
    MsgBox "標準モジュールの引数ありFunctionを呼んだよ！ 引数は..." & message
End Function
'
' 戻り値ありのFunction
'
Private Function ModuleFunctionWithReturn()
    Dim result As String
    result = "げろげーろ"
    MsgBox "標準モジュールの戻り値ありFunctionを呼んだよ！ 戻り値は..." & result
    ModuleFunctionWithReturn = result
End Function

んで、実際にVBAマクロを呼び出すC#のコードはこんな感じ。

/// <summary>

/// メインメソッド

/// </summary>

/// <param name="arguments">コマンドライン引数(今回は使わない)</param>

static void Main(string[] arguments)

{

// メソッド共通で使う変数を定義する

// ※try-catch-finally構文で使いまわしたいのでここで定義する

Microsoft.Office.Interop.Excel.Application application = null;

Microsoft.Office.Interop.Excel.Workbooks workbooks = null;

string location = @"C:\Users\tetsuyanbo\Desktop\Sample.xlsm";

string target = string.Empty;

string parameter = string.Empty;

var result = string.Empty;

// 処理を実行する

try

{

// Excelを起動する

application = new Microsoft.Office.Interop.Excel.Application();

application.DisplayAlerts = false; // Excelのメッセージは抑制する

// ワークブックを開く

workbooks = application.Workbooks;

workbooks.Open(location);

// 標準モジュールの引数なしSubを実行する

target = System.IO.Path.GetFileName(location) + "!" + "GeneralModule.ModuleSub";

parameter = "なし";

result = "なし";

application.Run(target);