如何使用EXCEL读取外部数据库数据
发布网友
发布时间：2022-04-21 06:13
我来回答
共3个回答
懂视网
时间：2022-04-30 09:26
Sub getdata()
Dim cnn As New ADODB.Connection, sh As Worksheet
Dim rs As New ADODB.Recordset
Dim cnnStr As String, SQL As String
cnnStr = "Provider=SQLOLEDB;Initial Catalog=BI" & ";User ID=sa" & ";Password=Aa123456" & ";Data Source=172.16.0.73"
cnn.ConnectionString = cnnStr
cnn.Open
SQL = "SELECT * from dbo.tt"
MsgBox "执行查询数据开始： " & SQL
Set rs = cnn.Execute(SQL)
For col = 0 To rs.Fields.Count - 1
Sheets("Sheet2").Range("A1").Offset(0, col).Value = rs.Fields(col).Name
Next
Sheets("Sheet2").Range("A1").Offset(1, 0).CopyFromRecordset rs
rs.Close
MsgBox "执行查询结束！"
Set rs = Nothing
cnn.Close
Set cnn = Nothing
End Sub
对代码的说明：
Data Source：数据库IP
Catalog：数据库名
User ID：用户名
Password：数据库密码
SQL ：SQL语句，通常是直接读取某个表
执行过程会有两个弹出窗口，点击确认即可。
最后数据会写入当前Excel文件的Sheet2中
要执行上面的代码还需要给Excel设置一下：
大概是Library的，记不清了，后面想起来再更新此文。
版权声明：本文为博主原创文章，未经博主允许不得转载。
Excel读取数据库表
标签：excel
热心网友
时间：2022-04-30 06:34
步骤1：点击开始，打开Microsoft
Excel
2010。
2
步骤2：打开之后，点击数据，其他来源，来自SQL
Server。
3
步骤3：打开数据链接向导之后，输入服务器名称和登陆用户名和密码。点击下一步。
步骤4：点击下一步之后，报错，不能够正常链接数据库。
步骤5：打开SQL
Server
数据库代理服务器，查看代理停止工作，将其启动。
步骤6：修改服务器名称为SQL
Server所在的服务器的IP地址填写入服务器名称，登陆名称和密码全部为sa。
步骤7：进入，选择数据库和表。选择PUBS，点击下一步。
步骤8：点击下一步，保持链接文件，点击完成。
步骤9：点击导入数据
步骤10
连接属性，连接名称：172.16.0.31
pubs
employee，连接文件：C:\Documents
and
Settings\lys\My
Documents\我的数据源\172.16.0.31
pubs
employee.odc
连接字符串：
Provider=SQLOLEDB.1;Persist
Security
Info=True;User
ID=sa;Data
Source=172.16.0.31;Use
Procere
for
Prepare=1;Auto
Translate=True;Packet
Size=4096;Workstation
ID=L10-1DA235E90;Use
Encryption
for
Data=False;Tag
with
column
collation
when
possible=False;Initial
Catalog=pubs
命令文本："pubs"."dbo"."employee"
步骤11：点击确定，输入密码Sa。
步骤12：
我们可以看到将SQL
Server数据写入了EXCEL中。
查询EXCEL中数据库：
查询数据库中数据：
SELECT
*
FROM
employee
热心网友
时间：2022-04-30 07:52
在excel里面点菜单【数据】下面的获取外部数据、数据库，或者新建立数据库链接。
