用VBA语言调用sql数据库数据到excel中

VBE 工具 引用,选中 Microsoft ActiveX Data Object 28 Library

我不清楚是不是UFDATA_013_2008表的VENDOR列的数据,如果不是,你自己改一下SQL语句吧,sql = "select VENDOR from UFDATA_013_2008"

Sub SQL数据导入()

Dim cn As New ADODBConnection

Dim rs As ADODBRecordset

Dim str As String

Dim sql As String

Dim i As Integer

str = "Provider=SQLOLEDB;Data Source=SQLSERVER服务器名或IP;DATABASE=数据库;UID=用户名;PWD=密码"

cnOpen str

Set rs = New ADODBRecordset

sql = "select VENDOR from UFDATA_013_2008"

rsOpen sql, cn, adOpenStatic, adLockOptimistic

If Not rsEOF Then

For i = 1 To rsRecordCount

Sheet2Cells(i, 1)Value = rsFields(0)Value

Next i

rsMoveNext

End If

rsClose

cnClose

End Sub

跟调用存储过程的时候是相同的解决方案。

在语句前面加上 SET NOCOUNT ON

因为 往临时表插入数据的时候会产生 影响行数 这种消息

SET NOCOUNT ON 能屏蔽这类信息。

以上就是关于用VBA语言调用sql数据库数据到excel中全部的内容，包括:用VBA语言调用sql数据库数据到excel中、关于使用VBA连接SQL数据库获取数据时创建临时表的问题、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！