如何使用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里面点菜单【数据】下面的获取外部数据、数据库，或者新建立数据库链接。