C#调用Excel Vba宏

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,就可以了