首頁 辦公利器Access-資料庫 ACCESS_匯入EXCEL資料

ACCESS_匯入EXCEL資料

by PartyLin
已發布 最後更新日期 0 評論

批次將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

發表留言

本網站放置cookies,務求為您提供最佳的網上瀏覽體驗。 同意 閱讀更多

%d 位部落客按了讚: