您的位置：程序门 -> vb -> vba

excel导入到数据库出错

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

excel导入到数据库出错

发表于：2007-08-13 11:27:27 楼主

private sub form_load（)
on error goto err

with commondialog1
.filename = "*.xls "
.filter = "（excel)*.xls ¦*.xls "
.cancelerror = true
.showopen
end with
excelpath = commondialog1.filename
dim cn as new adodb.connection
dim rs as new recordset
cn.connectionstring = "provider=sqloledb.1;integrated security=sspi;persist security info=false;initial catalog=sales "
cn.open
cn.ＥＸＥＣute "select * into invest1 from openrowset（ 'microsoft.jet.oledb.4.0 ', 'excel 8.0;hdr=yes;database=commondialog1.filename; ', 'select * from [sheet1$] ') "
'此处如果使用具体的路径则导入成功，若不是则报错“ole db提供程序，想请教！‘ 'microsoft.jet.oledb.4.0 ''报错”
cn.close
set cn = nothing
adodc1.connectionstring = "provider=sqloledb.1;integrated security=sspi;persist security info=false;initial catalog=sales "
exit sub
err:
msgbox err.description

end sub
出现这样的错误
[ole/db provider returned message:找不到可安装的 isam.]

下一篇：数据库导出到excel出错了
上一篇：请问用vba,如何选择word文档中第一页的内容

其他资讯