set xlapp=getobject(,"excel.application")
set xlbook=xlapp.workbooks("工作簿1")
set xlsheet=xlbook.sheets("sheet1")
msgbox xlsheet.range("a1")'''读取数据
xlsheet.range("a1")=10000''''写数据
xlbook.save'''未保存过用saveas 路径 这是保存
xlbook.close true ''关闭工作簿1
xlapp.quit '''退出excel