|
最近在学 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。 |
|