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 编辑 ] |