ES7.17
目标功能：关闭本表并打开指定表
命令如下：
Private Sub CommandButton1_Click()
Dim oAdd As Object
Set oAdd = Application.COMAddIns("ESClient.Connect").Object
oAdd.newReport ("合同登记表"), False
Set oAdd = Nothing
Application.DisplayAlerts = False
ThisWorkbook.Close False
Application.Quit
End Sub
执行后总是先打开合同登记表，然后关闭合同登记表，再关闭本表并打开合同登记表
请问老师们是否此命令有误，该如何修改，谢谢
[ 本帖最后由 牛老师 于 2008-6-30 12:59 编辑 ] |
发表于 2008-6-30 08:49:19
