启明办公

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 99|回复: 0

【办公自动化】Access VBA专项——将Excel 数据导入ACCESS

[复制链接]

2

主题

6

帖子

9

积分

新手上路

Rank: 1

积分
9
发表于 2022-12-12 11:41:52 | 显示全部楼层 |阅读模式
最近在学 Access VBA, 想用来改进重复性工作流程。从今天开始分享相关学习经验。
今天遇到的问题是:1.ACCESS表格已经建立,通过Excel导入数据,在字段相同的情况下,提示下标越界;2.已经建立了ACCESS表格在这种情况下导入不成功。
解决方案
如下图通过外部数据菜单导入Excel,建立新表,然后修改格式,有时候可能无法将ID进行自动编码。


解决方案二
Access按照相应的格式建立新表newtable1,然后按照第一种方式导入excel表格,并命名为newtable2,最后通过VBA语言将newtable2记录导入newtable1。代码如下:
Sub insert() '从一个表中选择数据插入到目标表格
    Dim strsql As String
        strsql = "insert into newtable1(field1,field2) select * from newtable2 where" 'select是value( ,)
DoCmd.SetWarnings False '关闭执行消息框,取消系统提示
DoCmd.RunSQL strsql
DoCmd.SetWarnings True '恢复系统提示
MsgBox "完成"
End Sub或者通过建立新的查询,切换到SQL视图,输入
insert into newtable1(field1,field2)  select * from newtable2执行完上述操作后可以删除newtable2。
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

Archiver|手机版|小黑屋|启明办公

Copyright © 2001-2013 Comsenz Inc.Template by Comsenz Inc.All Rights Reserved.

Powered by Discuz!X3.4

快速回复 返回顶部 返回列表