[求助]烦请给我指点指点!
Excel转access问题我想建立一个基于客户信息管理和分析的系统,我的数据源是excel格式的,我想将其通过VB代码直接转为ACCESS,于是我在网上搜到这样一段代码!
注:其中sheetname 是excel表名"sheet1",sexcelpath是excel路径名我利用对话框选取的,saccesstable是access表名,saccessdbpath是access路径我也用对话框选择的。
private sub exportexcelsheettoaccess(sheetname 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,"excel5.0")
call db.execute("select * into [;database=" & saccessdbpath &"]." & saccesstable & "from[" & ssheetname & "$]")
msgbox "table exported successfully",vbinformation ,"yans"
end sub
在程序中调用如下:
exportexcelsheettoaccess sheet1,path1,mdbname,path2
出现以下错误提识:、
查询语言至少需要一个表,或SQL语句。
调试发现sheetname 可以跟踪到表名,path1可以跟踪到绝对路径,saccesstable可以跟踪到表名,saccessdbpath可以跟踪绝对路径。
请教各位高手指点