cho em hỏi về copy dữ liệu từ file text qua file excel ạ ! tks cả nhà

[chuongna37]

em đang dùng máy mac tình hình là em muốn copy dữ liệu từ file text qua file excel theo định dạng utf 8 , mà em tìm hiểu nhiều code thì đều thấy ko chạy được , hoặc có vẻ chỉ chạy trên window , sau bao lần mò mầm google thì em tìm được đoạn code này nhưng khi copy qua file excel thì dữ liệu nó không thuộc định dạng utf 8 , anh chị cao nhân giúp đỡ với ạ , tks nhiều

    Sub test() 

        Set wbExcel = ThisWorkbook 
        Set wsExcel = wbExcel.Sheets("Sheet1") 
        Set wbText = Workbooks.Open("/Users/owner/Desktop/阿东/ml_all_20230323.txt")
        wbText.Sheets(1).Cells.Copy wsExcel.Cells
        wbText.Close SaveChanges:=False
    
    End Sub

Bạn cần đăng nhập để thấy link