VB execl导入ACCESS(新手)
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错在哪里？
[解决办法]
try

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

[解决办法]
http://blog.csdn.net/asftrhgjhkjlkttttttt/article/details/4914132