C#調用Excel宏

using System;
using Excel = Microsoft.Office.Interop.Excel;

namespace WindowsFormsApplication1
{
    /// <summary>
    /// 執行Excel VBA宏幫助類
    /// </summary>
    public class ExcelMacroHelper
    {
        /// <summary>
        /// 執行Excel中的宏
        /// </summary>
        /// <param name="excelFilePath">Excel檔案路徑</param>
        /// <param name="macroName">宏名稱</param>
        /// <param name="parameters">宏參數組</param>
        /// <param name="rtnValue">宏傳回值</param>
        public void RunExcelMacro(Excel.Application app, string macroName, object[] parameters, out object rtnValue)
        {
            // 根據參數組是否為空，準備參數組對象
            object[] paraObjects;
            if (parameters == null)
                paraObjects = new object[] { macroName };
            else
            {
                int paraLength = parameters.Length;
                paraObjects = new object[paraLength + 1];
                paraObjects[0] = macroName;
                for (int i = 0; i < paraLength; i++)
                    paraObjects[i + 1] = parameters[i];
            }
            rtnValue = this.RunMacro(app, paraObjects);
        }

        /// <summary>
        /// 執行宏
        /// </summary>
        /// <param name="oApp">Excel對象</param>
        /// <param name="oRunArgs">參數（第一個參數為指定宏名稱，後面為指定宏的參數值）</param>
        /// <returns>宏傳回值</returns>
        private object RunMacro(object app, object[] oRunArgs)
        {
            object objRtn;     // 聲明一個傳回對象

            // 反射方式執行宏
            objRtn = app.GetType().InvokeMember("Run", System.Reflection.BindingFlags.Default | System.Reflection.BindingFlags.InvokeMethod, null, app, oRunArgs);

            return objRtn;
        }
    }
}      

使用方法

app = new Microsoft.Office.Interop.Excel.Application();
app.Visible = true;

string filePath = @"F:\test.xlsm";
Workbook wb = app.Workbooks.Open(filePath);

object objRtn = new object();

// 執行指定Excel中的宏，執行時顯示Excel
ExcelMacroHelper excelMacroHelper = new ExcelMacroHelper();     
excelMacroHelper.RunExcelMacro(app,"hong",new Object[] { "現在時刻" },out objRtn);

MessageBox.Show(objRtn.ToString());      

在Excel中新增“子產品”

Function hong(title As String)
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    ws.Cells(1, 1).Value = title & ",123"
    hong = title & ",123"
End Function