如何在Excel中使用SQL语言实现数据查询？

Posted 2023-04-27

参考技术A

1、选中表格后单击右键选择“定义名称”。

2、单击后，出现命名对话框。

3、这里将表1和表2分别命名为Table1和Table2。

4、选择上方的“数据”选项卡，选择“自其他来源”下的“来自Microsoft Query ”选项。

5、在弹出的对话框中选择Excel Files*那一项，并且把对话框下面的“使用“查询向导”创建/编辑查询”勾掉。

6、点击“确定”，便出现“选择工作簿”的对话框，这里选择包含表1和表2的工作表xxx.xlsx。

7、点击确定后之后弹出添加表的对话框。

8、点击确定后之后弹出添加表的对话框。

9、输入SQL语句的按钮，弹出输入SQL语句的对话框 输入SQL，看到筛选出来的数据表。

10、将筛选出来的数据表再返回至Excel工作表当中，选择菜单中的“文件”——“将数据返回Microsoft Excel”。

在excel中如何使用vba实现将sql的数据快速写入excel

如题，将sql数据库的内容全部写入到excel的当前打开的工作表中，数据量较大，求快速写入的代码

Dim conn As New ADODB.Connection
connStr = "Driver=SQL Server;DataBase=test;Server=(local);UID=sa;PWD=123"
conn.Open connStr '连接数据库
Dim rs As New Recordset
sql = "select * from a" '查看表a
rs.Open sql, conn, 3, 3
if Not rs.EOF then
   For iCols = 0 To rs.fields.Count - 1
       Sheets(1).Cells(1, iCols + 1).Value = rs.fields(iCols).Name
   Next iCols
   Sheets(1).Cells(2, 1).CopyFromRecordset rs
endif

参考技术A 不用代码，可直接导入