dieuchinhlu > 17-06-11, 06:47 PM
Function App_MSEXCEL()
On Error GoTo App_MSEXCEL_Err
Call Shell("D:\Program Files\Microsoft Office\Office14\EXCEL.EXE", 1)
App_MSEXCEL_Exit:
Exit Function
App_MSEXCEL_Err:
msgBoxOK Error$
Resume App_MSEXCEL_Exit
End Function
Function App_Note()
On Error GoTo App_Note_Err
Call Shell("%windir%\system32\notepad.exe", 1)
App_Note_Exit:
Exit Function
App_Note_Err:
msgBoxOK Error$
Resume App_Note_Exit
End Function