c#程序調用Excel程序，可以讓excel顯示，也可以讓excel不顯示，但經過多次測試，如果excel不顯示執行vba，則之前必須打開過一次，否則就會報錯
這是需要引用的dll
using Microsoft.Office.Interop.Excel
using Microsoft.Office.Core
using Excel = Microsoft.Office.Interop.Excel; using Microsoft.Office.Core; using System.IO;
//下面這兩個函數閉着眼睛直接抄
string xadd = @"C:\Users\Administrator\Desktop\set.xlsm"; //記錄excel地址文件
/// <summary>
/// 執行Excel中的宏
/// </summary>
/// <param name="excelFilePath">Excel文件路徑</param>
/// <param name="macroName">宏名稱</param>
/// <param name="parameters">宏參數組</param>
/// <param name="rtnValue">宏返回值</param>
/// <param name="isShowExcel">執行時是否顯示Excel</param>
public void RunExcelMacro(string excelFilePath, string macroName, object[] parameters, out object rtnValue, bool isShowExcel) { try { #region 檢查入參 // 檢查文件是否存在 if (!File.Exists(excelFilePath)) { throw new System.Exception(excelFilePath + " 文件不存在"); } // 檢查是否輸入宏名稱 if (string.IsNullOrEmpty(macroName)) { throw new System.Exception("請輸入宏的名稱"); } #endregion #region 調用宏處理 // 准備打開Excel文件時的缺省參數對象 object oMissing = System.Reflection.Missing.Value; // 根據參數組是否為空，准備參數組對象 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]; } } // 創建Excel對象示例 Excel.ApplicationClass oExcel = new Excel.ApplicationClass(); // 判斷是否要求執行時Excel可見 if (isShowExcel) { // 使創建的對象可見 oExcel.Visible = true; } else { oExcel.Visible = false; } // 創建Workbooks對象 Excel.Workbooks oBooks = oExcel.Workbooks; // 創建Workbook對象 Excel._Workbook oBook = null; // 打開指定的Excel文件 oBook = oBooks.Open( excelFilePath, oMissing, oMissing, oMissing, oMissing, oMissing, oMissing, oMissing, oMissing, oMissing, oMissing, oMissing, oMissing, oMissing, oMissing ); // 執行Excel中的宏 rtnValue = this.RunMacro(oExcel, paraObjects); // 保存更改 oBook.Save(); // 退出Workbook oBook.Close(false, oMissing, oMissing); #endregion #region 釋放對象 // 釋放Workbook對象 System.Runtime.InteropServices.Marshal.ReleaseComObject(oBook); oBook = null; // 釋放Workbooks對象 System.Runtime.InteropServices.Marshal.ReleaseComObject(oBooks); oBooks = null; // 關閉Excel oExcel.Quit(); // 釋放Excel對象 System.Runtime.InteropServices.Marshal.ReleaseComObject(oExcel); oExcel = null; // 調用垃圾回收 GC.Collect(); #endregion } catch (Exception ex) { throw ex; } } /// <summary> /// 執行宏 /// </summary> /// <param name="oApp">Excel對象</param> /// <param name="oRunArgs">參數（第一個參數為指定宏名稱，后面為指定宏的參數值）</param> /// <returns>宏返回值</returns> private object RunMacro(object oApp, object[] oRunArgs) { try { // 聲明一個返回對象 object objRtn; // 反射方式執行宏 objRtn = oApp.GetType().InvokeMember( "Run", System.Reflection.BindingFlags.Default | System.Reflection.BindingFlags.InvokeMethod, null, oApp, oRunArgs ); // 返回值 return objRtn; } catch (Exception ex) { if (ex.InnerException.Message.ToString().Length > 0) { throw ex.InnerException; } else { throw ex; } } }
c#執行
private void button1_Click(object sender, EventArgs e) { try { // 返回對象 object objRtn = new object(); //執行指定Excel中的宏，執行時顯示Excel RunExcelMacro( xadd, "getTime", new Object[] { }, out objRtn, true ); // 執行指定Excel中的宏，執行時不顯示Excel RunExcelMacro( xadd, "getTime2", new Object[] { "現在時刻" }, out objRtn, false ); //執行指定Excel中的宏，執行時顯示Excel，有返回值 RunExcelMacro( xadd, "getTime3", new Object[] { "現在時刻" }, out objRtn, false ); MessageBox.Show((string)objRtn); } catch (System.Exception ex) { MessageBox.Show(ex.Message); } }
vba函數類型
Sub getTime() Sheet1.Cells(1, 1) = Now End Sub Sub getTime2(title As String) Sheet1.Cells(2, 1) = title & " : " & Now End Sub Function getTime3(title As String) As String getTime3 = title & " : " & Now End Function
注：
期間有個無法嵌入互操作類型“Microsoft.Office.Interop.Excel.ApplicationClass”。請改用適用的接口
解決方法：選中引用的DLL：Microsoft.Office.Interop.Excel；右鍵屬性，找到"嵌入互操作類型"，將true改為false,就可以了
