Dim i As Integer, j As Integer, sht As Worksheet 'i,j為整數變量；sht 為excel工作表對象變量，指向某壹工作表
'Dim cn As New ADODB.Connection '定義數據鏈接對象 ，保存連接數據庫信息；請先添加ADO引用
'Dim rs As New ADODB.Recordset '定義記錄集對象，保存數據表
‘工具 ---〉引用 ---〉Microsoft ActiveX data objects ....
'下面兩句就不需要增加引用ADO
Set cn = CreateObject("Adodb.Connection")
Set rs = CreateObject("Adodb.Recordset")
Dim strCn As String, strSQL As String '字符串變量
Dim strCond As String
strCn = "Provider=sqloledb;Server=R9HDET7;Database=dbname;Uid=username;Pwd=password" '定義數據庫鏈接字符串
'下面的語句將讀取數據表數據，並將它保存到excel工作表中：工作表為壹張兩維表，記錄集也是壹張兩維表
strSQL = "select CUSTOMER_NAME from VSC_BI_CUSTOMER " '定義SQL查詢命令字符串
cn.Open strCn '與數據庫建立連接，如果成功，返回連接對象cn
rs.Open strSQL, cn '執行strSQL所含的SQL命令，結果保存在rs記錄集對象中
i = 2
Set sht = ThisWorkbook.Worksheets("Test") '把sht指向當前工作簿的Test工作表
Do While Not rs.EOF '當數據指針未移到記錄集末尾時，循環下列操作
sht.Cells(i, 1) = rs("CUSTOMER_NAME") '把當前記錄的字段1的值保存到sheet1工作表的第i行第1列
rs.MoveNext '把指針移向下壹條記錄
i = i + 1 'i加1，準備把下壹記錄相關字段的值保存到工作表的下壹行
Loop '循環
rs.Close '關閉記錄集，至此，程序將把某數據表的字段1保存在excel工作表sheet1的第1列，行數等於數據表的記錄數
cn.Close '關閉數據庫鏈接,釋放資源
End Sub