我想对excel表 *** 作，同时连接access，且数据随excel *** 作进行添加更新，有什么简单的办法吗

1、先建立excel与access数据库的odbc连接

2、每次表格 *** 作完成后触发一个动作更新access数据库

3、考虑到每次 *** 作都更新access数据会严重影响机器性能，建议一次性更新完Excel表格后，运行一个vba批量更新access数据库

上薇琪表格助手，免费帮你编写vba

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中：

以上就是关于我想对excel表 *** 作，同时连接access，且数据随excel *** 作进行添加更新，有什么简单的办法吗全部的内容，包括:我想对excel表 *** 作，同时连接access，且数据随excel *** 作进行添加更新，有什么简单的办法吗、请教怎么在access中用VBA导入excel数据到access库、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！