C# のプログラムから、エクセルマクロを実行したい

Question

困っております。お力を貸してください。

■やりたいこと
C#のプログラムから、すでに開かれているエクセルのマクロを実行したい。

■C#側のプログラムコード

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.Collections;
using System.Runtime.InteropServices;
using Microsoft.Office.Interop.Excel;

namespace HogeHoge.cls
{
    class clsExcelCtrl : IDisposable
    {
        // Excel操作用オブジェクト
        private Application xlApp = null;
        private Workbooks xlBooks = null;
        private Workbook xlBook = null;
        private Sheets xlSheets = null;
        private Worksheet xlSheet = null;
        private bool isDispose;

        // ------------------------------------------------------
        //  コンストラクタ／デストラクタ・プロパティ・メソッド 
        // ------------------------------------------------------
        /// <summary>
        /// コンストラクタ
        /// </summary>
        public clsExcelCtrl()
        {
            xlApp = new Application();
            isDispose = false;
        }

        /// <summary>
        /// 解放
        /// </summary>
        public void Dispose()
        {
            // ExcelManagerが使われなくなったときに破棄する資源
            ReleaseExcelComObject(EnumReleaseMode.App);

            // dispose判定フラグON
            isDispose = true;

            // Dispose()が明示的に呼ばれたときは、GCからFinalize()呼び出しをさせない。
            GC.SuppressFinalize(this);
        }

        /// <summary>
        /// デストラクタ
        /// </summary>
        ~clsExcelCtrl()
        {
            // 呼出し側がDispose()してなかったらここでDispose
            if (isDispose == false)
            {
                Dispose();
            }
        }

        /// <summary>
        /// リリース対象
        /// </summary>
        private enum EnumReleaseMode
        {
            Sheet,
            Sheets,
            Book,
            Books,
            App
        }

        /// <summary>
        /// Excelリソース解放
        /// </summary>
        /// <param name="ReleaseMode">リリース対象Enum</param>
        private void ReleaseExcelComObject(EnumReleaseMode ReleaseMode)
        {
            try
            {
                // xlSheet解放
                if (xlSheet != null)
                {
                    Marshal.ReleaseComObject(xlSheet);
                    xlSheet = null;
                }
                if (ReleaseMode == EnumReleaseMode.Sheet)
                    return;

                // xlSheets解放
                if (xlSheets != null)
                {
                    Marshal.ReleaseComObject(xlSheets);
                    xlSheets = null;
                }
                if (ReleaseMode == EnumReleaseMode.Sheets)
                    return;

                // xlBook解放
                if (xlBook != null)
                {
                    try
                    {
                        //xlBook.Close();
                    }
                    finally
                    {
                        Marshal.ReleaseComObject(xlBook);
                        xlBook = null;
                    }
                }
                if (ReleaseMode == EnumReleaseMode.Book)
                    return;

                // xlBooks解放
                if (xlBooks != null)
                {
                    Marshal.ReleaseComObject(xlBooks);
                    xlBooks = null;
                }
                if (ReleaseMode == EnumReleaseMode.Books)
                    return;

                // xlApp解放
                if (xlApp != null)
                {
                    try
                    {
                        // アラートを戻して終了
                        //xlApp.DisplayAlerts = true;
                        //xlApp.Quit();
                    }
                    finally
                    {
                        Marshal.ReleaseComObject(xlApp);
                    }
                }
            }
            catch (Exception)
            {
                // throw;
            }
        }

        
        /// <summary>
        /// マクロ実行
        /// </summary>
        /// <param name="pPara"></param>
        /// <returns></returns>
        public bool Run(string pPara)
        {
            try
            {
                xlApp.Run("iTest", pPara);
            }
            catch
            {
                return false;
            }

            return true;
        }

        /// <summary>
        /// 開いているExcelを取得
        /// </summary>
        /// <returns></returns>
        public bool GetExcelObject()
        {
            // 開いているExcelを取得
            try
            {
                xlApp = (Microsoft.Office.Interop.Excel.Application)Marshal.GetActiveObject("Excel.Application");
            }
            catch (COMException)
            {
                //Excelが起動されていません
                return false;
            }
            // 開いているExcelのBookを取得
            // <MEMO>
            // Excel操作ソフトを実行中に強制終了などするとCOMオブジェクトの解放モレが発生し、
            // プロセスが残る状態になる。その状態で再度Excel操作をしようとすると、残った
            // プロセスの方を操作対象としてしまう。結果、新しいブックを開いていても以下の操作に
            // 失敗することがある。この場合、タスクマネージャーからEXCEL.EXEプロセスをキルする必要がある。
            try
            {
                xlBooks = xlApp.Workbooks;
                if (xlBooks.Count == 0)
                {
                    //プロセスが残っていないか確認してください
                    return false;
                }
                xlBook = xlBooks.get_Item(1);
            }
            catch (COMException)
            {
                return false;
            }
            return true;
        }


    }
}

上記のクラスを呼び出す側のプログラム

if (!objExcelCtrl.GetExcelObject())          //←これは正常に通る
{
    return;
}
objExcelCtrl.Run("これはテストです");        //←これがうまく実行されない！

エクセルマクロのプログラム

'エクセルマクロ
Public Function iTest(ByVal pMsg As String)
    Cells(10, 1) = pMsg
End Function

この状態で、objExcelCtrl.Run()を実行すると、例外エラーが発生します。
そのメッセージ内容は、

マクロ 'iTest' を実行できません。このブックでマクロが使用できないか、またはすべてのマクロが無効になっている可能性があります。

というメッセージが表示されます。

エクセルのセキュリティーセンターの設定内容は、
「すべてのマクロを有効にする」が設定されている状態です。

何が原因なのか、解決方法を教えてください。

Answer 1

自己解決しました。

エクセルマクロの記述箇所を、シートに書いていたのですが、
それを標準モジュール内に記述したらうまくマクロが動作しました。

ご回答していただきまして、ありがとうございました。

Comments

[flied_onion]

動作したようで良かったです。

Sheetのマクロを実行したい場合は、関数名の前にシートのオブジェクト名（VBAウィンドウのプロパティで確認できます）を付ければうまくいくと思います。

オブジェクト名がSheet1の場合：
```csharp
xlApp.Run("Sheet1.iTest", pPara);
```

Answer 2

直接の回答ではないですが、Win10 + VS2013(.NET4.5.2) + Excel 2013 の環境で、以下のコードはうまく動作します。

コードはクリックイベントだけですが、新規フォームにボタンを置いてクリックイベントを以下の様に実装しただけのものです。

private void button1_Click(object sender, EventArgs e) {
  dynamic xlApp = Marshal.GetActiveObject("Excel.Application");
  dynamic xlBooks = xlApp.Workbooks;
  dynamic xlBook = xlBooks.Item(1);

  xlApp.Run("iTest", "val");

  Marshal.FinalReleaseComObject(xlBooks);
  Marshal.FinalReleaseComObject(xlBook);
  Marshal.FinalReleaseComObject(xlApp);
}

Excelを開いたのち、新規ブック（保存もしていない）にマクロを追加して上記のプログラムを実行するだけです。

違いとしてはget_ItemではなくItemを使っているところぐらいです。

マクロ 'iTest' を実行できません。このブックでマクロが使用できないか、またはすべてのマクロが無効になっている可能性があります。

このエラーは、存在しないマクロを指定した場合にも発生します。
取得したExcelが目的のプロセスではない（実はExcelが複数起動していて、違う方のExcelを取得してしまっている）とか、マクロのないBookを取得してしまっていないかも確認してみるといいかもしれません。

余談ですが、GetExcelObjectのxlBooksの処理中の例外処理では、xlAppやxlBooksがnullでなければ解放する(ReleaseComObject)処理を入れた方が良いでしょう。