[转]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 > 0 And c <= 256 Then
        x = (c - 1)  26
        If x > 0 Then
            temp = CStr(Chr(Asc("A") + x - 1))
        End If
        x = c - (c  26) * 26
        x = IIf(x = 0, 26, x)
        temp = temp + CStr(Chr(Asc("A") + x Mod 27 - 1))
    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 = 0;
            char[] chars = columnName.ToUpper().ToCharArray();
            for (int i = 0; i < chars.Length; i++)
            {
                index += ((int)chars[i] - (int)'A' + 1) * (int)Math.Pow(26, chars.Length - i - 1);
            }
            return index - 1;
        }

        public static string ToName(int index)
        {
            if (index < 0) { throw new Exception("invalid parameter"); }
            List<string> chars = new List<string>();
            do
            {
                if (chars.Count > 0) index--;
                chars.Insert(0, ((char)(index % 26 + (int)'A')).ToString());
                index = (int)((index - index % 26) / 26);
            } while (index > 0);
            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()) - 1);
        }

        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()) + 1).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 + 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 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 > 0)
                {
                    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_studyDoVBAMacro	est.xls",
//"getTime2",
//new Object[] { "现在时刻" },
//out objRtn,
//true
//);

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

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

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

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