Set xlApp = CreateObject("excel.application")Set xlBook = xlApp.Workbooks.Open(App.Path & "\jilu.xls")Set xlSheet = xlBook.Worksheets(1) xlSheet.Cells(10, 2) = Time() xlSheet.SaveAs (App.Path & "\jilu.xls") xlBook.Close显示