vb写入数据到excel后如何保存

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
显示

倒数第2名用xlsheet.save就可以了!因为你前面是打开这个文件的!saveas是另存为,就不能用前面相同的文件名了!!
温馨提示:答案为网友推荐,仅供参考
第1个回答  2012-05-05
不要重复发帖子,另一个帖子回答了
相似回答