[Giúp đỡ] Ghi file từ excel sang file .txt

[doductiep]

Chào các a/chị. Em có tìm được 1 đoạn code trên diễn đàn đưa dữ liệu từ excel sang .txt và có sửa lại chút xíu để phù hợp nhu cầu.
Mục đích là copy các giá trị từ cột A đến cột E từ excel ra file TXT, tuy nhiên file excel không phải cột nào cũng có dữ liệu , khi đó file txt sản phẩm sẽ xuất hiện các dấu Space sau các giá trị. (ảnh đính kèm).
Nhờ các bác giúp đỡ loại bỏ các space này khi xuất ra txt trong trường hợp ô nào đó trong excel không có dữ liệu

Private Sub CmdExport_Click()
Dim Cuoi As Integer, i As Integer, a, b, FS
Dim FD As FileDialog, DDan As String

Set FD = Application.FileDialog(msoFileDialogFolderPicker)
FD.Title = "Chon thu muc luu": FD.Show
DDan = FD.SelectedItems.Item(1)
Cuoi = [A10000].End(xlUp).Row
Set FS = CreateObject("Scripting.FileSystemObject")
Set a = FS.CreateTextFile(DDan & "\MC1.txt", True, False)

' Ghi so lieu ra file
For i = 1 To Cuoi
a.WriteLine Range("A" & i) & " " & Range("B" & i) & " " & Range("C" & i) & " " & Range("D" & i) & " " & Range("E" & i)
Next

a.Close
End Sub

 

[Maika8008]

Chào các a/chị. Em có tìm được 1 đoạn code trên diễn đàn đưa dữ liệu từ excel sang .txt và có sửa lại chút xíu để phù hợp nhu cầu.
Mục đích là copy các giá trị từ cột A đến cột E từ excel ra file TXT, tuy nhiên file excel không phải cột nào cũng có dữ liệu , khi đó file txt sản phẩm sẽ xuất hiện các dấu Space sau các giá trị. (ảnh đính kèm).
Nhờ các bác giúp đỡ loại bỏ các space này khi xuất ra txt trong trường hợp ô nào đó trong excel không có dữ liệu

Private Sub CmdExport_Click()
Dim Cuoi As Integer, i As Integer, a, b, FS
Dim FD As FileDialog, DDan As String

Set FD = Application.FileDialog(msoFileDialogFolderPicker)
FD.Title = "Chon thu muc luu": FD.Show
DDan = FD.SelectedItems.Item(1)
Cuoi = [A10000].End(xlUp).Row
Set FS = CreateObject("Scripting.FileSystemObject")
Set a = FS.CreateTextFile(DDan & "\MC1.txt", True, False)

' Ghi so lieu ra file
For i = 1 To Cuoi
a.WriteLine Range("A" & i) & " " & Range("B" & i) & " " & Range("C" & i) & " " & Range("D" & i) & " " & Range("E" & i)
Next

a.Close
End Sub

Sửa code lại như sau:

Private Sub CmdExport_Click()
Dim Cuoi As Integer, i As Integer, a, b, FS, j&
Dim FD As FileDialog, DDan As String, Chuoi$

Set FD = Application.FileDialog(msoFileDialogFolderPicker)
FD.Title = "Chon thu muc luu": FD.Show
DDan = FD.SelectedItems.Item(1)
Cuoi = [A10000].End(xlUp).Row
Set FS = CreateObject("Scripting.FileSystemObject")
Set a = FS.CreateTextFile(DDan & "\MC1.txt", True, False)

' Ghi so lieu ra file
For i = 1 To Cuoi
    For j = 1 To 5
        If Len(Cells(i, j)) > 0 Then
            Chuoi = Chuoi & Cells(i, j) & " "
        End If       
    Next
    If Right(Chuoi, 1) = " " Then Chuoi = Left(Chuoi, Len(Chuoi) - 1)
    a.WriteLine Chuoi
    Chuoi = ""
Next
a.Close
End Sub

 

[doductiep]

Sửa code lại như sau:

Private Sub CmdExport_Click()
Dim Cuoi As Integer, i As Integer, a, b, FS, j&
Dim FD As FileDialog, DDan As String, Chuoi$

Set FD = Application.FileDialog(msoFileDialogFolderPicker)
FD.Title = "Chon thu muc luu": FD.Show
DDan = FD.SelectedItems.Item(1)
Cuoi = [A10000].End(xlUp).Row
Set FS = CreateObject("Scripting.FileSystemObject")
Set a = FS.CreateTextFile(DDan & "\MC1.txt", True, False)

' Ghi so lieu ra file
For i = 1 To Cuoi
    For j = 1 To 5
        If Len(Cells(i, j)) > 0 Then
            Chuoi = Chuoi & Cells(i, j) & " "
        End If     
    Next
    If Right(Chuoi, 1) = " " Then Chuoi = Left(Chuoi, Len(Chuoi) - 1)
    a.WriteLine Chuoi
    Chuoi = ""
Next
a.Close
End Sub

Cảm ơn bác rất nhiều