vbaaccess数据录入,vba存储数据
请教怎么在access中用VBA导入excel数据到access库
1、首先为导入文件设置一个按钮：（更新数据）
2、为“更新数据”按钮添加执行代码：
Private?Sub?Command87_Click()
If?MsgBox("请准备好导入的文件！",?vbOKCancel,?"打印确认")?=?1?Then
Dim?xdlj?As?String?'xdlj:相对路径
Dim?dklj?As?String?'dklj:打开路径
dklj?=?od()
If?Not?(dklj?=?"")?Then
xdlj?=?"SELECT?字段名称1,字段名称2,字段名称3,"?_
?"?INTO??ACCESS中表名称?FROM?[Excel?8.0;Database="??dklj??"].[Plan$]?WHERE?对EXCEL的筛选条件（可以省略）;"???'这句是最关键的
DoCmd.SetWarnings?False???'关闭提示警告窗口
DoCmd.RunSQL?xdlj?'运行SQL
MsgBox?"您于"??Now()??"更新数据成功！",?vbInformation?'人性化提示
End?If
End?If
End?Sub
注意 ?OD（） ?意思是open dialogue ?我自己定义的函数，为了打开选择文件的会话框：
代码如下：
Public?Function?od()?'Opendialog
Dim?f?As?FileDialog
Set?f?=?Application.FileDialog(msoFileDialogFilePicker)
'f.Show
If?f.Show?=?True?Then
f.Filters.Clear
f.Filters.Add?"Excel文件",?"*.xls"
od?=?f.SelectedItems(1)
Else
MsgBox?"您中途选择了取消！"
End?If
End?Function
4、最终效果：
excel中：
ACCESS中：
如何用vba将ACCESS窗体和查询导入另一个数据库中
Access是微软Office组件的数据库软件，使用它可以进行简单的数据库软件的开发。但Access的图表功能和数据分析功能不如Excel强大，常用的做法可以将Access中的数据导入Excel中再进行处理。
代码利用ADO组件可以方便地对各种数据进行连接和访问。ADO组件中的Connection对象可以实现对数据库的连接，并可以快速实现SQL语句的执行，然后再用VBA将SQL查询的结果输出到Excel表格中。
打开VBE窗口，选择菜单“工具”一“引用”，勾选MicrosoftActiveXDataObjects2.8Library，并单击“确定”按钮。
利用ADO连接数据库ADO的全称是ActiveXDataObject，是一个用于存取数据源的COM组件，用以快速实现各种数据库的连接、读取、写入。在ADO组件中有一个Connection对象，利用Connection对象的Open方法可以实现数据库的连接。
EXCELvba写入ACCESS数据库表
第一步：连接数据库，下面是参考代码
Set conn = CreateObject("ADODB.Connection")
conn.ConnectionString = "Provider=Microsoft.Ace.OleDB.12.0;Data Source=" mypath
conn.ConnectionString = conn.ConnectionString ";Jet OLEDB:Database Password=1"
conn.Open
第二步：插入数据，参考代码如下：
Sql = "insert into skmxb (内部管理号,收款日期,金额"
Sql = Sql ") values ('" nbglH "', #" Format(myD, "yyyy/mm/dd") "#,"
Sql = Sql jE
Sql = Sql ")"
conn.Execute Sql