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 要好。