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