ACCESS_匯入EXCEL資料

by zhi hao
 

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

 

https://www.youtube.com/watch?v=jxYBQ_vogKI&feature=youtu.be

 

相關文章

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