附上一段原创常用代码 计算列标题字符串
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);
//}
//}

[转]C#调用Excel VBA宏的更多相关文章

  1. C#调用Excel VBA宏

    近日的一系列工作是做网站的营运维护,因此做了大量的支持工具.有Excel中写VBA的,也有直接C#做的工具.有时需要在C#中执行Excel VBA宏,甚至有时还需要在执行了VBA宏之后,获取返回值再进 ...

  2. C#调用Excel VBA宏[转载]

    原文地址:https://www.cnblogs.com/heekui/archive/2008/03/30/1129355.html 近日的一系列工作是做网站的营运维护,因此做了大量的支持工具.有E ...

  3. Excel VBA宏 链接服务器 上传和下载数据

    首先说明以下. 第一: 下面的 “ _" 也就是 空格下划线 在VBA中表示换行的意思:& 表示链接连个字符串的操作,注意 & 的前后是否需要空格 第二: 如果链接服务器,服 ...

  4. C#调用Excel宏

    using System; using Excel = Microsoft.Office.Interop.Excel; namespace WindowsFormsApplication1 { /// ...

  5. 功能区按钮调用Excel、PowerPoint、Word中的VBA宏:RunMacro

    功能区按钮调用Excel.PowerPoint.Word中的VBA宏:RunMacro 众所周知,Excel.PPT.Word文档或加载宏文件中可以写很多过程和函数,调试的过程中当然可以按F8或F5直 ...

  6. Excel VBA(宏):添加宏

    写在前面: .编写宏,打开VBA,双击ThisWorkbook对当前工作薄进行编写宏:双击Sheet1,对整个sheet编写宏: 或者创建模块,在模块里,编写.调试代码. 打开VBA的方法见第一讲,结 ...

  7. Excel VBA入门(七)注释、宏按钮及错误处理

    系统性的知识前面已经讲完,从本章开始,本系列教程涉及的将会是一些相对凌散的内容. 1. 注释 代码注释是一件利人利己的事,为了方便自己在代码需要更新修改时,依然能够快速地看懂自己完的每一行代码到底是什 ...

  8. Excel 导出指定行为txt文件(VBA,宏)

    要从Excel 多个sheet内导出指定行为txt文件,懒得用C#了,写个VBA宏 Sub Export() Dim FileName As Variant Dim Sep As String Dim ...

  9. 使用vbs调用excel中的宏

    使用vbs打开excel文件,并且传递参数调用excel中的macro,自动化完成excel文件的制作. Set oExcel = createobject("Excel.Applicati ...

随机推荐

  1. 网络协议栈学习(二)创建 socket

    下面通过学习linux 1.2.13源码进一步理解socket通信机制.对该版本源码的学习主要参考<Linux内核网络栈源代码情景分析>(曹桂平 编著). 要理解socket的本质,就要理 ...

  2. stream_get_contents 和file_get_content的区别

    stream_get_contents — 读取资源流到一个字符串, 即其读取的内容是一个已经打开的资源句柄,如fopen函数打开的文件句柄,. 而 file_get_content可以直接读取文件内 ...

  3. nwjs 实现的 分块上传

    1.先上核心工具类/** * Created by Administrator on 2017/6/12. */let fs = require("fs");/** * Creat ...

  4. ZOJ 2965 Accurately Say "CocaCola"!

    Time Limit: 2 Seconds      Memory Limit: 65536 KB In a party held by CocaCola company, several stude ...

  5. 玩转TypeScript(1) --定义简单的类

    相对于JavaScript来说,TypeScript增强了强制类型,同时添加了一系列的面向对象的特性,包含:静态类型(Static typing).类(Classes).接口(Interfaces). ...

  6. 获奖感言和C语言的学习心得

    获奖感言和C语言的学习心得 自我介绍: 大家好,我的名字叫袁忠,我来自湖南,今年快19岁了,现在是大学一年级,我平时喜欢跑步.打羽毛球,我也喜欢学算法与数学,以及喜欢看一些与计算机有关的书籍,每次我学 ...

  7. jQuery自动完成点击html元素

    /************************************************************************** * jQuery自动完成点击html元素 * 声 ...

  8. shell 脚本实战笔记(5)--搭建资源的镜像服务器

    背景: 由于访问国外站点资源, 有时特别慢. 偶尔一次下载, 肯定还能忍受, 对于多次使用或者小团队内部使用, 搭建一个镜像站点, 无疑是个明智的决定. 这边以搭建CDH5的yum源镜像, 作为例子, ...

  9. ACM大牛的BLOG(转)

    Twilightgod CUSThttp://blog.csdn.net/twilightgodAekdycoin FZU http://hi.baidu.com/aekdycoinForeverli ...

  10. [题解] CodeM美团点评编程竞赛资格赛题

    最近看到牛课网美团一个编程竞赛,想着做做看,结果一写就是两天..真是写不动了啊.话不多说,下面开始我的题解. 题目大致还是比较考察思维和代码能力(因为自己代码能力较弱,才会觉得比较考察代码能力吧= = ...