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的显示。
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的显示。
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货