VB execl导入ACCESS(新手)

Question

    Dim adocn As ADODB.Connection
    Dim Cnstr As String
    Cnstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\qq\1231.mdb"
    Set adocn = New ADODB.Connection
    adocn.ConnectionString = Cnstr
    adocn.Open
        adocn.Execute " insert into [excel 8.0;database=c:\qq\1123.xls].[sheet1] select * from aaa"
    Set adocn = Nothing
c:\qq\1123.xls].[sheet1导入1231.mdb  aaa错在哪里？

Answer 1

tryadocn.Execute " insert into [sheet1$] in 'c:\qq\1123.xls' 'excel 8.0;' select * from aaa"

Answer 2

http://blog.csdn.net/asftrhgjhkjlkttttttt/article/details/4914132

Answer 3

我的建议是引用access对象导入excel, office在处理自家的东西上比数据引擎的方法容错性更好点.