Tìm ngôn ngữ người dùng hiện tại

Question

Làm cách nào để biết ngôn ngữ người dùng hiện tại trong chương trình vba?

Tôi cần điều này để hiển thị biểu mẫu bằng ngôn ngữ thích hợp.

Answer 1

Mã ban đầu của tôi (sử dụng vbforum code) giả định rằng Windows và Excel có chung ngôn ngữ - có khả năng nhưng không chống đạn.

cập nhật

Mã sửa đổi:

1. Trả về ID Locale (LCID).
2. Tra cứu LCID từ số msft link này.
3. Phân tích LCID bằng cách sử dụng regexp để nhận ngôn ngữ.

Mẫu đầu ra trên máy tính của tôi dưới đây

Mã sẽ cho người dùng biết nếu có bất kỳ sai sót trong việc tiếp cận các trang web LCID, hoặc trong phân tích cú pháp tên quốc gia.

Sub GetXlLang() 
     Dim lngCode As Long 
     lngCode = Application.LanguageSettings.LanguageID(msoLanguageIDUI) 
     MsgBox "Code is: " & lngCode & vbNewLine & GetTxt(lngCode) 
    End Sub 

    Function GetTxt(ByVal lngCode) As String 
     Dim objXmlHTTP As Object 
     Dim objRegex As Object 
     Dim objRegMC As Object 
     Dim strResponse As String 
     Dim strSite As String 

     Set objXmlHTTP = CreateObject("MSXML2.XMLHTTP") 
     strSite = "http://msdn.microsoft.com/en-us/goglobal/bb964664" 

     On Error GoTo ErrHandler 
     With objXmlHTTP 
      .Open "GET", strSite, False 
      .Send 
      If .Status = 200 Then strResponse = .ResponseText 
     End With 
     On Error GoTo 0 

     strResponse = Replace(strResponse, "</td><td>", vbNullString) 
     Set objRegex = CreateObject("vbscript.regexp") 
     With objRegex 
      .Pattern = "><td>([a-zA-Z- ]+)[A-Fa-f0-9]{4}" & lngCode      
      If .Test(strResponse) Then 
       Set objRegMC = .Execute(strResponse) 
       GetTxt = objRegMC(0).submatches(0) 
      Else 
       GetTxt = "Value not found from " & strSite 
      End If 
     End With 
     Set objRegex = Nothing 
     Set objXmlHTTP = Nothing 
     Exit Function 
ErrHandler: 
     If Not objXmlHTTP Is Nothing Then Set objXmlHTTP = Nothing 
     GetTxt = strSite & " unable to be accessed" 
    End Function 

Answer 2

dim lang_code as long 
lang_code = Application.LanguageSettings.LanguageID(msoLanguageIDUI)