如何解决Python与VBA同时读写CSV文件的权限冲突问题

1. 临时文件原子替换法 #

这是最易落地的方案，核心是避免直接修改原文件：

• Python写入时先将数据写入临时文件，确认写入完成后，用系统原子操作替换原CSV文件。因为文件替换是瞬间完成的原子操作，VBA读取时只会拿到完整的文件内容，不会遇到半写入的脏数据，也不会触发权限冲突。
• Python代码示例：

import os
import csv

def write_to_csv(data, filename="data.csv"):
    temp_filename = "temp_" + filename
    # 写入临时文件
    with open(temp_filename, "w", newline="", encoding="utf-8") as f:
        writer = csv.writer(f)
        writer.writerows(data)
    # 原子替换原文件
    os.replace(temp_filename, filename)

• VBA无需修改读取逻辑，正常按原有方式读取即可。

2. 文件锁机制 #

通过读写前加锁，确保同一时间只有一个程序操作文件：

Python端（Windows环境）： #

用msvcrt模块实现独占锁，写入时阻止其他程序读写：

import csv
import msvcrt

def safe_write_csv(data, filename="data.csv"):
    with open(filename, "r+", newline="", encoding="utf-8") as f:
        # 加独占锁
        msvcrt.locking(f.fileno(), msvcrt.LK_LOCK, 1)
        # 清空文件并写入新数据
        f.seek(0)
        f.truncate()
        writer = csv.writer(f)
        writer.writerows(data)
        # 释放锁
        msvcrt.locking(f.fileno(), msvcrt.LK_UNLCK, 1)

VBA端： #

以独占模式打开文件，失败则等待重试：

Sub SafeReadCSV()
    Dim fileNum As Integer
    Dim filePath As String
    filePath = "data.csv"
    
    ' 尝试独占打开文件，失败则每秒重试
    On Error Resume Next
    fileNum = FreeFile()
    Open filePath For Input Lock Read Write As #fileNum
    Do While Err.Number <> 0
        Err.Clear
        Application.Wait Now + TimeValue("00:00:01")
        Open filePath For Input Lock Read Write As #fileNum
    Loop
    On Error GoTo 0
    
    ' 执行读取与计算逻辑
    ' ...
    
    Close #fileNum
End Sub

注：Linux环境下Python需改用fcntl模块实现锁机制。

3. 改用轻量级数据库（SQLite） #

放弃CSV，改用SQLite——它内置完善的并发读写控制，支持多程序同时访问：

• Python端用内置sqlite3模块操作：

import sqlite3

def write_to_sqlite(data):
    conn = sqlite3.connect("data.db")
    cursor = conn.cursor()
    # 初始化表结构
    cursor.execute("CREATE TABLE IF NOT EXISTS records (col1 TEXT, col2 INTEGER)")
    # 批量写入数据
    cursor.executemany("INSERT INTO records VALUES (?, ?)", data)
    conn.commit()
    conn.close()

• VBA端通过ADODB连接SQLite（需提前安装SQLite ODBC驱动）：

Sub ReadFromSQLite()
    Dim conn As Object
    Set conn = CreateObject("ADODB.Connection")
    Dim rs As Object
    Set rs = CreateObject("ADODB.Recordset")
    
    ' 连接数据库
    conn.Open "DRIVER=SQLite3 ODBC Driver;DATABASE=data.db;"
    
    ' 查询并处理数据
    rs.Open "SELECT * FROM records", conn
    Do While Not rs.EOF
        Debug.Print rs("col1"), rs("col2")
        rs.MoveNext
    Loop
    
    rs.Close
    conn.Close
End Sub

该方案适合数据量大、读写逻辑复杂的场景，彻底规避文件操作的各类问题。

4. 消息队列/共享内存中转 #

让Python和VBA通过中间层传递数据，避免直接操作同一文件：

• 比如用Redis作为消息队列：Python将数据推送到Redis列表，VBA定期从列表取数计算。Python用redis库，VBA可通过Redis客户端组件或REST API访问。
• Windows环境下也可使用命名管道：Python写入管道，VBA读取管道数据，无需额外服务，适合单机场景。

内容的提问来源于stack exchange，提问作者Ofir Cohen