Chuyển file excel sang .txt

[lching254]

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:



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 ạ

 

[snow25]

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:

View attachment 290524
View attachment 290525
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 ạ

Viết cái code VBA xuất sang File Txt.

 

[lching254]

Viết cái code VBA xuất sang File Txt.

Anh có thể hướng dẫn cụ thể hơn giúp em được không ạ?
Em cảm ơn nhiều ạ

 

[Maika8008]

Anh có thể hướng dẫn cụ thể hơn giúp em được không ạ?
Em cảm ơn nhiều ạ

Bài #2 trả lời chính xác câu hỏi ở bài #1 rồi mà

 

[Hoàng Tuấn 868]

Bài #2 trả lời chính xác câu hỏi ở bài #1 rồi mà View attachment 290541

Không thể cụ thể hơn được.

 

[snow25]

Anh có thể hướng dẫn cụ thể hơn giúp em được không ạ?
Em cảm ơn nhiều ạ

Bạn biết chạy code VBA không.Nếu biết và cần dùng thì gửi file lên tôi code cho.

 

[lching254]

Bạn biết chạy code VBA không.Nếu biết và cần dùng thì gửi file lên tôi code cho.

Qua gợi ý của anh thì em đã tìm được một số code tham khảo và chạy oke rồi ấy ạ. Em cảm ơn anh nhiều!

 

[namvu230397]

bạn copy vùng cần chuyển, tạo một file txt mới rồi paste nội dung vào đấy là xong thôi, code làm gì cho đau đầu hả bạn

 

[lching254]

bạn copy vùng cần chuyển, tạo một file txt mới rồi paste nội dung vào đấy là xong thôi, code làm gì cho đau đầu hả bạn

Nhưng mà mình cần file txt mà các số chỉ cách nhau 1 khoảng trắng ấy ạ, nên làm như bạn chỉ thì nó không được như thế =(((

 

[namvu230397]

Nhưng mà mình cần file txt mà các số chỉ cách nhau 1 khoảng trắng ấy ạ, nên làm như bạn chỉ thì nó không được như thế =(((

thì bạn Ctrl + H thay dấu tab bằng dấu space là xong thôi

 

[VetMini]

Lý do tại sao cần 1 khoảng trắng?
Tab là quá đẹp, cần chuyển lại Excel nó cũng đúng dạng.

Dân GPE này ghiền code nặng, cứ nghe vấn đề là đề nghị code.

 

[ongke0711]

Dùng khoảng trắng để phân biệt cột là dễ chết lắm. Vd: cột Họ tên có mấy khoảng trắng.

 

[namvu230397]

Dùng khoảng trắng để phân biệt cột là dễ chết lắm. Vd: cột Họ tên có mấy khoảng trắng.

Cũng có thể do phần mềm xử lý nó yêu cầu định dạng như thế. Em cũng hay làm những việc tương tự như thế, chỉ khác là dấu ngăn cách là dấu phẩy
Thường thì em toàn copy paste xong Ctrl+H thay dấu tab thành phẩy

 

[*_Henry_*]

Cũng có thể do phần mềm xử lý nó yêu cầu định dạng như thế. Em cũng hay làm những việc tương tự như thế, chỉ khác là dấu ngăn cách là dấu phẩyView attachment 290567
Thường thì em toàn copy paste xong Ctrl+H thay dấu tab thành phẩy

Thì bạn có thể thay dấu tab thành các dấu ít sử dụng ví dụ : "|","^"

 

[lching254]

Lý do tại sao cần 1 khoảng trắng?
Tab là quá đẹp, cần chuyển lại Excel nó cũng đúng dạng.

Dân GPE này ghiền code nặng, cứ nghe vấn đề là đề nghị code.

Cái này của em là data cho 1 số bài code ( ngôn ngữ lập trình ) ạ
Nếu cách 1 tab thì cũng có thể mặc định code để đọc dữ liệu từ file txt, nhưng lúc em chuyển bằng cách chọn save as sẵn trên excel thì em thấy file txt nó để các khoảng trắng không đều là 1 tab.
Vậy thì chương trình code của em nó không nhận đầu vào ấy ạ

 

[Quang_Hải]

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:

View attachment 290524
View attachment 290525
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

 

[namvu230397]

Cái này của em là data cho 1 số bài code ( ngôn ngữ lập trình ) ạ
Nếu cách 1 tab thì cũng có thể mặc định code để đọc dữ liệu từ file txt, nhưng lúc em chuyển bằng cách chọn save as sẵn trên excel thì em thấy file txt nó để các khoảng trắng không đều là 1 tab.
Vậy thì chương trình code của em nó không nhận đầu vào ấy ạ

Thì như mình đã nói, bạn copy paste vào một file txt trống là nó cách đúng cho bạn 1 dấu tab luôn. Muốn phân cách bằng dầu gì thì Ctrl + H là xong. Code làm gì cho phức tạp, còn nếu bạn vẫn cứ khăng khăng phải code thì có thể dùng cú pháp "Open filename For Output As #1" (cấu trúc này bạn tự tìm trên google nhé), bạn đã muốn dùng code thì nên hiểu để biết mà sửa cho đúng ý mình)

 

[lching254]

Thì như mình đã nói, bạn copy paste vào một file txt trống là nó cách đúng cho bạn 1 dấu tab luôn. Muốn phân cách bằng dầu gì thì Ctrl + H là xong. Code làm gì cho phức tạp, còn nếu bạn vẫn cứ khăng khăng phải code thì có thể dùng cú pháp "Open filename For Output As #1" (cấu trúc này bạn tự tìm trên google nhé), bạn đã muốn dùng code thì nên hiểu để biết mà sửa cho đúng ý mình)

mình copy, paste ra như này. Nhưng hình như có đôi chỗ không phải cách nhau 1 tab ạ?

 

[ongke0711]

mình copy, paste ra như này. Nhưng hình như có đôi chỗ không phải cách nhau 1 tab ạ?

Bạn mở trong notepadd ++ là thấy nó mấy tab ngay đó mà.

 

[lching254]

Bạn mở trong notepadd ++ là thấy nó mấy tab ngay đó mà.

Mình vẫn không biết nó lỗi ở đâu ạ?