文章最後更新於 2020 年 9 月 13 日 下午 10:52
批次將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