VBS如何获取EXCEL表里的数据？-vbs打开excel,vbs对excel的保存

Set oexcel=CreateObject("excel.application")
Set obook=oexcel.Workbooks.Open("c:\test\excel.xls")
Set osheet=obook.Sheets("sheet1")
'显示第知一个道工作表专A1单元格属数据

msgbox osheet.cells(1,1)
Set obook=Nothing
Set osheet=Nothing
oexcel.Quit
如果只用一个Excel.Applicartion打开ABC：
myExcelWorker.Workbooks("B").Visible=False
myExcelWorker.Workbooks("C").Visible=False
myExcelWorker.Workbooks("A").Visible=True
这时，在Excel窗口中，操zhidao作者可以通过菜单【窗口】【取消隐藏】来显示BC；专
或者
你使用属两个Excel.Application对象(比如myExcelWorker1和myExcelWorker2)，分别打开A和BC，让myExcelWorker1可见myExcelWorker2不可见（这种情况下，你引用ABC要分别指定myExcelWorker1和myExcelWorker2）

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