如何用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方法可以实现数据库的连接。

有两种方法可以建立窗口来实现录入数据。

一种是选择你要录入数据的区域，再通过菜单“工具”->“记录单”，EXCEL就会d出一个数据录入窗体冲举。

第二散判碧种方法是按“ALT+F11”进入VBA编辑器，在这冲颂里，你可以插入一个用户窗体，这个可能对没有接触过编程的人来说有些复杂，但功能确实比前一种方法要强劲得多了。

答题不易，互相理解，您的采纳是我前进的动力。

前提:窗体的 允许编辑、允喊数许添加 属性设为 是

Private Sub 保存_Click()

'检查录入完整性

If Me.文本框1 = "" Or Me.文本框2 = "" Or Or Me.文本框3 = "" Or Me.文本框4 = "" Or Me.文本框5 = "" Or Me.文掘侍本框6 = "" Or Me.文本框7 = "" Or Me.文本框8 = "" Or Me.文本框9 = "郑散首" Or Me.文本框10 = "" Or Me.文本框11 = "" Or Me.文本框12 = "" Or Me.文本框13 = "" Or Me.文本框14 = "" Or Me.文本框15 = "" Or Me.文本框16= "" Then

MsgBox "记录录入未完整！", vbInformation, "提示:"

Exit Sub

Else

DoCmd.RunCommand acCmdSelectRecord

'将字段 备注 的内容 设置为:

me.备注 = me.文本框1 &" m至 " &me.文本框2 &" m收卷单偏差＜ " &me.文本框3 &" m " '&……以后内容省略

'保存记录

DoCmd.RunCommand acCmdSaveRecord

End if

End Sub

---