如何在函数执行期间修改Excel语言设置以适配代码？

方案1：动态获取区域分隔符（推荐） #

无需修改Excel语言设置，直接通过Excel对象模型获取当前环境的区域引用分隔符，动态生成正确的Range字符串，适配所有语言版本。

在APL中，可通过访问Application.International(xlListSeparator)属性获取分隔符（德语环境返回;，英语环境返回,），示例代码：

'xlListSeparator' ⎕NS 5  // 定义枚举值常量
sep ← ⎕EXCEL.Application.International xlListSeparator
rangeStr ← ⊂'A1:B2',sep,'A5:B10'
⎕EXCEL.ActiveSheet.Range[rangeStr].Value2←1

方案2：临时切换Excel语言设置 #

若必须通过切换语言实现，可使用VBA代码完成临时切换与恢复（APL可调用该VBA宏）。需注意：切换语言可能触发界面刷新，若代码执行中断可能无法恢复原设置，存在一定风险。

VBA宏代码 #

Sub WriteRangeWithGermanLocale()
    Dim originalLangID As Integer
    ' 保存当前UI语言ID
    originalLangID = Application.LanguageSettings.LanguageID(msoLanguageIDUI)
    
    ' 切换至德语UI（语言ID：1031）
    Application.LanguageSettings.LanguageID(msoLanguageIDUI) = 1031
    ' 短暂延迟确保设置生效
    Application.Wait Now + TimeValue("00:00:01")
    
    ' 执行写入操作
    ActiveSheet.Range("A1:B2;A5:B10").Value2 = 1
    
    ' 恢复原语言设置
    Application.LanguageSettings.LanguageID(msoLanguageIDUI) = originalLangID
End Sub

APL调用宏 #

⎕EXCEL.Run 'WriteRangeWithGermanLocale'

内容的提问来源于stack exchange，提问作者T.P.