作者:乔山办公网日期:
返回目录:excel表格制作
只能运行某个宏
在摸百个宏里边运行 用户度窗体知
如qw 宏中
Sub qw()
UserForm1.Show
End Sub
在用户窗体中把 按钮代码复道制到 窗体激活内事件下
Private Sub UserForm_Activate()
MsgBox "1234"
End Sub
'在VB中调用 qw 宏
Private Sub Command1_Click()
Set ExlApp = CreateObject("Excel.Application")
ExlApp.Workbooks.Open "E:\3.xls" ’文容件路径
ExlApp.Run "qw" '宏名
ExlApp.Visible = True
End Sub