Nhờ giúp đoạn code lấy dữ liệu từ file text UTF-8

[nghiaphuc]

Xin chào các anh chị em.
Mình có một bài toán "nhỏ nhỏ" thế này mà nghĩ mãi chưa ra, nhờ các anh chị em giải đáp giúp.
Vấn đề của mình là cần lấy dữ liệu từ file text vào trong file Excel, nội dung file là văn bản tiếng Việt Unicode.
Nếu file nguồn được mã hóa dạng Unicode thì việc lấy dữ liệu không có vấn đề gì, tuy nhiên nếu file nguồn được mã hóa dạng UTF-8 thì khi lấy dữ liệu vào Excel, tiếng Việt không được hiển thị đúng như mong muốn.
Ví dụ: Mình có 2 file text, nội dung hoàn toàn giống nhau, một file mã hóa dạng Unicode và một file mã hóa dạng UTF-8.
Đoạn code của mình chỉ đơn giản là thế này:

Sub LayDuLieu()
    Dim MyFile, FS
    
    Set FS = CreateObject("Scripting.FileSystemObject")
    Set MyFile = FS.OpenTextFile(ThisWorkbook.Path & "\Vi du_uni.txt", 1, , -2)
    Sheet1.[D2] = MyFile.ReadAll
    Set MyFile = FS.OpenTextFile(ThisWorkbook.Path & "\Vi du_utf.txt", 1, , -2)
    Sheet1.[D4] = MyFile.ReadAll
End Sub

Sau khi chạy code thì kết quả thành thế này:

Vấn đề mình cần các anh chị em giúp đỡ là: Cần phải sửa code như thế nào để khi làm việc với file UTF-8 cũng được kết quả như với file Unicode?

Xin cảm ơn các anh chị em đọc bài và giúp đỡ.

 

[Hoàng Nhật Phương]

Xin chào các anh chị em.
Mình có một bài toán "nhỏ nhỏ" thế này mà nghĩ mãi chưa ra, nhờ các anh chị em giải đáp giúp.
Vấn đề của mình là cần lấy dữ liệu từ file text vào trong file Excel, nội dung file là văn bản tiếng Việt Unicode.
Nếu file nguồn được mã hóa dạng Unicode thì việc lấy dữ liệu không có vấn đề gì, tuy nhiên nếu file nguồn được mã hóa dạng UTF-8 thì khi lấy dữ liệu vào Excel, tiếng Việt không được hiển thị đúng như mong muốn.
Ví dụ: Mình có 2 file text, nội dung hoàn toàn giống nhau, một file mã hóa dạng Unicode và một file mã hóa dạng UTF-8.
Đoạn code của mình chỉ đơn giản là thế này:

Sub LayDuLieu()
    Dim MyFile, FS
  
    Set FS = CreateObject("Scripting.FileSystemObject")
    Set MyFile = FS.OpenTextFile(ThisWorkbook.Path & "\Vi du_uni.txt", 1, , -2)
    Sheet1.[D2] = MyFile.ReadAll
    Set MyFile = FS.OpenTextFile(ThisWorkbook.Path & "\Vi du_utf.txt", 1, , -2)
    Sheet1.[D4] = MyFile.ReadAll
End Sub

Sau khi chạy code thì kết quả thành thế này:
View attachment 235488
Vấn đề mình cần các anh chị em giúp đỡ là: Cần phải sửa code như thế nào để khi làm việc với file UTF-8 cũng được kết quả như với file Unicode?

Xin cảm ơn các anh chị em đọc bài và giúp đỡ.

Anh Nghĩa Phúc tham khảo thêm ạ, có một module và hàm có tên "mdlFunc" kèm theo Anh ạ:

Sub cmdFormatOperation_Click()
    Dim opBook As Workbook, planBook As Workbook
    Dim opSht As Worksheet, Sh As Worksheet, rng As Range, rng2 As Range
    
    Set Sh = ThisWorkbook.Worksheets(1)
    Set opBook = OpenBook(Sh.Cells(8, "E").Value, True)
    
    If opBook Is Nothing Then
        MsgBox "Operation file is invalid"
        Exit Sub
    End If
    
    Set opSht = opBook.Worksheets(1)
    
    For Each rng In opSht.Range("A1:A4")
         Sh.Range("E4").Value = Sh.Range("E4").Value & vbNewLine & rng.Value
    Next rng
    
    'CloseBookIfOpenByMe opBook, False

End Sub

 

[Hau151978]

Bạn thử dùng code, hình như không có phương pháp chuẩn nào để xác định kiểu encoding là UTF8 hay 16, dựa vào BOM cũng không chính xác vì file utf8 có thể không cần BOM. Vì vậy mình đoán chỉ có cách thử chọn thôi.

Sub a()
    Dim Strym As New ADODB.Stream
    Dim str As String
    With Strym
        .Charset = "utf-8"
        .Open
        .LoadFromFile ThisWorkbook.Path & "\Vi du_utf.txt"
        str = .ReadText
        .Close
    End With
    Set Strym = Nothing
    [D6] = str
End Sub

 

[nghiaphuc]

Anh Nghĩa Phúc tham khảo thêm ạ, có một module và hàm có tên "mdlFunc" kèm theo Anh ạ:

Sub cmdFormatOperation_Click()
    Dim opBook As Workbook, planBook As Workbook
    Dim opSht As Worksheet, Sh As Worksheet, rng As Range, rng2 As Range  
    Set Sh = ThisWorkbook.Worksheets(1)
    Set opBook = OpenBook(Sh.Cells(8, "E").Value, True)  
    If opBook Is Nothing Then
        MsgBox "Operation file is invalid"
        Exit Sub
    End If  
    Set opSht = opBook.Worksheets(1)  
    For Each rng In opSht.Range("A1:A4")
         Sh.Range("E4").Value = Sh.Range("E4").Value & vbNewLine & rng.Value
    Next rng  
    'CloseBookIfOpenByMe opBook, False
End Sub

Cảm ơn Oanh Thơ, code chạy theo đúng ý mình rồi, tuy hơi dài chút. Mình cũng đã thử đến phương thức Workbooks.OpenText nhưng không được, so lại code mình mới thấy mấu chốt vấn đề nằm ở chỗ tham số Origin:=65001 mà mình đã không biết đến nó.. Mình cũng đã nghĩ tới phương án dùng code để Save as cái file text kia thành dạng Unicode nhưng mà thấy kỳ cục quá.

Bạn thử dùng code, hình như không có phương pháp chuẩn nào để xác định kiểu encoding là UTF8 hay 16, dựa vào BOM cũng không chính xác vì file utf8 có thể không cần BOM. Vì vậy mình đoán chỉ có cách thử chọn thôi.

Sub a()
    Dim Strym As New ADODB.Stream
    Dim str As String
    With Strym
        .Charset = "utf-8"
        .Open
        .LoadFromFile ThisWorkbook.Path & "\Vi du_utf.txt"
        str = .ReadText
        .Close
    End With
    Set Strym = Nothing
    [D6] = str
End Sub

Cảm ơn anh, code rất ngắn gọn và đáp ứng đúng yêu cầu ạ, chỉ có câu lệnh Dim Strym As New ADODB.Stream thì trên máy em không chạy được nên phải thay thành 2 câu Dim Strym và Set Strym = CreateObject("ADODB.Stream").
Về dữ liệu nguồn thì trong trường hợp cụ thể này đã đảm bảo là UTF-8 nên code như vậy là ổn rồi ạ.

 

[Kiều Mạnh]

Cảm ơn Oanh Thơ, code chạy theo đúng ý mình rồi, tuy hơi dài chút. Mình cũng đã thử đến phương thức Workbooks.OpenText nhưng không được, so lại code mình mới thấy mấu chốt vấn đề nằm ở chỗ tham số Origin:=65001 mà mình đã không biết đến nó.. Mình cũng đã nghĩ tới phương án dùng code để Save as cái file text kia thành dạng Unicode nhưng mà thấy kỳ cục quá.

Cảm ơn anh, code rất ngắn gọn và đáp ứng đúng yêu cầu ạ, chỉ có câu lệnh Dim Strym As New ADODB.Stream thì trên máy em không chạy được nên phải thay thành 2 câu Dim Strym và Set Strym = CreateObject("ADODB.Stream").
Về dữ liệu nguồn thì trong trường hợp cụ thể này đã đảm bảo là UTF-8 nên code như vậy là ổn rồi ạ.

Có vẻ ADO chưa rành lắm Nhỉ ... Check cái đó nó có từ 2.x to 6.1 đấy

 

[befaint]

Có vẻ

Đảm bảo máy tính anh chạy code bài #1 'ngon' luôn.

 

[Kiều Mạnh]

Đảm bảo máy tính anh chạy code bài #1 'ngon' luôn.

Hôm trước Mạnh viết lấy File *.CSV ( utf-8 ) nay thử xem sao thấy nó cũng chạy Tốt

 

[nghiaphuc]

Có vẻ ADO chưa rành lắm Nhỉ ... Check cái đó nó có từ 2.x to 6.1 đấy
View attachment 235498

Hồi giờ em có biết đến ADO bao giờ đâu bác.

 

[Kiều Mạnh]

Bạn nào rảnh ... Nếu đam mê code thì nên bớt tẹo thời gian xem bài sau của Thành viên GPE ... ý tưởng hay ẩn chứa trong đó !!!
Code viết thêm các biến giả + abcdxyz + hahahaha ( Bài #9 )

Mọi người hãy giúp em cách quay dữ liệu sang phải 90 độ

Ví dụ em có file như thế này. Nhưng do tròng phòng cách ly qua lớp kính khi in ra cần phải quay cùng chiều kim đồng hồ 1 góc 90 độ thì ở trong họ nhìn ra lớp kính sẽ dể dàng hơn . em cảm ơn ạ Để dể hình dung em vẽ 1 Hình em quay sang phải 1 góc 90 độ là mọi người hiểu ạ

giaiphapexcel.com