Question

VBS如何获取EXCEL表里的数据？

Answer 1

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

Answer 2

Set excel=CreateObject("excel.application")
Set book=oexcel.Workbooks.Open("c:\tXXXX.xls")
Set sheet=obook.Sheets("sheet1")

msgbox osheet.cells(x,y)
(x,y为单元格坐标)

Set book=Nothing
Set sheet=Nothing
excel.Quit