使用excel內的巨集

  • 2906
  • 0

使用C#開啟含有巨集的excel檔後,執行巨集

                    try
                    {
                        ExcelMacroHelper excelMacroHelper = new ExcelMacroHelper();

                        // 返回對象
                        object objRtn = new object();

                        excelMacroHelper.RunExcelMacro(saveFileDialog1.FileName, "OrCAD整理", new Object[] { "OrCAD整理" }, out objRtn, true);
                    }
                    catch (Exception ex)
                    {
                        MessageBox.Show(ex.Message);
                    }

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
                                        )
        {
            #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];

                paraObjects[0] = macroName;
                for (int i = 0; i < paraLength; i++)
                {
                    paraObjects[i] = parameters[i];
                }
            }
            #endregion

            // 創建Excel對象示例
            Microsoft.Office.Interop.Excel.Application oExcel = new Microsoft.Office.Interop.Excel.Application();

            try
            {
                // 判斷是否要求執行時Excel可見
                if (isShowExcel)
                {
                    // 使創建的對象可見
                    oExcel.Visible = true;
                }

                // 創建Workbooks對象
                Microsoft.Office.Interop.Excel.Workbooks oBooks = oExcel.Workbooks;
                // 創建Workbook對象
                Microsoft.Office.Interop.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);


                #region 釋放對象

                // 釋放Workbook對象
                System.Runtime.InteropServices.Marshal.ReleaseComObject(oBook);
                oBook = null;

                // 釋放Workbooks對象
                System.Runtime.InteropServices.Marshal.ReleaseComObject(oBooks);
                oBooks = null;

                #endregion
            }
            catch (Exception ex)
            {
                throw ex;
            }
            finally
            {
                if (oExcel != null)
                {

                    // 關閉Excel
                    oExcel.Quit();

                    // 釋放Excel對象
                    System.Runtime.InteropServices.Marshal.ReleaseComObject(oExcel);
                    oExcel = null;

                    // 調用垃圾回收
                    GC.Collect();
                }

                
            }
        }

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