Làm việc với tên tệp Unicode trong VBA (sử dụng Dir, FileSystemObject, v.v.)

Question

Tôi đang lặp thông qua các tệp trong thư mục (có nghĩa là tôi không biết tên trong thư mục) và có tệp bằng tiếng Ba Lan ł ký tự.

Chức năng Dir chuyển đổi thành l có nghĩa là không thể tìm thấy tên tệp sau này. Tôi đã khai báo var mà tôi gán giá trị dir thành một chuỗi.

Tôi cũng đã thử FSO và thư mục cũng có cùng vấn đề.

Tôi cũng nhận thấy hộp thoại tệp (được đặt thành chế độ chọn thư mục) cũng chuyển đổi ký tự ở trên.

---

Đây có phải là lỗi hoặc có thể làm việc xung quanh không?

Answer 1

Có vẻ như bạn đang bị lừa bởi thực tế là trong khi chính VBA hỗ trợ các ký tự Unicode, môi trường phát triển VBA VBA thì không. Trình soạn thảo VBA vẫn sử dụng mã hóa ký tự "mã trang" cũ dựa trên thiết lập miền địa phương trong Windows.

Chắc chắn FileSystemObjectet. al. thực tế hỗ trợ các ký tự Unicode trong tên tệp, như được minh họa bằng ví dụ sau. Với một thư mục chứa ba tập tin văn bản đơn giản

Tên tập tin: 1_English.txt
Nội dung: London is a city in England.

Tên tập tin: 2_French.txt
Nội dung: Paris is a city in France.

Tên tập tin: 3_Połish.txt
Nội dung: Warsaw is a city in Poland.

Sau đây Mã VBA ...

Option Compare Database 
Option Explicit 

Sub scanFiles() 
    Dim fso As New FileSystemObject, fldr As Folder, f As File 
    Set fldr = fso.GetFolder("C:\__tmp\so33685990\files") 
    For Each f In fldr.Files 
     Debug.Print f.Path 
    Next 
    Set f = Nothing 
    Set fldr = Nothing 
    Set fso = Nothing 
End Sub 

... xuất ra như sau trong cửa sổ ngay ...

C:\__tmp\so33685990\files\1_English.txt 
C:\__tmp\so33685990\files\2_French.txt 
C:\__tmp\so33685990\files\3_Polish.txt 

Lưu ý rằng tuyên bố Debug.Print chuyển đổi nhân vật ł-l vì môi trường phát triển VBA không thể hiển thị ł sử dụng Windows của tôi ngôn ngữ (tiếng Anh Mỹ).

Tuy nhiên, đoạn mã sau không mở tất cả ba tác phẩm thành công ...

Option Compare Database 
Option Explicit 

Sub scanFiles() 
    Dim fso As New FileSystemObject, fldr As Folder, f As File, ts As TextStream 
    Set fldr = fso.GetFolder("C:\__tmp\so33685990\files") 
    For Each f In fldr.Files 
     Set ts = fso.OpenTextFile(f.Path) 
     Debug.Print ts.ReadAll 
     ts.Close 
     Set ts = Nothing 
    Next 
    Set f = Nothing 
    Set fldr = Nothing 
    Set fso = Nothing 
End Sub 

... hiển thị

London is a city in England. 
Paris is a city in France. 
Warsaw is a city in Poland.