本文链接:http://oicu.cc.blog.163.com/blog/static/1230394712009626112912204/
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 要好。
评论