作者：乔山办公网日期：
返回目录：excel表格制作
首先，工程－引用microsoftExcel11.0)bjectLibrary然后代zhidao码如下：DimxlAppAsObjectDimxlBookAsObjectSetxlApp=CreateObject("Excel.Application")SetxlBook=xlApp.Workbooks.AddWithxlAppxlApp.Visible=False.Rows(1).Font.Bold=True'设置第一行为粗体.Cells(10,10).Value＝"姓名".Application.Visible=TrueEndWithSetxlApp=NothingSetxlBook=Nothing如想了解其他操作excel的代码，可以在excel中，点击菜单的工具—版—权宏——录制新宏。然后你手动对excel操作，操作完成后停止录制。再点击工具——宏——visualbasic编辑器，找到刚才录制的宏，就可以看到刚才对excel所做的操作对应的vb代码了。
Sub 宏抄1()
Call 宏2
End Sub
Sub 宏2()
MsgBox nihao
End Sub
运行宏1就调用了宏2，会弹出对话框“nihao”,宏2的作用域需要是Public，就是Sub 前面的前缀，省略默zd认就是Public。
这个可以复有
Sub chiefzjh()
Dim xlApp, xlBook
Set xlApp = CreateObject("excel.application")
Set xlBook = xlApp.Workbooks.Open("E:\My Document\用宏汇总出制入zhidao库数据.xls")
xlApp.Visible = True
End Sub
如果是 word 文件，可以先建立一个快捷方百式，快度捷方式的目标这样写：
"C:\Program Files\Microsoft Office\Office14\WINWORD.EXE" C:\...\产品知报告.docm /mShowMainForm
ShowMainForm是thisDocument中的sub,也就是宏名称
这时双击快道捷方式就会 自动打开这个 产品报告.docm 并且执行回ShowMainForm中逻辑；
这时再写批处理文件 直接打答开这个 快捷方式文件就行了