Anh chị cho em hỏi chỗ này với,
chả là e có file *.txt muốn chuyển sang excel bằng vba mà vẫn giữ các cột, các hàng như vậy. Thế mà chuyển sang excel chúng nó lại nằm chung 1 hàng, không tách ra các cột được. Code nó như này, em sai chỗ nào ấy nhỉ
Sub ReadText()
Dim Filepath As String
Dim counter As Integer
Dim curLine As String
Filepath = "C:\Users\nhan.nguyentan\Desktop\123.txt"
Open Filepath For Input As #1
Do Until EOF(1)
counter = counter + 1
Line Input #1, curLine
ThisWorkbook.Sheets("Sheet1").Cells(counter, 1).Value = curLine
Loop
MsgBox "Done"
Close #1
End Sub

