VBA excel 使用SQL

最新推荐文章于 2025-05-21 12:37:21 发布

芭蕉扇123

最新推荐文章于 2025-05-21 12:37:21 发布

阅读量3.1k

点赞数 1

CC 4.0 BY-SA版权

文章标签：数据库

本文链接：https://blog.csdn.net/qq_29114677/article/details/108679915

本文介绍了一个使用VBA在Excel中执行SQL查询的具体实例，包括建立数据库连接、执行SQL语句并展示查询结果等步骤。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

VBA excel 使用SQL
在这里插入图片描述

Sub 按钮1_Click()
Dim Conn As Object, Rst As Object
Dim strConn As String, strSQL As String
Dim i As Integer, PathStr As String
Set Conn = CreateObject(“ADODB.Connection”)
Set Rst = CreateObject(“ADODB.Recordset”)
PathStr = ThisWorkbook.FullName '设置工作簿的完整路径和名称
Select Case Application.Version * 1 '设置连接字符串,根据版本创建连接
Case Is <= 11
strConn = “Provider=Microsoft.Jet.Oledb.4.0;Extended Properties=excel 8.0;Data source=” & PathStr
Case Is >= 12
strConn = “Provider=Microsoft.ACE.OLEDB.12.0;Data Source=” & PathStr & “;Extended Properties=”“Excel 12.0;HDR=YES”";"""
End Select
'设置SQL查询语句
’ Sheet3.TextBox1.Text = “SELECT 设备别名,目标库房,sum(出量) as 统计 FROM [pout$] group by 设备别名,目标库房”

strSQL = Sheet3.TextBox1.Text ' "SELECT * FROM [pin$]" 'Sheet3.Cells(1, 1)

'strSQL = “SELECT 设备别名,目标库房,sum(出库数量) as 统计 FROM [pout $] g r o u p b y 设备别名, 目标库房 "^{'} " S E L E C T * F R O M [p i n$ ]” “SELECT 设备别名,目标库房,sum(出库数量) as 统计 FROM [pout$] group by 设备别名,目标库房”
Conn.Open strConn '打开数据库链接
Set Rst = Conn.Execute(strSQL) '执行查询，并将结果输出到记录集对象
With Sheet3
.Cells.Clear
For i = 0 To Rst.Fields.Count - 1 '填写标题
.Cells(1, i + 1) = Rst.Fields(i).Name
Next i
.Range(“A2”).CopyFromRecordset Rst
.Cells.EntireColumn.AutoFit '自动调整列宽
End With
Rst.Close '关闭数据库连接
Conn.Close
Set Conn = Nothing
Set Rst = Nothing

End Sub