无法链接CSV时，每60秒自动将实时CSV数据追加至Access数据库

我完全明白你的需求——要保留所有历史数据（不止CSV里的365天），同时每60秒同步一次：既要把新增日期的数据追加到数据库，也要更新已有日期的实时变动数据。下面是具体的实现方案，用Access自带的VBA就能搞定：

步骤1：准备Access表结构 #

先确保你的Access数据表（比如命名为HistoricalData）和CSV的列完全对应，并且要有一个唯一标识列（比如日期列RecordDate，假设CSV里每个日期唯一），这样我们能准确判断哪些记录需要更新、哪些需要追加。

步骤2：编写VBA同步脚本 #

打开Access，按下Alt + F11打开VBA编辑器，插入一个新模块，粘贴以下代码：

Sub SyncCSVToAccess()
    Dim csvPath As String
    Dim rsCSV As Object ' ADODB.Recordset
    Dim rsAccess As Object ' ADODB.Recordset
    Dim conn As Object ' ADODB.Connection
    Dim dateFieldName As String
    Dim i As Integer
    
    ' 配置参数，替换成你的实际路径和字段名
    csvPath = "C:\YourFolder\YourRealTimeData.csv"
    dateFieldName = "RecordDate" ' CSV中用来唯一标识日期的列名
    Set conn = CreateObject("ADODB.Connection")
    
    ' 连接当前Access数据库
    conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & CurrentDb.Name & ";"
    
    ' 连接CSV文件
    Set rsCSV = CreateObject("ADODB.Recordset")
    rsCSV.Open "SELECT * FROM [" & csvPath & "]", _
        "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Left(csvPath, InStrRev(csvPath, "\")) & _
        ";Extended Properties=""Text;HDR=Yes;FMT=Delimited;"";", _
        1, 3 ' 1=adOpenKeyset, 3=adLockOptimistic
    
    ' 打开Access目标数据表
    Set rsAccess = CreateObject("ADODB.Recordset")
    rsAccess.Open "HistoricalData", conn, 1, 3
    
    ' 遍历CSV每一行，同步数据
    Do While Not rsCSV.EOF
        ' 检查数据库中是否已有该日期的记录
        rsAccess.Filter = dateFieldName & " = #" & rsCSV(dateFieldName) & "#"
        If rsAccess.RecordCount = 0 Then
            ' 没有则追加新记录
            rsAccess.AddNew
            For i = 0 To rsCSV.Fields.Count - 1
                rsAccess(rsCSV.Fields(i).Name) = rsCSV.Fields(i).Value
            Next i
            rsAccess.Update
        Else
            ' 已有则更新实时数据
            rsAccess.MoveFirst
            For i = 0 To rsCSV.Fields.Count - 1
                rsAccess(rsCSV.Fields(i).Name) = rsCSV.Fields(i).Value
            Next i
            rsAccess.Update
        End If
        rsCSV.MoveNext
    Loop
    
    ' 清理资源
    rsAccess.Close
    rsCSV.Close
    conn.Close
    Set rsAccess = Nothing
    Set rsCSV = Nothing
    Set conn = Nothing
End Sub

步骤3：设置自动定时执行 #

Access本身没有内置定时器，但可以用Windows任务计划实现每60秒自动运行：

1. 把你的Access文件保存为.accdb格式，确保宏已启用；
2. 创建一个批处理文件（比如SyncData.bat），内容如下：

   "C:\Program Files\Microsoft Office\root\Office16\MSACCESS.EXE" "C:\YourFolder\YourDatabase.accdb" /x SyncCSVToAccess
   

   （替换成你的Office安装路径和数据库路径，/x参数指定要运行的宏名称）
3. 打开Windows任务计划程序，新建任务：触发器设为“每1分钟”执行，操作选择“启动程序”，选中刚才的批处理文件。

步骤4：关键注意事项 #

• 确保CSV的列名和Access表的列名完全一致，否则同步会出错；
• 如果CSV没有日期作为唯一标识，可以用时间戳之类的唯一字段替代；
• 定时执行时，要保证数据库没被其他程序锁定，否则同步会失败；
• 可以给VBA脚本加错误处理（比如On Error Resume Next或自定义错误捕获），避免意外中断。

内容的提问来源于stack exchange，提问作者Jerram Lindsay