vb写入数据到excel后如何保存
SetxlApp=CreateObject("excel.application")SetxlBook=xlApp.Workbooks.Open(App.Path&"\j...
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
显示 展开
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
显示 展开
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询