Lỗi phông chữ khi dùng hàm input ?

[Nguyen Rem]

Em chào các anh chị ^^ Lại là em đây ))
Hiện tại em có một lỗi sau:
Em tạo một file là test.txt . Lưu với endingcode là UTF-8
Sau khi mà em dùng hàm input để nhập dữ liệu của file vào trong excel bằng cách dùng vòng lặp(Do-Until) thì phông chữ của em đã bị lỗi . Mong các anh chị giải thích giúp em lỗi là do đâu và ách sửa nó như thế nào ^^
Em cảm ơn các anh chị nhiều lắm <3

 

[batman1]

Trên sheet không dùng được utf-8 đâu. Hoặc dùng unicode hoặc đọc utf-8 vào string rồi convert sang unicode rồi mới nhập xuống sheet. Mà dùng Scripting.FileSystemObject để đọc từ tập tin txt vào String.

 

[quanluu]

Bạn tìm hiểu và sử dụng ADODB.Stream nhé.

 

[Nguyen Rem]

Dạ vâng ạ ! Em cảm ơn các anh . Để em tìm hiểu rồi có gì em báo lại sau ạ

 

[Nguyen Rem]

Trên sheet không dùng được utf-8 đâu. Hoặc dùng unicode hoặc đọc utf-8 vào string rồi convert sang unicode rồi mới nhập xuống sheet. Mà dùng Scripting.FileSystemObject để đọc từ tập tin txt vào String.

Anh ơi ! Hiện tại em đã đọc cái file.txt (utf-8) vào string xong rồi mới in vào sheet nhưng sao mà nó vẫn lỗi tiếng việt ạ ?

(hình ảnh file.txt)

 

[befaint]

đọc cái file.txt (utf-8)

Đọc chuỗi Unicode từ file txt

Tôi có dùng code sau để lấy dữ liệu từ file TXT để đưa vào Excel, nhưng trong file TXT lại có chuỗi Unicode khi đọc sang Excel bị lại bị mã hết. Nhờ các thành viên ai từng gặp trường hợp này hướng dẫn tôi khắc phục với. (Một lưu ý là file TXT này được tạo ra từ ứng dụng Arduino Nano ghi dữ liệu...

www.giaiphapexcel.com

https://www.giaiphapexcel.com/diendan/threads/t%E1%BA%A1o-file-txt-b%E1%BA%B1ng-vba.133386/#post-1005572

. . .

 

[batman1]

Anh ơi ! Hiện tại em đã đọc cái file.txt (utf-8) vào string xong rồi mới in vào sheet nhưng sao mà nó vẫn lỗi tiếng việt ạ ?
View attachment 276329

Bạn không đọc bài #2 (dùng code tự viết convert utf-8 sang unicode) và bài #3 (dùng ADODB.Stream)

Ví dụ dùng ADODB.Stream

Function utf82unicode(ByVal fileutf8 As String) As String
Dim stream As Object
    Set stream = CreateObject("ADODB.Stream")
    With stream
        .Charset = "utf-8"
        .Type = 2
        .Open
        .LoadFromFile fileutf8
        utf82unicode = .readText()
        .Close
    End With
    Set stream = Nothing
End Function

Sub Test()
Dim text As String
    text = utf82unicode(ThisWorkbook.Path & "\stdlist.txt") ' gia su tap tin txt va Excel cung thu muc
    ThisWorkbook.Worksheets(1).Range("A1") = text
End Sub

 

[Nguyen Rem]

Em cảm ơn các anh ^^ Để em tìm hiểu rồi có gì khúc mắc sẽ "đào" các anh lên sau :>