vb6.0中如何把EXCEL表格中的数据导入到access库中
我想用录制宏的方法实现，但没成功，请大家指点一下。（从excel表格的sheet1导入数据库的一个已存在的表内）...
我想用录制宏的方法实现，但没成功，请大家指点一下。（从excel表格的sheet1导入数据库的一个已存在的表内）
展开
6个回答
展开全部
误导观众!
Dim
conn
As
New
ADODB.Connection
conn.Open
"Provider=Microsoft.Jet.OLEDB.4.0;"
&
_
"Data
Source=C:\Book1.xls;Extended
Properties=Excel
8.0;"
conn.Execute
"Insert
Into
[;database="
&
sAccessDBPath
&
"]."
&
_
sAccessTable
&
"
Select
*
FROM
["
&
sSheetName
&
"$]"
Dim
conn
As
New
ADODB.Connection
conn.Open
"Provider=Microsoft.Jet.OLEDB.4.0;"
&
_
"Data
Source=C:\Book1.xls;Extended
Properties=Excel
8.0;"
conn.Execute
"Insert
Into
[;database="
&
sAccessDBPath
&
"]."
&
_
sAccessTable
&
"
Select
*
FROM
["
&
sSheetName
&
"$]"
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
