如何在EXCEL中，用VBA实现数据自动更新到ACCESS中

那就要用到引用单元格，引用单元格的方法是用函数或公式。

最简单的是直接引用，如工作表2的A1单元格要引用工作表1的A1单元格
可以在工作表2的A1单元格内输入
=工作表1！A1
这样，只要工作表1的A1单元格内的数据改变了，工作表2的A1单元格内的数据就会一起改变！

但，引用的时候会有一些复杂的引用方式，那就需要针对表格的情况而定了。

以下是我用了实现从Excel导数据进ACCESS的代码，你参考一下，应该就可以做出来了：（Excel和Access两个文件放一个文件夹下）
Public Sub 客户正常供价批量维护()
If Cells(4, 6) = "" Then
MsgBox "请先选择需要维护价格的系统！", vbInformation
Cells(4, 6).Select
Exit Sub
Else

Dim i As Integer, j As Integer, k As Integer, sht As Worksheet 'i,j,k为整数变量；sht 为excel工作表对象变量，指向某一工作表
Dim cn As New ADODB.Connection '定义数据链接对象 ，保存连接数据库信息；请先添加ADO引用
Dim rs As New ADODB.Recordset '定义记录集对象，保存数据表
Dim strCn As String, strSQL As String '字符串变量
Dim mdbFile As String

On Error GoTo add_err

mdbFile = ActiveWorkbook.Path & "\DY_DATA.mdb"

strCn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mdbFile '定义数据库链接字符串
cn.O