Chuyển file excel sang .txt

Em chào mọi người ạ.

Em đang có 1 file excel, giờ em muốn chuyển sang .txt. Em thấy có một số save as sẵn rồi, nhưng lúc sang txt thì nó lại bị lỗi khoảng cách giữa các số không đều.
Em muốn hỏi là có cách nào xuất từ file excel sang txt mà ở file txt, các số cách nhau 1 khoảng cách trắng không ạ?
Em cảm ơn ạ.
VD:

67966795
P/s: Ảnh file .txt mẫu này là em gõ tay ạ =(( Em đang muốn tìm cách xuất ra như ảnh này ạ

Bạn xem code mẫu. Dữ liệu gồm 7 cột. Bạn có thể tùy chỉnh

Sub ExcelToText()
Dim sArr(), i As Long, j As Long, str As String
sArr = Range("A1", Range("A" & Rows.Count).End(3)).Resize(, 7).Value
Open ThisWorkbook.Path & "NewFile.txt" For Output As #1
For i = 1 To UBound(sArr)
    For j = 1 To UBound(sArr, 2)
        If sArr(i, j) <> Empty Then
            If str = Empty Then
                str = CStr(sArr(i, j))
            Else
                str = str & ";" & CStr(sArr(i, j))
            End If
        End If
    Next
    Print #1, str
    str = Empty
Next
Close #1
End Sub

www.giaiphapexcel.com/diendan/threads/chuy%E1%BB%83n-file-excel-sang-txt.165381/

Khóa học SprinGO phù hợp

Học Nhân sự Tổng hợp – Trở thành chiến binh nhân sự vững nghiệp vụ

Con người là một trong những yếu tố quan trọng của công ty, là tài sản quý giá của doanh nghiệp. Chính vì thế,...

Xem khóa học