用C#代碼操作Excel,運行Excel宏

using System;
using System.Collections.Generic;
using System.Text;
using System.IO;
using System.Windows.Forms;
using Excel = Microsoft.Office.Interop.Excel;
using Microsoft.Office.Core;
  

namespace DoVBAMacro
{
    /// <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>  
        /// <param name="isShowExcel">執行時是否顯示Excel</param> 
        //public void RunExcelMacro(string excelFilePath, string macroName, object[] parameters, out object rtnValue, bool isShowExcel)
        public void RunExcelMacro(string excelFilePath, string macroName, object[] parameters, object rtnValue, bool isShowExcel)
        {
            try
            {
                #region 檢查入參
                //檢查文件是否存在  
                if (!File.Exists(excelFilePath))
                {
                    MessageBox.Show(excelFilePath + " 文件不存在");
                    //return;
                }
                // 檢查是否輸入宏名稱  
                if (string.IsNullOrEmpty(macroName))
                {
                    MessageBox.Show("請輸入宏的名稱");
                    //return;
                }  
                #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;
                }
                // 創建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)
            {

                throw;
            }

        }
        /// <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;
                }
            }

        }


        internal void RunExcelMacro()
        {
            throw new Exception("The method or operation is not implemented.");
        }
    }
}


調用方法:

 private void button1_Click(object sender, EventArgs e)
        {
            ExcelMacroHelper ex = new ExcelMacroHelper();
            object outStr=null ;
            object[] aaa=new object[0];
            ex.RunExcelMacro("E://1.xls", "Sheet1.Macro2", aaa, outStr,  false  );
        }

發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.
相關文章