VB怎么通过一个EXCEL表中的内容读取另一个EXCEL表中的内容

来源：百度知道 编辑：UC知道 时间：2024/05/17 03:58:40
我想设计一段VB程序，通过EXCEL表中sheet1中的数据去读取sheet2中对应的内容，不知哪位大侠能帮忙写一下，我写了哪是有错，先谢谢了！！！

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