Bài này cũng dễ mà hổng thấy ai làm hết vậy ta
Trong file của bạn đã có code sẵn rồi, chỉ sửa lại chút là được mà!
Code trong file:
Sub ImportTextToExcel()
Dim fso As Object, FilesToOpen, TextSource As Object, TotalLines, Res()
Dim ItemsOfLine, TextItem, Delimiter As String, n As Byte
Dim...