Excel导出数据到Access数据库或Access导入Excel工作表数据的三种方法

2022-04-06 00:00:00 数据导入电子表格客户可选

Excel导出数据到Access数据库或Access导入Excel工作表数据的几种方法汇总

Access与Excel的数据导入导出是我们经常要使用的功能。下面就列出我们常用的三种方法

一、直接使用Insert Into SQL语句，将EXCEL表数据导入到指定的数据库的指定表中

具体的工作表名数据表名以及相应的路径大家可按需修改

Dim cnn As ADODB.cnnection
Dim strSql As String
Set cnn = New ADODB.cnnection
cnn.cnnectionString = "Provider=Microsoft.Jet.Oledb.4.0;Extended Properties=Excel 8.0;Data Source= d:\客户.xls;;Extended Properties='Excel 8.0;HDR=YES;IMEX=1' "
’如果是Access 2010 2013 2016 2019 或以上  连接字符串可改为：Provider=Microsoft.ACE.OLEDB.12.0;
cnn.Open
If cnn.State = adStateOpen Then
    strSql = "Insert Into 客户表 Select * From  [Excel 8.0;Database=d:\test.xls].[Sheet1$]"
    Cnn.Execute strSql
    MsgBox "已成功插入数据到Access中", , "Office中国"
    cnn.Close
End If
Set cnn = Nothing
End Sub

相关文章