[转]C#调用Excel VBA宏

[转载自]http://www.shangxueba.com/jingyan/95031.html

附上一段原创常用代码 计算列标题字符串

Function CalcColumn(ByVal c As Integer) As String
    Dim temp As String
    Dim x As Integer
    If c >  And c <=  Then
        x = (c - ) \
        If x >  Then
            temp = CStr(Chr(Asc("A") + x - ))
        End If
        x = c - (c \ ) *
        x = IIf(x = , , x)
        temp = temp + CStr(Chr(Asc("A") + x Mod  - ))
    End If
    CalcColumn = temp
End Function

         public static int ToIndex(string columnName)
         {
             if (!Regex.IsMatch(columnName.ToUpper(), @"[A-Z]+")) { throw new Exception("invalid parameter"); }
             int index = ;
             char[] chars = columnName.ToUpper().ToCharArray();
             for (int i = ; i < chars.Length; i++)
             {
                 index += ((int)chars[i] - (int)'A' + ) * (int)Math.Pow(, chars.Length - i - );
             }
             return index - ;
         }

         public static string ToName(int index)
         {
             if (index < ) { throw new Exception("invalid parameter"); }
             List<string> chars = new List<string>();
             do
             {
                 if (chars.Count > ) index--;
                 chars.Insert(, ((char)(index %  + (int)'A')).ToString());
                 index = (int)((index - index % ) / );
             } while (index > );
             return String.Join(string.Empty, chars.ToArray());
         }

         private void button1_Click(object sender, EventArgs e)
         {
             // 数字转字母列
             //this.textBox2.Text = ToName(Convert.ToInt16(this.textBox1.Text.ToString().Trim()));
             this.textBox2.Text = ToName(Convert.ToInt16(this.textBox1.Text.ToString().Trim()) - );
         }

         private void button2_Click(object sender, EventArgs e)
         {
             // 字母转数字列
             //this.textBox2.Text = (ToIndex(this.textBox1.Text.Trim())).ToString();
             this.textBox2.Text = (ToIndex(this.textBox1.Text.Trim()) + ).ToString();
         }

根据列数计算列标题字母

http://support.microsoft.com/kb/306683/zh-cn

 using System;
 using System.IO;
 //using Microsoft.Office.Core;
 using Excel = Microsoft.Office.Interop.Excel;
 using System.Reflection;

 namespace DoVBAMacro
 {
     ///
     /// 执行Excel VBA宏帮助类
     ///
     public class ExcelMacroHelper
     {
         ///
         /// 执行Excel中的宏
         ///
         /// Excel文件路径
         /// 宏名称
         /// 宏参数组
         /// 宏返回值
         /// 执行时是否显示 Excel
         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 = Missing.Value;

                 // 根 据参数组是否为空，准备参数组对象
                 object[] paraObjects;

                 if (parameters == null)
                 {
                     paraObjects = new object[] { macroName };
                 }
                 else
                 {
                     // 宏参数组长度
                     int paraLength = parameters.Length;

                     paraObjects = new object[paraLength + ];

                     paraObjects[] = macroName;
                     for (int i = ; i < paraLength; i++)
                     {
                         paraObjects[i + ] = 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 ex)
             {
                 throw ex;
             }
         }

         ///
         /// 执行宏
         ///

         /// Excel对象
         /// 参数（第一个参数为指定宏名称，后面为指定宏的参数值）
         /// 宏返回值
         private object RunMacro(object oApp, object[] oRunArgs)
         {
             try
             {
                 // 声明一个返回对象
                 object objRtn;

                 // 反射方式执行宏
                 objRtn = oApp.GetType().InvokeMember(
                                                    "Run",
                                                    BindingFlags.Default | BindingFlags.InvokeMethod,
                                                    null,
                                                    oApp,
                                                    oRunArgs
                                                     );

                 // 返回值
                 return objRtn;
             }
             catch (Exception ex)
             {
                 // 如果有底层异常，抛出底层异 常
                 if (ex.InnerException.Message.ToString().Length > )
                 {
                     throw ex.InnerException;
                 }
                 else
                 {
                     throw ex;
                 }
             }
         }
     }
 }

 ////示例三个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

 ////对应 的三个使用方法
 //不带参数的宏调用（兼演示执行过程显示Excel文件）
 //带 参数的宏调用（兼演示执行过程不显示Excel文件）
 //有返回值的宏调用
 //private void btnExe_Click(object sender, EventArgs e)
 //{
 //try
 //{
 //// 返回对象
 //object objRtn = new object();

 //// 获得一个ExcelMacroHelper对象
 //ExcelMacroHelper excelMacroHelper = new ExcelMacroHelper();

 //// 执行指定Excel中的宏，执行时显示Excel
 //excelMacroHelper.RunExcelMacro(
 //@"E:\csharp_study\DoVBAMacro\test.xls",
 //"getTime2",
 //new Object[] { "现在时刻" },
 //out objRtn,
 //true
 //);

 //// 执行指定Excel中的宏，执行时不显示Excel
 //excelMacroHelper.RunExcelMacro(
 //@"E:\csharp_study\DoVBAMacro\test.xls",
 //"getTime2",
 //new Object[] { "现在时刻" },
 //out objRtn,
 //false
 //);

 //// 执行指定Excel中的宏，执行时显示Excel，有返回值
 //excelMacroHelper.RunExcelMacro(
 //@"E:\csharp_study\DoVBAMacro\test.xls",
 //"getTime3",
 //new Object[] { "现在时刻" },
 //out objRtn,
 //true
 //);

 //MessageBox.Show((string)objRtn);

 //}
 //catch(System.Exception ex)
 //{
 //MessageBox.Show(ex.Message);
 //}
 //}