Open App.Path & "\AlarmTable.xls" For Output As #1
Close #1
SaveDataDialog.CancelError = False
SaveDataDialog.Filter = "list(*.xls)|*.xls "
SaveDataDialog.DefaultExt = "D:\ "
SaveDataDialog.ShowSave
是做什么用的?
'open excel file
Set objWorkBook = objExcelFile.Workbooks.Open(App.Path & "\new.xls")