Excel 批量导入到Access数据库

zhufree

学习了
非常感谢

zxhmfk

不错，只是有实例会更加的好

120HYH

好，谢谢，

poongsan

如果做個實例發個附件就好了

庞文

Private Sub CommandButton1_Click()

Dim sSheetName As String   'Excel表名
Dim sAccessTable As String  'Access 表名
Dim sAccessDBPath As String 'Access 数据库路径及名称
sAccessDBPath = ThisWorkbook.Path & "学生管理.mdb" ' 此处填写Access 数据库路径及名称
Set con = CreateObject("ADODB.Connection")
con.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;HDR=yes;IMEX=1';Data Source=" & ThisWorkbook.FullName
For Each wsheet In Worksheets
    sSheetName = ThisWorkbook.Sheets("汇总处分表").Name
    sAccessTable = 学生处分表
    mysql = "Select * into " & sAccessTable & " in '" & sAccessDBPath & "' FROM [" & sSheetName & "$]"
    con.Execute (mysql)
Next wsheet
End Sub

学习了,我这样编写,不知哪里错了,谢谢

庞文

Dim sSheetName As String   'Excel表名
Dim sAccessTable As String  'Access 表名
Dim sAccessDBPath As String 'Access 数据库路径及名称
sAccessDBPath = ThisWorkbook.Path & "学生管理.mdb" ' 此处填写Access 数据库路径及名称
Set con = CreateObject("ADODB.Connection")
con.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;HDR=yes;IMEX=1';Data Source=" & ThisWorkbook.FullName
For Each wsheet In Worksheets
    sSheetName = ThisWorkbook.Sheets("汇总处分表").Name
    sAccessTable = 学生处分表
    mysql = "Select * into " & sAccessTable & " in '" & sAccessDBPath & "' FROM [" & sSheetName & "$]"
    con.Execute (mysql)
Next wsheet
End Sub

学习了,我这样编写,不知哪里错了,谢谢 我只要复制一个工作表

庞文

运行时,老提示"学生处分表"已经存在,很奇怪,可数据能进ACCESS库中

eigg

大侠您好！我仿效你的代码在Access（数据库名：MyAccess.accdb）中写了以下代码(将D:\data.xlsx中Sheet1的数据导入到Access数据库的表“导入数据表”中)：

Private Sub ExportExcelSheetToAccess()
Dim sAccessTable As String
sAccessTable="导入数据表"
Dim sAccessDBPath As String
sAccessDBPath="D:\MyAccess.accdb"
Set con = CreateObject("ADODB.Connection")
con.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;HDR=yes;IMEX=1';Data Source=" & "D:\data.xlsx"
mysql = "Select * into " & sAccessTable & " in " & sAccessDBPath & " FROM [Sheet1$]"
con.Execute (mysql)
End Sub

运行时提示“Select 子句中包含一个保留字、拼写错误或者丢失的参数，或标点符号不正确。” 麻烦帮忙看一下是哪儿错了啊？
谢谢！

jpj123

不错的方法，很方便!

dxf790529

庞文 发表于 2013-9-2 22:21
Dim sSheetName As String   'Excel表名
Dim sAccessTable As String  'Access 表名
Dim sAccessDBPath A ...

导入前要先删除相关数据表才行.