Excel表中连接sql并使用sql语句引用excel单元格...-excel读取数据库,excel数据库调取数据

Excel程序自带的外部数据连接功能，可以连百接SQL服务器。具体步骤为：
1、选择【数据】选项卡，在【获取外部数度据】分组，知找到【自其他来源】。
2、单击【自其他来源】按道钮，打开【选择来源】下拉菜单。
3、选择【来自SQL Server】打开【数据连接版向导权】对话框。
4、填写服务器名称、登录的用户名及密码等信息，即可成功连接。

将Excel中的数据导入到Access中，前提是在Access中的表已经建好。e5a48de588b6e79fa5e98193333

dim conn
dim conn2
set conn=CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database PassWord=;Data Source=c:\book1.mdb"

set conn2=CreateObject("ADODB.Connection")
conn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Extended properties=Excel 5.0;Data Source=c:\book1.xls"

sql = "SELECT * FROM [Sheet1$]"
set rs = conn2.execute(sql)
while not rs.eof
sql = "insert into xxx([a],[b],[c],[d]) values('"& fixsql(rs(0)) &"','"& fixsql(rs(1)) &"','"& fixsql(rs(2)) &"','"& fixsql(rs(3)) &"')"
conn.execute(sql)
rs.movenext
wend

conn.close
set conn = nothing
conn2.close
set conn2 = nothing

function fixsql(str)
dim newstr
newstr = str
if isnull(newstr) then
newstr = ""
else
newstr = replace(newstr,"'","''")
end if
fixsql = newstr
end function

导入到Sql Server数据库中时，如果Excel文件和数据库不在同一台服务器上时，请参考上面的代码。在同一机器上可以参考下面代码（不需要先把表建表，程序会自己动建表，用Excel中的第一行数据做为表的字段名）：

dim conn
set conn=CreateObject("ADODB.Connection")
conn.Open ("driver={SQL Server};server=localhost;uid=sa;pwd=sa;database=hwtemp;")
sql = "SELECT * into newtable FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0','Data Source=""c:\book1.xls"";User ID=Admin;Password=;Extended properties=Excel 5.0')...[Sheet1$] "
conn.execute(sql)

conn.close
set conn = nothing

Excel程序自带的外部数据连接功能，可以连接SQL服务器。具体步骤为：
1、选择【数据】选项zd卡，在【获取外部数据】分组，找到【自其他来源】专。
2、单击【自其他来源】按钮，打开【选择来源】下拉菜单。
3、选择【来自SQL Server】打开【数据连接向导】对话框。
4、填写服务器名称、登录的用户名及密码等属信息，即可成功连接。