XCEL查找SQL SERVER数据库的数据

新建sql数据库，建立表单，测试数据。如图。这些都是常规操作。

我的表名是：Table_Yangji  

然后新建一个EXCEL连接SQL SERVER数据库.xlsx 填写如下内容，然后另存为EXCEL连接SQL SERVER数据库.xlsm

这个按钮是在：开发工具--插入--Active控件

然后打开Visual Basic 或者ALT+F11 插入模块。名称随便。没有影响。例如我取个conn

黏贴代码。

[html]  view plain   copy

1. <pre name="code" class="html">Public Function search_sql()  
2.   
3.   
4.   
5.   
6. Dim I2 As Integer, j2 As Integer, sht As Worksheet     ' i2,j2为整数变量；sht 为excel工作表对象变量，指向某一工作表  
7.   
8. Dim R, C, F, I As Integer      'R Excel表的行序号，C  Excel表的列序号 F 查询结果的总记录数  I SQL表的字段序号  
9.   
10. Dim strCn As String, strSQL As String '字符串变量  
11.   
12.   
13.   
14.   
15.   
16. '方法一：直接引入数据库驱动程序  
17. '工具 ---〉引用 ---〉Microsoft ActiveX data objects ....