Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlbook = xlApp.Workbooks.Open("e:\1.xls") '打开已经存在的EXCEL工件簿文件 e:\1.xls根据你的情况修改
xlApp.Visible = False '设置EXCEL对象可见（或不可见False）
Set xlsheet = xlbook.worksheets("sheet1") '设置活动工作表 sheet1是工作表 你也修改
a=xlsheet.cells(i, j) 'i,j变量读取i行j列的数据
'你读取完数据判断条件 要读取sheet2则
set xlsheet=xlbook.worksheets("sheet2") '这样之后再读取数据就行了
SHEET1的A1中写 =Sheet2!A1
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024