ACCESS_匯入EXCEL資料

批次將EXCEL資料匯入同一張資料表

 Sub EXCEL_TO_ACCESS()


    Dim TbaName As String, TbbName As String '表名稱變數


    Dim FN As String
    Dim URL() As Variant
    Dim i As Long

'    On Error GoTo ER

    URL = dbFunction.Inport_From_Excel
    i = 1

    DoCmd.SetWarnings False

    Do Until i = UBound(URL) + 1
        FN = Dir(URL(i))
       
        TbaName = Left(FN, InStrRev(FN, ".", -1, 2) - 1) '抓取表名
        fExistTable (TbaName) 'fExistTable
       
       
        '匯入資料的欄目數及其數據形態必須和目標存放表的欄位數及數據形態一致
        '匯入資料的欄目數及其數據形態必須和目標存放表的欄位數及數據形態一致
        '匯入資料的欄目數及其數據形態必須和目標存放表的欄位數及數據形態一致
        '重要的事情要說三次!
       

        DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, "Main", URL(i), True, "DATA$" '"DATA!A:AE"  工作表名稱為【DATA】
        i = i + 1
    Loop
  End Sub