Lỗi không tìm thấy tên File Tiếng Việt

Liên hệ QC

Miccpro

Thành viên thường trực
Tham gia
9/12/10
Bài viết
236
Được thích
10
Xin chào các anh chị trên GPE. Em có đoạn code thế này:
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
Khi em cài đặt Regional formatEnglish (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áy tôi lâu nay vẫn để format English US có trở ngại gì khi dùng đâu. Cần gì phải chuyển sang VN!
 
Upvote 0
Cái này có anh chị giúp được em không ạ, khi em gửi file cho người khác toàn phải bảo họ Regional format sang English (United States). Mà máy của họ thường để Vietnamese nên đổi đi đổi lại rất phiền.
Em xin cảm ơn
 
Upvote 0
Web KT

Bài viết mới nhất

Back
Top Bottom