如何通过openpyxl在德语版Excel中正确写入含XODER的公式？

问题核心 #

德语版Excel中XODER（异或）函数在通过openpyxl写入时存在两种异常：

• 写入英文XOR函数，openpyxl无法自动转换为德语XODER
• 直接写入德语XODER，单元格显示#VALUE!，手动回车后恢复正常

可行解决方法 #

方法1：用win32com直接写入德语公式 #

放弃openpyxl的公式写入，改用win32com直接操作Excel，它会完全适配当前Excel的语言环境，无需手动转换函数名：

import win32com.client as win32

# 启动Excel实例
excel = win32.gencache.EnsureDispatch('Excel.Application')
excel.Visible = False  # 后台运行，按需改为True

# 打开目标工作簿
wb = excel.Workbooks.Open(r"C:\your\target\file.xlsx")
ws = wb.Worksheets("目标工作表名")

# 写入德语公式
formula = r'=WENN(UND(SVERWEIS(B2; "\\path\path\path\path\[filename.xlsx]sheetname"!$A:$C; 3; FALSCH) = 0,01; SVERWEIS(B2; "\\path\path\path\path\[filename.xlsx]sheetname"!$A:$D; 4; FALSCH) = DATUM(9999; 12; 31); XODER(RECHTS(LINKS(SVERWEIS(B2; "\\path\path\path\path\[filename.xlsx]sheetname"!$A:$E; 5; FALSCH); 8); 3) = "150"; RECHTS(LINKS(SVERWEIS(B2; "\\path\path\path\path\[filename.xlsx]sheetname"!$A:$E; 5; FALSCH); 8); 3) = "020")); "Muss neuen Preis bekommen!"; "")'
ws.Range("目标单元格").FormulaLocal = formula  # 用FormulaLocal写入本地化公式

# 强制重算并保存
wb.CalculateFull()
wb.Save()
wb.Close()
excel.Quit()

• 关键：使用FormulaLocal属性写入，而非Formula，它会直接识别德语函数名，无需转换。

方法2：用逻辑表达式替代XODER函数 #

如果坚持用openpyxl，可以把XODER(a,b)的逻辑用基础函数组合实现，避免依赖本地化函数名：
德语中XODER(a,b)等价于UND(ODER(a,b); NICHT(UND(a,b)))，替换后的公式如下：

from openpyxl import load_workbook

wb = load_workbook(r"C:\your\file.xlsx")
ws = wb["目标工作表"]

# 替换XODER为等价逻辑的英文公式（openpyxl用英文函数名）
formula = r'=IF(AND(VLOOKUP(B2, "\\path\path\path\path\[filename.xlsx]sheetname"!$A:$C, 3, FALSE) = 0.01, VLOOKUP(B2, "\\path\path\path\path\[filename.xlsx]sheetname"!$A:$D, 4, FALSE) = DATE(9999, 12, 31), AND(OR(RIGHT(LEFT(VLOOKUP(B2, "\\path\path\path\path\[filename.xlsx]sheetname"!$A:$E, 5, FALSE), 8), 3) = "150", RIGHT(LEFT(VLOOKUP(B2, "\\path\path\path\path\[filename.xlsx]sheetname"!$A:$E, 5, FALSE), 8), 3) = "020"), NOT(AND(RIGHT(LEFT(VLOOKUP(B2, "\\path\path\path\path\[filename.xlsx]sheetname"!$A:$E, 5, FALSE), 8), 3) = "150", RIGHT(LEFT(VLOOKUP(B2, "\\path\path\path\path\[filename.xlsx]sheetname"!$A:$E, 5, FALSE), 8), 3) = "020")))), "Muss neuen Preis bekommen!", "")'

ws["目标单元格"].value = formula
wb.save(r"C:\your\output\file.xlsx")

• 原理：用AND(OR(a,b), NOT(AND(a,b)))完全复刻异或逻辑，openpyxl写入英文公式后，德语Excel会自动转换为对应的德语函数（UND/ODER/NICHT），避免单独处理XOR→XODER的转换问题。

方法3：设置Excel自动重算+强制触发单元格编辑状态 #

如果必须用openpyxl写入德语XODER公式，可以通过win32com触发单元格的编辑状态（模拟手动回车），解决#VALUE!问题：

from openpyxl import load_workbook
import win32com.client as win32

# 用openpyxl写入德语公式
wb = load_workbook(r"C:\your\file.xlsx")
ws = wb["目标工作表"]
formula = r'=WENN(UND(SVERWEIS(B2; "\\path\path\path\path\[filename.xlsx]sheetname"!$A:$C; 3; FALSCH) = 0,01; SVERWEIS(B2; "\\path\path\path\path\[filename.xlsx]sheetname"!$A:$D; 4; FALSCH) = DATUM(9999; 12; 31); XODER(RECHTS(LINKS(SVERWEIS(B2; "\\path\path\path\path\[filename.xlsx]sheetname"!$A:$E; 5; FALSCH); 8); 3) = "150"; RECHTS(LINKS(SVERWEIS(B2; "\\path\path\path\path\[filename.xlsx]sheetname"!$A:$E; 5; FALSCH); 8); 3) = "020")); "Muss neuen Preis bekommen!"; "")'
ws["目标单元格"].value = formula
wb.save(r"C:\your\file.xlsx")

# 用win32com触发单元格编辑状态
excel = win32.gencache.EnsureDispatch('Excel.Application')
wb = excel.Workbooks.Open(r"C:\your\file.xlsx")
ws = wb.Worksheets("目标工作表")
cell = ws.Range("目标单元格")

# 模拟进入编辑状态再退出（回车效果）
cell.Activate()
excel.SendKeys("{F2}")
excel.SendKeys("{ENTER}")

# 重算并保存
wb.CalculateFull()
wb.Save()
wb.Close()
excel.Quit()

• 注意：SendKeys可能受当前窗口焦点影响，建议确保Excel在后台运行且无其他窗口干扰。

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