作者：乔山办公网日期：
返回目录：excel表格制作
H3输入公式：(MAX(E3：G3))/(1.5*D3) 然后设置单元格格式为百分比。个人认为用公式解决更快些
Set VBExcel = CreateObject("Excel.Application")
VBExcel.Run ("C:\MyFile\MyExcel.xs!MySub")
Set VBExcel = Nothing
VBExcel.Run参数
文件名!宏名
确保Excel安全级copy别为低，否则会阻止VB自动调用宏百。
由于度你描述不清楚，我不能准确告诉你如何做。你需要知在你宏里面设置对应年份的参数的函数，通过中间文件或者什么传递变量。你可以百度中查询：VB调用 excel 宏。
其实你可以把宏复制到vb代码中实现，也可道以用vb引用excel画图表。
如果能在EXCEL里运行，那就能在VB中运行，首先你要确定“excel 11.0” 或9.0被引用，其次就是变量要定义好，是什么对象最好预定义，宏其实就是一个过程，在VB直接调用就可以了
首先在Excel里面录制宏。
然后在VB"工程"菜单中选择"引用"栏；选择Microsoft Excel x.x Object Library
在VB里设置一个按钮Button1
以下代码：
Sub button1_click()
Dim xlApp As Excel.Application
Dim xlBook As Excel.WorkBook
Dim xlSheet As Excel.Worksheet
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook = xlApp.Workbooks.Open("文件名") '打开已经存在的EXCEL工件簿文件
xlApp.Visible = True '设置EXCEL对象可见（或不可见）
Set xlSheet = xlBook.Worksheets("表名") '设置活动工作表
With xlSheet
'在这里，把你在Excel里面录制的宏复制到下面，适当修改一下，例如
.Cells(1,1) = “'给单元格（A1）赋值”
.PrintOut '打印工作表
End With
xlBook .Close (True) '关闭工作簿
xlApp.Quit '结束e69da5e887aae799bee5baa6e997aee7ad94330EXCEL对象
Set xlApp = Nothing '释放xlApp对象End Sub