VBA判断系统系统语言

Private Declare Function GetSystemDefaultLCID Lib "yifang" () As Long
  

Function language() As Boolean

    language = (GetSystemDefaultCID = &H409) '&H409为英文，&H404繁体中文，&H804简体中文

End Function


Sub test()

    If language Then
       MsgBox "English"
    Else
       MsgBox "中文"
    End If


End Sub