Excel VBA判断Office语言版本

Sub Sample()
    MsgBox Application.LanguageSettings.LanguageID(msoLanguageIDExeMode)
    MsgBox Application.LanguageSettings.LanguageID(msoLanguageIDHelp)
    MsgBox Application.LanguageSettings.LanguageID(msoLanguageIDInstall)
    MsgBox Application.LanguageSettings.LanguageID(msoLanguageIDUI)
    MsgBox Application.LanguageSettings.LanguageID(msoLanguageIDUIPrevious)
End Sub

 

结果：

System    Unicode    Office     msoLanguageIDInstall    msoLanguageIDUI
CHS       CHS        CHS        2052                    2052
CHS       CHS        JPA        2052                    1041
CHS       JPA        CHS        2052                    2052
CHS       JPA        JPA        1041                    1041
JPA       JPA        JPA        1041                    1041

事实说明用 msoLanguageIDUI (宿主应用程序的用户界面所用的语言)来判断 Excel 的
语言版本比网络上流传的 msoLanguageIDInstall 要好。