C# 调用VBA的帮助类

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


namespace CSVTool
{
    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
                                   )
         {
             // Excel对象
             Excel.ApplicationClass oExcel = null;
             // Workbooks对象
             Excel.Workbooks oBooks = null;
             // 创建Workbook对象
             Excel._Workbook oBook = null;

             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对象示例
                 oExcel = new Excel.ApplicationClass();

                 // 判断是否要求执行时Excel可见
                 if (isShowExcel)
                 {
                     // 使创建的对象可见
                     oExcel.Visible = true;
                 }

                 // 创建Workbooks对象
                 oBooks = oExcel.Workbooks;



                 // 打开指定的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


             }
             catch (Exception ex)
             {
                 throw ex;
             }
             finally
             {
                 #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
             }
         }
 
         /// <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;
                 }
             }
         }
    }
 }
 
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;

namespace CSVTool
{
    class Test
    {
        static void Main(string[] args)
        {

        try
             {
                 // 返回对象
                 object objRtn = new object();
 
                 // 获得一个ExcelMacroHelper对象
                 ExcelMacroHelper excelMacroHelper = new ExcelMacroHelper();
 
                 // 执行指定Excel中的宏,执行时显示Excel
                 //excelMacroHelper.RunExcelMacro(
                 //                                    @"D:\CSV1.xls",
                 //                                    "getTime",
                 //                                    new Object[] { "现在时刻" },
                 //                                    out objRtn,
                 //                                    false
                 //                              );
 
                 // 执行指定Excel中的宏,执行时不显示Excel
                 excelMacroHelper.RunExcelMacro(
                                                     @"D:\CSV.xls",
                                                     "getTime2",
                                                     new Object[] { "现在时刻" },
                                                     out objRtn,
                                                     false
                                                );
 
                 // 执行指定Excel中的宏,执行时显示Excel,有返回值
                 //excelMacroHelper.RunExcelMacro(
                 //                                    @"E:\csharp_study\DoVBAMacro\test.xls",
                 //                                    "getTime3",
                 //                                    new Object[] { "现在时刻" },
                 //                                    out objRtn,
                 //                                    true
                 //                               );

                 //Console.WriteLine((string)objRtn);
 
            }
             catch(System.Exception ex)
             {
                 Console.WriteLine(ex.Message);
             }       
        
        }
    }
}

 

posted on 2013-12-13 23:33  鱼东鱼  阅读(566)  评论(0编辑  收藏  举报

导航