Question

vb 把excle数据导入到access数据库中已存在的一张表内

vb 把excle(bb.xls中sheet1)数据导入到access数据库中已存在的一张表（如aa.mdb中的“表1”）内
ssheetname 为sheet1，sExcelPath 为bb.xls路径，sAccessTable 为表1，sAccessDBPath为aa.mdb的路径
Private Sub ExportExcelSheetToAccess(sSheetName As String, sExcelPath As String, sAccessTable As String, sAccessDBPath As String)
Dim db As Database
Dim rs As Recordset
Set db = OpenDatabase(sExcelPath, True, False, "Excel 8.0")
Call db.Execute("insert into [;database=" & sAccessDBPath & "]." & sAccessTable & "Select * FROM [" & sSheetName & "]")
MsgBox "Table exported successfully.", vbInformation, "Yams"
End Sub
查了一些相关资料，但是出现insert into 语法错误
怎么样才能实现把excle(bb.xls中sheet1)数据导入到access数据库中已存在的一张表（如aa.mdb中的“表1”注表1 内已经有数据，excle表中的数据添加在后面）内
excle导入数据到access表中自动编号，能不能把除了编号外数据一样的记录删除 ,编号是导入以后自动加入的，所以编号肯定不一样，但是后面的各字段数据完全一样，而且后面的数据各字段的数据可以重复，只是把全部一样的数据除去，谢谢

Answer 1

你可以debug.print你的SQL语句，应该是select前少了空格
try:
Call db.Execute("insert into [;database=" & sAccessDBPath & "]." & sAccessTable & _
" Select * FROM [" & sSheetName & "]")

回复：excle导入数据到access表中自动编号，能不能把除了编号外数据一样的记录删除
---------------------------------------------------------------
不知道你具体情况，不过删除重复数据的原则是依靠主键来保留需要的信息，如果可能，你可在导入数据时过滤，比如你的数据是靠ID来标识唯一性，那么：
"insert into [;database=db.mdb].tb(id,fld1,fld2) " & _
"select id,fld1,fld2 from [Sheet1$] " & _
"where id not in (select id from [;database=db.mdb].tb)"
这样就不会插入重复值了...

还是通过SQL语句解决，比如上例中fld1,fld2不能重复：
"insert into [;database=db.mdb].tb(id,fld1,fld2) " & _
"select id,fld1,fld2 "& _
"from [Sheet1$] a left join [;database=db.mdb].tb b " & _
"on a.fld1=b.fld1 and a.fld2=b.fld2 "& _
"where b.id is null"

Answer 2

学习…