请教怎么在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 80;Database=" & dklj & "][Plan$] WHERE 对EXCEL的筛选条件（可以省略）;"   '这句是最关键的

DoCmdSetWarnings False   '关闭提示警告窗口

DoCmdRunSQL xdlj '运行SQL

MsgBox "您于" & Now() & "更新数据成功！", vbInformation '人性化提示

End If

End If

End Sub

注意  OD（）  意思是open dialogue  我自己定义的函数，为了打开选择文件的会话框：

代码如下：

Public Function od() 'Opendialog

Dim f As FileDialog

Set f = ApplicationFileDialog(msoFileDialogFilePicker)

'fShow

If fShow = True Then

fFiltersClear

fFiltersAdd "Excel文件", "xls"

od = fSelectedItems(1)

Else

MsgBox "您中途选择了取消！"

End If

End Function

4、最终效果：

excel中：

ACCESS中：

最简单的方法

录制宏

然后手动插入这些控件

然后按alt+f11察看宏

自动生成的vba代码就有了

如果lz学过vb的话

编写起来就非常简单了

vba完全几乎就是vb的代码

只是应用在excel上了

-

直接在模块里 设置窗体控件的值，复制后 加载窗体

Sub a()

UserForm1Label1Caption = InputBox("请输入")

UserForm1Show

End Sub

新建一个数据库有两种方法:一种是创建一个空数据库，即建立一个没有表、查询、窗体和报表等内容的数据库:另一种方法是使用Access中提供的数据库模板创建数据库，即通过对向导所提出的选项和不同选择来设计窗体、查询和报表等，从而建立一个完整的数据库。下面将使用第一种方法建立数据库。(1)在人c~窗口中单击文件菜单在下拉菜单中选择新建项，将得到如图61所示的新建对话框。(2)单击空数据库图标，即会显示“文件新建数据库”对话框，如图62所示。图61折建对话框(3)在文件名文本框中输入要保存数据库的文件夹及新建的数据库名，如"C: estmdb"，然后单击创建按钮，即可创建一个名为“test"的数据库，如图63所示。

先用代码找到表格最后一行，明确要填写在哪一行，比如赋值给n这个参数，叫第n行。

然后，Form的每个对象都有一个名称，比如Textbox("姓名")，也对应一个需要填写的列，比如C列（第3列），因此代码为 cells(n,3)=Textbox("姓名")Value 依次写完所有项目即可。

最后修饰一下，比如在首部增加判断If Textbox("姓名")="" Then Msgbox("姓名为必填项目")

这些代码，应该写在“确定添加”这个按钮的点击事件中。

只能用VBA，宏不行：

Dim cnn As ADODBConnection

Dim rs As ADODBRecordset

Set cnn = CurrentProjectConnection

Set rs = New ADODBRecordset

rsOpen "Select  from 用户表 where 用户名='" + Trim(MeText) + "' and 密码='"+Trim(MeText2)+"'", cnn    '//不要画蛇添足去写Text1Text,ACCESS会去乱找属性

If Not rsEOF Then

   MsgBox("登陆失败！")

Else

   '这里做登陆的事情   

End If

基本上用ACCESS去做登陆验证就是掩耳盗铃，自己忽悠自己，你加密再严实我也能把他轻松破解掉。真要加密，我给你出个主意，用SQL Server记录关键表数据，ACCESS做客户端远程连接做网络连接表，ODBC功能能做到，在从数据源选择连接表时不点右下脚保存密码。这样每次去 *** 作都要验证SQL Server Guest规则用户名和密码，这个帐号是绝对安全的

以上就是关于请教怎么在access中用VBA导入excel数据到access库全部的内容，包括:请教怎么在access中用VBA导入excel数据到access库、Excel VBA输入窗体代码、vba编程中 使窗体里的文本框控件 在运行时 显示inputbox所输入的值等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！