Cập nhật dữ liệu trên text (2 người xem)

[huhumalu]

Xin nhờ mọi người giúp đỡ thêm.
Sau khi có được text lấy Dữ Liệu từ file của excel_lv1.5 tại [URL="http://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[/URL]
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.

 

[ThangCuAnh]

Chạy treo Excel tui luôn.
Không cần giá trị ở L1 được không, tức chỉ cần giá trị ở K1, đọc tới khi gặp dòng trống thì ngưng ?

 

[excel_lv1.5]

Xin nhờ mọi người giúp đỡ thêm.
Sau khi có được text lấy Dữ Liệu từ file của excel_lv1.5 tại 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

 

[ThangCuAnh]

Bạn chạy thử file của tui vừa sửa code một chút chút thử

 

[huhumalu]

Cảm ơn excel_lv1.5 và ThangCuAnh
Code của anh excel_lv1.5 chạy xuất nội dung chưa đầy đủ.
Code của anh ThangCuAnh chạy đã xuất nội dung phần thay đổi.
Nhưng có thể em trình bày chưa rõ, là em muốn Update vẫn trên file text mà code ban đầu lấy nội dung.
Lấy text từ file txt --> Excel chỉnh sửa --> Lưu lại (update phần chỉnh sửa, những cái khác giữ nguyên).

 

[ThangCuAnh]

Hì hì, sao không nói rõ ngay từ đầu.
Cậu download lại file xem có đồng ý phần nhập vào, xuất ra chưa, rồi mới code thêm tiếp.
Tui test thì code tui sẽ lỗi nếu file có size = 0 bytes.
PS: À, mà không cần phải sữa, code tui đã tính tới trường hợp này.
Cậu cứ nhập K1 là dòng đầu file text, L1 là chuỗi không có trong file, vd "END" chẵng hạn, nó sẽ đọc toàn bộ nội dung file lên.
Sữa xong nhấn WriteToTextFile thì nó sẽ lưu lại toàn bộ
Hì hì, chó ngáp phải ruồi, may quá

 

[ThangCuAnh]

Nếu muốn đọc luôn dòng chứa L1 thì trong Sub ReadTextFile(), sửa code sau:

        If bFound And Not bEnd Then

thành:

        If bFound Then

 

[huhumalu]

Hì hì, sao không nói rõ ngay từ đầu.
Cậu download lại file xem có đồng ý phần nhập vào, xuất ra chưa, rồi mới code thêm tiếp.
Tui test thì code tui sẽ lỗi nếu file có size = 0 bytes.
PS: À, mà không cần phải sữa, code tui đã tính tới trường hợp này.
Cậu cứ nhập K1 là dòng đầu file text, L1 là chuỗi không có trong file, vd "END" chẵng hạn, nó sẽ đọc toàn bộ nội dung file lên.
Sữa xong nhấn WriteToTextFile thì nó sẽ lưu lại toàn bộ
Hì hì, chó ngáp phải ruồi, may quá

Cảm ơn anh ThangCuAnh. Tuy nhiên code của anh là save lại dữ liệu đã trích lọc và bỏ đi dữ liệu cũ. Em vẫn muốn dữ lại dữ liệu cũ, chỉ là edit cái mình đưa vào excel thôi.
Phiền anh thêm lần nữa vậy.




Chuyển thành