Bluestar092011
Thành viên hoạt động
- Tham gia
- 17/8/15
- Bài viết
- 129
- Được thích
- 147
- Giới tính
- Nam
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 vào thẻ SD)
Mã:
Sub OpenTextFile()
Dim FSo As Scripting.FileSystemObject
Set FSo = New Scripting.FileSystemObject
Dim txtFile As TextStream, k%, stex, i%
Set txtFile = FSo.OpenTextFile(ThisWorkbook.Path & "\06042021.txt", 1, False, -2)
stex = Split(txtFile.ReadAll, vbCrLf)
k = 1
For i = LBound(stex) To UBound(stex)
k = k + 1
'Cho nay la tach du lieu ra cac cot
Range("A" & k) = stex(i)
Next
txtFile.Close
Set txtFile = Nothing
Set FSo = Nothing
End Sub