如何实现TXT与Excel双向数据交互：读取值并写入计算结果

用Excel VBA 直接操作（推荐，无需额外工具） #

读取value.txt到A1 #

1. 打开目标Excel文件，按下 Alt + F11 打开VBA编辑器
2. 右键点击当前工作簿 → 插入 → 模块
3. 粘贴以下代码：

Sub ReadTxtToA1()
    Dim filePath As String, valueStr As String
    filePath = ThisWorkbook.Path & "\value.txt" ' 假设TXT和Excel同目录，可自行修改路径
    
    Open filePath For Input As #1
    Line Input #1, valueStr
    Close #1
    
    Range("A1").Value = CDbl(valueStr)
End Sub

将A2数值写回value.txt #

在同一个模块中添加这段代码：

Sub WriteA2ToTxt()
    Dim filePath As String, resultVal As Double
    filePath = ThisWorkbook.Path & "\value.txt"
    
    resultVal = Range("A2").Value
    
    Open filePath For Output As #1
    Print #1, resultVal
    Close #1
End Sub

使用流程 #

• 运行ReadTxtToA1导入数值到A1
• 在Excel中完成计算，确保A2生成结果
• 运行WriteA2ToTxt覆盖value.txt的原有内容

用Python脚本实现（适合自动化/批量场景） #

需要先安装openpyxl库：pip install openpyxl，然后执行以下脚本：

# 读取TXT数值
with open("value.txt", "r", encoding="utf-8") as txt_file:
    input_val = float(txt_file.read().strip())

# 写入Excel A1
wb = openpyxl.load_workbook("your_excel_file.xlsx")
ws = wb.active
ws["A1"].value = input_val
wb.save("your_excel_file.xlsx")

# 读取Excel A2结果（若已手动完成计算，直接执行这段即可）
wb = openpyxl.load_workbook("your_excel_file.xlsx")
ws = wb.active
output_val = ws["A2"].value

# 写回TXT
with open("value.txt", "w", encoding="utf-8") as txt_file:
    txt_file.write(str(output_val))

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