请问EXCEL如何用VBA将同一工作簿内的多个工作表的内容导入至ACCESS的一个表中

假设有如下三个表表1表2表3我想将以上三个表利用EXCEL的VBA导入至ACCESS数据库的一个新建的表中数据结构如下图所示同一个表的数据在同一行字段为3个表的字段去掉重... 假设有如下三个表
表1

表2

表3

我想将以上三个表利用EXCEL的VBA导入至ACCESS数据库的一个新建的表中
数据结构如下图所示

同一个表的数据在同一行
字段为3个表的字段去掉重复值
请问代码该如何写?
最近工作很忙,可能很晚才能采纳
献上200分,希望有大神能解答。
展开
 我来答
解0人
推荐于2017-09-26 · TA获得超过2389个赞
知道大有可为答主
回答量:1474
采纳率:83%
帮助的人:737万
展开全部
Sub ttt()
Dim conn    
    Set conn = CreateObject("adodb.connection")
    conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Test.mdb"
    conn.Open    
    conn.Execute "insert into 表名(A,B,C) select * from [Excel 8.0;DataBase=" & ActiveWorkbook.FullName & "].[表1$]"
    conn.Execute "insert into 表名(B,D,E) select * from [Excel 8.0;DataBase=" & ActiveWorkbook.FullName & "].[表2$]"
    conn.Execute "insert into 表名(A,D) select * from [Excel 8.0;DataBase=" & ActiveWorkbook.FullName & "].[表3$]"
    conn.Close
    Set conn = Nothing    
End Sub

以上代码写在excel中,

E:\Test.mdb为access数据库完整路径,“表名”为access目标表名

代码执行3次sql命令将3个表导入

追问
谢谢,看了你的代码我已经有思路了
先用字典提取所有分表的不重复字段
再创建表,写入所有字段
然后遍历每一个工作表,分别提取各表的字段,写入SQL语句
Ynzsvt
2015-10-21 · TA获得超过6659个赞
知道大有可为答主
回答量:1.5万
采纳率:40%
帮助的人:2585万
展开全部
字典,按顺序填充。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式