Sub DataImport() Dim conn As Object    Dim strCnn As String    Dim rs As Object    Dim dataFile As String, excelFile As String    Dim strSQL As String Dim arrData()    Dim i As Integer, j As Integer    Set conn = CreateObject("ADODB.Connection")    Set rs = CreateObject("ADODB.Recordset")        '把Excel數(shù)據(jù)通過查詢讀入數(shù)組    excelFile = ThisWorkbook.Path & "/Excel數(shù)據(jù)源.xlsx"    conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & excelFile & ";Extended Properties=""Excel 12.0 Xml;HDR=YES"";"    strSQL = "SELECT * FROM [tb憑證$]"    rs.Open strSQL, conn, 3, 3    arrData = rs.GetRows    rs.Close    conn.Close    '打開Access數(shù)據(jù)庫連接，把數(shù)組數(shù)據(jù)導(dǎo)入tb憑證表    dataFile = ThisWorkbook.Path & "/Access數(shù)據(jù)庫.accdb"    strCnn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & dataFile & ";"    conn.Open strCnn    rs.Open "tb憑證", conn, 1, 3    For i = 0 To UBound(arrData, 2)        If arrData(1, i) = "" Then Exit For        rs.AddNew        For j = 1 To UBound(arrData, 1)            rs.Fields(j) = arrData(j, i)        Next        rs.Update    Next    '關(guān)閉并清空對象    rs.Close    conn.Close    Set rs = Nothing    Set conn = Nothing    End Sub