Excel Vba 跨表查询功能

1、下面是总表，有一千个学生的资料，我这里只举几项资料，如姓名、性别、出生年月日、学号、民族。

2、插入一个工作表，命名“一（1）班”，这个是自己班学生的名字，班主任当然很快打得出来。

3、现在B2单元格里输入“=VLOOKUP($A2,总表!$A$2:$E$1000,2,0)”，回车就可以显示小明的性别了。

注意：输入内容必须是英文状态下输入。

解释：$A2　代表本工作表要查找的单元格（意思是要到别的工作表查找与这个单元格相同的内容）

总表!　代表要查找的工作表（要在“总表”工作表里查找）

$A$2:$E$1000找在哪个范围查找，即A2到E1000这个范围内2代表要显示哪一列的数据，即查找范围是A2到B7，那A列为第1列，我想显示B列的数据，B（性别）列为第2列。

4、选中B2这一格，鼠标移到右下角出现黑十字时，单击左键不放往下拉，拉到最后一名学生再放开，所有的学生的性别就出现了。

5、再回来B2，像上面一步一样往右拉。

一看效果怎么打横的全都是性别，再看下一步。

6、选中C2，看看函数栏，原来要显示的列数还没改，还是第2列，那“出生年月日”是第3列，就改为3，再回车。

效果出来了，看到出生年月了，然后用上面的方法往下拉，把全班的拉出来。

7、如此类推，把其他列改过来之后，再往下拉，那么就可以显示所有的资料了。

Access是微软Office组件的数据库软件，使用它可以进行简单的数据库软件的开发。但Access的图表功能和数据分析功能不如Excel强大，常用的做法可以将Access中的数据导入Excel中再进行处理。

代码利用ADO组件可以方便地对各种数据进行连接和访问。ADO组件中的Connection对象可以实现对数据库的连接，并可以快速实现SQL语句的执行，然后再用VBA将SQL查询的结果输出到Excel表格中。

打开VBE窗口，选择菜单“工具”一“引用”，勾选MicrosoftActiveXDataObjects2.8Library，并单击“确定”按钮。

利用ADO连接数据库ADO的全称是ActiveXDataObject，是一个用于存取数据源的COM组件，用以快速实现各种数据库的连接、读取、写入。在ADO组件中有一个Connection对象，利用Connection对象的Open方法可以实现数据库的连接。

i = 1

j = 1

Do While 表1.Cells(i, 1) <>""

Do While 表2.Cells(j, 1) <>""

k = InStr(表1.Cells(i, 1), 表2.Cells(j, 1))

If k Then 表1.Cells(i, 1) = Left(表1.Cells(i, 1), k - 1) + 表2.Cells(i, 2) + Right(表1.Cells(i, 1), Len(表1.Cells(i, 1)) - k - 1)

Exit Do

Else

End If

j = j + 1

Loop

i = i + 1

Loop

这里的表1和表2用真实的表名和文件路径替换

---