溫馨提示×
您好，登錄后才能下訂單哦！
點擊 登錄注冊 即表示同意《億速云用戶服務條款》
您好，登錄后才能下訂單哦！
Option Explicit Sub 輸出數據表(strSql As String, Work As String) '傳值處理 ''''''''''''''''''''''''''''''''''''''''''' Dim data As New 數據庫 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數據庫 '循環查詢到的列名，把列名的數量定義循環。 rs.Open strSql, cn '執行strSQL所含的SQL命令，結果保存在rs記錄集對象中 i = 0 Lm = rs.Fields.Count '列名的數量定義 While i < Lm sht.Cells(2, i + 1) = rs.Fields(i).Name '列名讀取 i = i + 1 'i加1，準備把下一記錄相關字段的值保存到工作表的下一行 Wend rs.Close '關閉記錄集 ''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''' '循環數據表 rs.Open strSql, cn '執行strSQL所含的SQL命令，結果保存在rs記錄集對象中 i = 3 Do While Not rs.EOF h = 1 While h - 1 < Lm '當數據指針未移到記錄集末尾時，循環下列操作 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 '關閉記錄集
免責聲明：本站發布的內容（圖片、視頻和文字）以原創、轉載和分享為主，文章觀點不代表本網站立場，如果涉及侵權請聯系站長郵箱：is@yisu.com進行舉報，并提供相關證據，一經查實，將立刻刪除涉嫌侵權內容。
