excel表格怎么使用sub

1.Excel 怎样在主sub中引用其他自定义的sub

Sub 创建菜单项（）

Dim MenuObject As CommandBarPopup

Dim MenuItem As Object

Call 删除菜单

Set MenuObject = Application.CommandBars(1).Controls.Add(Type:=msoControlPopup, before:=11, temporary:=True)

MenuObject.Caption = "泰星账务（&X）"

Set MenuItem = MenuObject.Controls.Add(Type:=msoControlButton)

MenuItem.Caption = "8月份生产日报表"

MenuItem.OnAction = "打开8月份生产日报表"

Set MenuItem = MenuObject.Controls.Add(Type:=msoControlButton)

MenuItem.Caption = "9月份生产日报表"

MenuItem.OnAction = "打开9月份生产日报表"

Set Menu = Nothing

Set MenuItem = Nothing

Set MenuObject = Nothing

End Sub

Sub 删除菜单（）

On Error Resume Next

Application.CommandBars(1).Controls（"泰星账务（&X）").Delete

On Error GoTo 0

End Sub

这是我在用的实例

直接写过程名或用Call 过程名 都可以引用子SUB。

2.如何在excel vba中调用word vba过程sub test

一、打开word文件代码：Setwo=CreateObject("Word.Application")wo.Documents.OpenThisWorkbook.Path&"\流程.doc"wo.Visible=True二、打开ppt文件代码：方法1:Setwo=CreateObject("Powerpoint.Application")wo.Visible=Truewo.Presentations.OpenThisWorkbook.Path&filename方法2:Subdd()Dimfilepath$,filename$filepath=Chr(34)&ThisWorkbook.Path&filename&Chr(34)Shell"POWERPNT.EXE"&filepathEndSub附：双击打开PPS文件，在演示完后退出PPS时并没有PowerPoint主窗口保留，但在Excel中使用VBA打开的PPS文件，在演示完PPS退出后，PowerPoint主窗口仍然打开。

这里使用一个循环判断演示窗口是否存在，加上错误捕捉程序来处理上面这个问题。_Click()'创建PowerPoint应用实例Setapp=CreateObject("Powerpoint.Application")'使PowerPoint可见app.Visible=True'打开PPS文件Setwo=app.Presentations.Open(ThisWorkbook.Path&"\a.pps")'当PPS演示结束时，wo对象的SlideShowWindow不存在，捕捉到错误OnErrorGoToerrHandle'PPS演示时全屏。