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