,vbOKOnly, gsAPP_TITLE
End If
End Sub
'处理文件->关闭菜单项
'也可被文件->新建, 文件->打开和文件->退出调用
'确认关闭并可选择保存/另存为...Is Nothing Then MenuFileClose
'如果仍然存在, 取消关闭, 不退出
If Not gwbkResults Is Nothing Then Exit Sub...退出Excel
Application.Quit
End If
End Sub
'处理->合并工时表菜单项
Sub MenuConsolidate()
Dim wksData...vFiles = Application.GetOpenFilename("PETRAS工时表工作簿(*.xls*), *.xls*", , "选择要合并的工作簿",, True)
'如果取消则退出...'当请求一个多选列表时,如果确定或取消,将返回一个数组
'因此可以测试数组(确定)的情况:
If Not IsArray(vFiles) Then Exit Sub