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

我的宝贝们

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