dim xlApp as Excel.Application
dim xlBook as Excel.Workbook
dim xlSheet as Excel.Worksheet
set xlApp = CreateObject("Excel.Application")
set xlBook = xlApp.Workbooks.open("aaa.xls")
set xlSheet = xlBook.Worksheets(1)'在此用程序控制进行编辑xlBook.save
xlApp.close
set xlApp = Nothing刷新OLEDB控件中的excel:aaa.xls的显示。