Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook' Open the destination Excel workbook.
Set xlApp = New Excel.Application
Set xlBook = xlApp.Workbooks.Open("D:\Book1.xls")
......' Clean up everything.
xlBook.Save
xlBook.Close False
xlApp.Quit
Set xlBook = Nothing
Set xlApp = Nothing
Dim xlBook As Excel.Workbook' Open the destination Excel workbook.
Set xlApp = New Excel.Application
Set xlBook = xlApp.Workbooks.Open("D:\Book1.xls")
......' Clean up everything.
xlBook.Save
xlBook.Close False
xlApp.Quit
Set xlBook = Nothing
Set xlApp = Nothing
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货