Chuyển đổi file excel sang .txt (3 người xem)

[huyenttn123]

Em kính chào anh chị.
Em cần chuyển đổi từ file excel sang .txt sao cho có các gạch ngăn cách như hình ảnh đính kèm.


Thông thường khi chuyển đổi thì có những khoảng trống giữa thông tin như hình bên dưới thôi. Có anh chị nào từng gặp hoặc biết những vấn đề này thì chia sẽ giúp em ạ.


Em cảm ơn nhiều ạ.

 

[befaint]

như hình

Mình gửi file text mẫu lên nhé. Hình rất đẹp nhưng phù hợp ngắm thôi.

 

[huyenttn123]

Mình gửi file mẫu để chuyển đổi và 1 file txt đã được chuyển đổi ạ.

 

[befaint]

chuyển

 

[huyenttn123]

Bạn hướng dẫn mình chuyển với được không ạ. File bạn gửi mình bấm click vô nhưng không thấy chuyển đổi gì.

 

[befaint]

không thấy

Mình tìm ở Folder chứa file Excel sẽ thấy "sản phẩm".

 

[huyenttn123]

Tiếc là em vẫn chưa biết cách làm, vì file trên là file mẫu thôi, để em nghiên cứu thêm. Em cảm ơn nhiều ạ.

 

[batman1]

Tiếc là em vẫn chưa biết cách làm, vì file trên là file mẫu thôi, để em nghiên cứu thêm. Em cảm ơn nhiều ạ.

Nói tóm tắt thì cần thực hiện macro Main.



Code sẽ nhập vùng dữ liệu vào mảng -> duyệt từng dòng của mảng và nối các ô ở dòng hiện hành nhưng ở các cột liên tiếp thành 1 chuỗi với ký tự "|" ngăn cách. Các chuỗi được tạo như thế của các dòng liên tiếp được ngăn cách bởi ký tự có điểm mã là 10. Code sẽ dùng ADODB.Stream để ghi chuỗi kết quả ra tập tin "TranThiNgocHuyen_cute.txt".

Nếu bạn không vào được code thì chịu thôi. Tôi không hướng dẫn bạn vì đây là code của người khác, tôi không có quyền. Tôi chỉ ghi tóm tắt thế, biết đâu theo gợi ý này bạn lại tự viết được code.

Nhưng bạn hoàn toàn có thể tự làm. Chỉ cần thêm vài thao tác tay, chịu khó là được.

Thao tác: mở tập tin "chuyen doi file.xlsx -> save as -> chọn Unicode Text -> nhấn Save. Kết quả bạn sẽ có tập tin với những khoảng mà bạn gọi là "những khoảng trống". Đó chính là ký tự TAB. Thao tác: mở tập tin TXT trong notepad -> xuống cuối tập tin và nhấn Enter để xuống dòng -> nhấn phím "a" -> nhấn phím TAB -> nhấn phím "b" -> bôi đen đoạn giữa "a" và "b", tức bôi đen ký tự TAB -> menu Edit -> chọn Replace -> trong cửa sổ Replace trường Find đã được điền bởi nội dung của TAB -> ở trường thứ 2 bên dưới bạn nhập ký tự "|" -> nhấn Replace All -> xóa dòng cuối a|b -> đóng cửa sổ Replace-> xong phim.

 

[huuthang_bd]

Dùng công thức nối lại sau đó copy kết quả.

E1=D1&A1&"|"

Sao kéo công thức E1 cho vùng còn lại (đến cột G), sửa công thức cột G lại để bỏ ký tự cuối, copy cột G dán vào notepad

 

[huyenttn123]

Dạ em cảm ơn nhiều ạ.