excel中利用宏提取sql server中数据

最新推荐文章于 2023-07-13 16:58:21 发布

john_woo2008

最新推荐文章于 2023-07-13 16:58:21 发布

阅读量746

点赞数 2

文章标签： sql server excel integer string

本文链接：https://blog.csdn.net/john_woo2008/article/details/6909571

版权

Dim i As Integer, sht As Worksheet
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strcn As String, strsql As String
strcn = "provider=sqloledb;server=ERPA;database=Northwind;Uid=sa;pwd=sa;"
strsql = "select *from Region"
cn.Open strcn
rs.Open strsql, cn
i = 2
Set sht = ThisWorkbook.Worksheets("sheet1")
'Do While Not rs.EOF
'sht.Cells(i, 1) = rs("RegionID")
'sht.Cells(i, 2) = rs("RegionDescription")
'rs.movenext
'i = i + 1
'Loop
sht.Range("A1").CopyFromRecordset rs

rs.Close