第一阶段。根据本工作薄的一个sheet进行查询
该表格式如下图：

I

未引用 activex data objects 2.0
Sub 查询()
dim con,sql$
set con=createobject("adodb.connection")
conn.open "dsn=excel files;dbq=" & ThisWorkbook.FullName
***** sql语句*****
activesheet.[a1].copyfromrecordset con.execute(sql)
con.close
set con=nothing
end sub
I

提取b列所有记录
sql="select 联系人 from [供应商信息$]"
select 栏位名 from 表格名
栏位名为数据区第一行的列名称。
注意：由于数据源文件是excel,需要在sheet名后加 $ 号，并用中括号括起来
如果是access,不需要加中括号及$号
I

去重
关键字　distinct
格式 Select distinct "栏位名" From "表格名"
sql = "select distinct 联系人 from [产品信息$]"
取得联系人列（b列）中的不重复姓名
结果正确

I