Xin chào các anh chị trên GPE. Em có đoạn code thế này:
Khi em cài đặt Regional format là English (United States) thì đặt tên file tiếng Việt nó đều cho giá trị của hXlMain. Tuy nhiên khi em chuyển sang Vietnamese thì nếu tên file chứa từ như "đường, trình, ..." thì hXlMain = 0
Xin hỏi các anh chị là có cách khắc phục không ạ. Nếu có xin hướng dẫn sửa giúp em. Em xin chân thành cảm ơn !
Mã:
Option Explicit
#If VBA7 Then
Private Declare PtrSafe Function FindWindowHW Lib "user32" Alias "FindWindowW" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
#Else
Private Declare Function FindWindowHW Lib "user32" Alias "FindWindowW" (ByVal lpClassName$, ByVal lpWindowName$) As Long
#End If
#If VBA7 Then
Private hXlMain As LongPtr
#Else
Private hXlMain As Long
#End If
Sub Test()
hXlMain = FindWindowHW(StrConv("XLMAIN", vbUnicode), StrConv(Application.Caption, vbUnicode))
Debug.Print hXlMain
End Sub
Xin hỏi các anh chị là có cách khắc phục không ạ. Nếu có xin hướng dẫn sửa giúp em. Em xin chân thành cảm ơn !