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，準備把下一記錄相關(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 '當數(shù)據(jù)指針未移到記錄集末尾時，循環(huán)下列操作             sht.Cells(i, h) = rs(rs.Fields(h - 1).Name) '把當前字段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è)、高性價比西烏珠穆沁網(wǎng)站開發(fā)、企業(yè)建站全套包干低至880元,成熟完善的模板庫,直接使用。一站式西烏珠穆沁網(wǎng)站制作公司更省心,省錢,快速模板網(wǎng)站建設(shè)找我們，業(yè)務(wù)覆蓋西烏珠穆沁地區(qū)。費用合理售后完善，十年實體公司更值得信賴。

另外有需要云服務(wù)器可以了解下創(chuàng)新互聯(lián)cdcxhl.cn，海內(nèi)外云服務(wù)器15元起步，三天無理由+7*72小時售后在線，公司持有idc許可證，提供“云服務(wù)器、裸金屬服務(wù)器、高防服務(wù)器、香港服務(wù)器、美國服務(wù)器、虛擬主機、免備案服務(wù)器”等云主機租用服務(wù)以及企業(yè)上云的綜合解決方案，具有“安全穩(wěn)定、簡單易用、服務(wù)可用性高、性價比高”等特點與優(yōu)勢，專為企業(yè)上云打造定制，能夠滿足用戶豐富、多元化的應(yīng)用場景需求。

網(wǎng)頁標題：VBA_輸出SQL查詢數(shù)據(jù)-創(chuàng)新互聯(lián)
鏈接地址：http://aaarwkj.com/article12/coeigc.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供品牌網(wǎng)站制作、面包屑導航、定制網(wǎng)站、網(wǎng)站建設(shè)、網(wǎng)頁設(shè)計公司、動態(tài)網(wǎng)站

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)