如何将excel的数据批量导入ACCESS数据库中的指定表？

liuxin12

如何通过VBA代码将excel的数据“批量”导入ACCESS数据库中的指定表？
本人已知如何将数据一个一个导入，本次问题的关键词是“批量”。还请懂的大神指点一下呢。

opiona

1. 2007版以上  8.0改成12.0
   
2. 
   
3. '======================================================================================================== 批量添加
   
4. INSERT INTO [表格名] SELECT * FROM [Excel 8.0;Database=" & ThisWorkbook.FullName & "].[" & SH1.Name & "$A2:K]  WHERE LEN(排产日期)>0"
   
5. SELECT * INTO [MS Access;Database=" & Application.StartupPath & "\工资条分发.mdb].[" & ComboBox1.Text & "] FROM [Sheet1$]"
   
6. SELECT * INTO [查询表名] FROM [Excel 8.0;DataBase=" & tmpFile & "].[" & ActShtName & "$]"

复制代码

洋务德雷

'根据excel模版新建数据表（或往旧有的数据表添加数据）
Public Sub CreateTableFromExcel(tableName As String, myFullName As String, mySheetName As String)
      'myFullName工作簿全路径；mySheetName工作表名称
      Dim n As Integer
      Dim sql As String
      
      If TableExistsName(tableName) Then
            If MsgBox("是否清除原数据表数据？", vbYesNo) = vbYes Then
                  Call SqlHelper.SqlExcuteNonQuery("delete * from " & tableName)
            End If
            sql = "insert into " & tableName & " select *  from [Excel 12.0;DataBase=" & myFullName & ";].[" & mySheetName & "$]"
            Call SqlHelper.SqlExcuteNonQuery(sql)
      Else
            sql = "select * into " & tableName & " from [Excel 12.0;DataBase=" & myFullName & ";].[" & mySheetName & "$]"
            SqlHelper.SqlExcuteNonQuery (sql)
      End If
End Sub

liuxin12

opiona 发表于 2022-12-13 20:04

谢谢老师，我用的是第一段代码，成功一次性全部录入了。

liuxin12

洋务德雷 发表于 2022-12-13 20:55
'根据excel模版新建数据表（或往旧有的数据表添加数据）
Public Sub CreateTableFromExcel(tableName As S ...

谢谢老师，方法可行，已验证。

liuxin12

opiona 发表于 2022-12-13 20:04

老师您好：这个方法的好处是不需要单独设置EXCEL表的连接，通过from后面的定义excel就可以直接使用excel中的数据。能否在SQL语句里面定义数据库呢（从而通过SQL语句就可以连接并获取数据库中的数据？）