Cập nhật dữ liệu trên text

Chia sẻ bởi:hands

★★★★★

‹ Lưu tọa độ khi click chuột Sắp xếp dữ liệu theo thời gian... ›

Quảng cáo

Xin nhờ mọi người giúp đỡ thêm.
Sau khi có được text lấy Dữ Liệu từ file của [URL='https://www.giaiphapexcel.com/diendan/members/excel_lv1-5.1130050/']excel_lv1.5 tại [URL='https://www.giaiphapexcel.com/diendan/members/excel_lv1-5.1130050/'][URL="https://www.giaiphapexcel.com/diendan/threads/tr%C3%ADch-l%E1%BB%8Dc-d%E1%BB%AF-li%E1%BB%87u-t%E1%BB%AB-file-txt-v%C3%A0o-excel.132592/#post-837465"]Trích lọc dữ liệu từ file txt vào excel
thì những thao tác trên Excel sau khi làm xong, copy vào trong các trình Text Editor như Notepad thì những ngăn cách giữa các text trong cùng 1 dòng lại bị chuyển thành Tab.
Nhờ các anh em phụ thêm 1 đoạn nữa là làm sao sau khi nhập text vào Excel, mình chỉnh sửa và lưu lại trên chính file text đó, hoặc lưu thành text mới, và ngăn cách giữa các cột trong excel bây giờ là "Space" thay vì "Tab".
Cảm ơn nhiều ạ.
Xin gửi lại file excel và dữ liệu.

Bạn chỉnh code như vầy xem:
Sub WriteTextFile()
Dim FilePath As String
Dim CellData As String
Dim LastCol As Long
Dim LastRow As Long
LastCol = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column
LastRow = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
CellData = ""
FilePath = Application.DefaultFilePath & "auth.txt"
Open FilePath For Output As #2
For i = 1 To LastRow
For j = 1 To LastCol
If j = LastCol Then
CellData = CellData & ActiveCell(i, j)
Else
CellData = CellData & ActiveCell(i, j) & Space(20 – Len(ActiveCell(i, j)))
End If
Next j
Print #2, CellData
CellData = ""
Next i
Close #2
MsgBox "File luu tai " & LastCol & FilePath & LastRow & vbNewLine & "Done"
End Sub