Option Explicit
Sub 輸出數(shù)據(jù)表(strSql As String, Work As String) '傳值處理
'''''''''''''''''''''''''''''''''''''''''''
Dim data As New 數(shù)據(jù)庫
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sht As Worksheet
Dim i As Integer
Dim Lm As Integer
Dim h As Integer
Set sht = ThisWorkbook.Worksheets(Work)
cn.Open data.SQL數(shù)據(jù)庫
'循環(huán)查詢到的列名，把列名的數(shù)量定義循環(huán)。
rs.Open strSql, cn '執(zhí)行strSQL所含的SQL命令，結(jié)果保存在rs記錄集對象中
i = 0
Lm = rs.Fields.Count '列名的數(shù)量定義
While i < Lm
sht.Cells(2, i + 1) = rs.Fields(i).Name '列名讀取
i = i + 1 'i加1，準(zhǔn)備把下一記錄相關(guān)字段的值保存到工作表的下一行
Wend
rs.Close '關(guān)閉記錄集
'''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''
'循環(huán)數(shù)據(jù)表
rs.Open strSql, cn '執(zhí)行strSQL所含的SQL命令，結(jié)果保存在rs記錄集對象中
i = 3
Do While Not rs.EOF
h = 1
While h - 1 < Lm '當(dāng)數(shù)據(jù)指針未移到記錄集末尾時(shí)，循環(huán)下列操作
sht.Cells(i, h) = rs(rs.Fields(h - 1).Name) '把當(dāng)前字段2的值保存到sheet1工作表的第i行第2列
h = h + 1
Wend
rs.MoveNext '把指針移向下一條記錄
i = i + 1
Loop
rs.Close '關(guān)閉記錄集
創(chuàng)新互聯(lián)-專業(yè)網(wǎng)站定制、快速模板網(wǎng)站建設(shè)、高性價(jià)比西烏珠穆沁網(wǎng)站開發(fā)、企業(yè)建站全套包干低至880元,成熟完善的模板庫,直接使用。一站式西烏珠穆沁網(wǎng)站制作公司更省心,省錢,快速模板網(wǎng)站建設(shè)找我們，業(yè)務(wù)覆蓋西烏珠穆沁地區(qū)。費(fèi)用合理售后完善，十年實(shí)體公司更值得信賴。
另外有需要云服務(wù)器可以了解下創(chuàng)新互聯(lián)cdcxhl.cn，海內(nèi)外云服務(wù)器15元起步，三天無理由+7*72小時(shí)售后在線，公司持有idc許可證，提供“云服務(wù)器、裸金屬服務(wù)器、高防服務(wù)器、香港服務(wù)器、美國服務(wù)器、虛擬主機(jī)、免備案服務(wù)器”等云主機(jī)租用服務(wù)以及企業(yè)上云的綜合解決方案，具有“安全穩(wěn)定、簡單易用、服務(wù)可用性高、性價(jià)比高”等特點(diǎn)與優(yōu)勢，專為企業(yè)上云打造定制，能夠滿足用戶豐富、多元化的應(yīng)用場景需求。
標(biāo)題名稱：VBA_輸出SQL查詢數(shù)據(jù)-創(chuàng)新互聯(lián)
URL鏈接：
http://weahome.cn/article/coeigc.html
重慶分公司
重慶分公司
