如何在没有导入excel的情况下获取excel中的测试数据

Set oExcel = CreateObject(“excel.application”) ‘创建excel对象
oExcel.Workbooks.Open “d:\iQuickTest.xls” ‘此处填入你需要连接的Excel路径
Set oSheet = oExcel.Sheets.Item(1) ‘获取sheet对象
MsgBox oSheet.cells(1.1) ‘获取某个单元格中的值
oExcel.Workbooks.Close ‘关闭当前工作博
oExcel.Quit ‘退出excel
Set oExcel = Nothing ‘释放oExcel对象实例