Macro xuất dữ liệu từ bảng tính ra file txt. (3 người xem)

[thunguyenminh]

CHÀO CÁC PÁC.

Các bác giúp em với !

Em muốn viết một cái macro để xuất dữ liệu từ bảng tính ra file txt. ĐẠI ĐỂ LÀ CÓ 1 CÁI NÚT CommandButton. ĐỂ CLICK 1 CÁI LÀ NÓ ĐỌC DỮ LIỆU VÀ XUẤT RA FILE TXT CHO MÌNH.

CÁC BÁC XEM FILE EM ĐÍNH KÈM NHÉ .

1. Đọc dữ liệu theo hàng đầu tiên (Site_ID). nếu có 3 dòng giống nhau liên tiếp thì ghi ra file txt là:

ADD SG0861 ABCD

==> ADD và ABCD là những chữ em muốn thêm vào khi xuất ra file excel.

2. Tiếp tục đọc dữ liệu từ 3 dòng Cell ID (tương ứng với 3 dòng Site ID nói trên). và ghi ra file txt (xuống dòng).

ACC SG08611 FGHJ
BDD SG08612 HJKL
DFF SG08612 KLPO

==> ACC,BDD,DFF và FGHJ,HJKL,KLPOlà những chữ em muốn thêm vào.

CẢM ƠN CÁC BÁC TRƯỚC !

 

[lsxinh]

Bạn thử xem nhé, trong file kèm, hy vọng đúng ý bạn muốn!

 

[thunguyenminh]

Thanks bác lsxinh nhé.

Bác hiểu đúng ý em rồi đấy. Nhưng Bác xem lại giúp em với. làm sao để đọc dữ liệu và ghi vào file txt đây... ????????

Cái bác làm giúp em chỉ mới hỏi để save thành txt chứ chưa đọc dữ liệu mà, sau khi ấn save cũng chưa thấy xuất hiện file txt "dù chỉ là file rỗng" !!!

Bác nào rành vụ này, giúp em với, em xin hậu tạ sau..

 

[ThuNghi]

CHÀO CÁC PÁC.

Các bác giúp em với !

Em muốn viết một cái macro để xuất dữ liệu từ bảng tính ra file txt. ĐẠI ĐỂ LÀ CÓ 1 CÁI NÚT CommandButton. ĐỂ CLICK 1 CÁI LÀ NÓ ĐỌC DỮ LIỆU VÀ XUẤT RA FILE TXT CHO MÌNH.

CÁC BÁC XEM FILE EM ĐÍNH KÈM NHÉ .

1. Đọc dữ liệu theo hàng đầu tiên (Site_ID). nếu có 3 dòng giống nhau liên tiếp thì ghi ra file txt là:

ADD SG0861 ABCD

==> ADD và ABCD là những chữ em muốn thêm vào khi xuất ra file excel.

2. Tiếp tục đọc dữ liệu từ 3 dòng Cell ID (tương ứng với 3 dòng Site ID nói trên). và ghi ra file txt (xuống dòng).

ACC SG08611 FGHJ
BDD SG08612 HJKL
DFF SG08612 KLPO

==> ACC,BDD,DFF và FGHJ,HJKL,KLPOlà những chữ em muốn thêm vào.

CẢM ƠN CÁC BÁC TRƯỚC !

Nếu có 4 dòng Cell ID giống nhau, hay là 3 dòng mà không liên tục thì lấy thế nào. Cái này hơi giống thuật tóan lấy duy nhất thêm hàm đếm.
Bạn nên cụ thể hơn.

 

[sealand]

Bạn cũng nói rõ hơn về cái file text kết quả. Nếu muốn dùng file text của bạn làm cơ sở trích rút các bản ghi về sau bạn phải quy định rõ kích thước từng cột và khi ghi file text thường ghi liên tục chứ không theo bảng biểu như file text thuần túy. Sau này căn cứ độ dài để trích rút các bản ghi

Nếu chỉ là ghi chú lại để tham khảo thì lại khác, thậm chí tạo bảng biểu.

Việc ghi ra file không khó mà khó ở chỗ hiểu đúng nguyên tắc ghi.

 

[thunguyenminh]

Nếu có 4 dòng Cell ID giống nhau, hay là 3 dòng mà không liên tục thì lấy thế nào. Cái này hơi giống thuật tóan lấy duy nhất thêm hàm đếm.
Bạn nên cụ thể hơn.

Ah, File dữ liệu Excel của mình đảm bảo Không bao giờ cò trường hợp có 4 dòng cell ID giống nhau bạn ạh. Và các Dòng Cell ID luôn luôn liên tục....

 

[thunguyenminh]

Bạn cũng nói rõ hơn về cái file text kết quả. Nếu muốn dùng file text của bạn làm cơ sở trích rút các bản ghi về sau bạn phải quy định rõ kích thước từng cột và khi ghi file text thường ghi liên tục chứ không theo bảng biểu như file text thuần túy. Sau này căn cứ độ dài để trích rút các bản ghi

Nếu chỉ là ghi chú lại để tham khảo thì lại khác, thậm chí tạo bảng biểu.

Việc ghi ra file không khó mà khó ở chỗ hiểu đúng nguyên tắc ghi.

sealand Xem nhé !

Trong file mình đính kèm ấy... file txt có nội dung như trong file doc mình gửi ấy, chỗ highlight là chỗ mình sẽ đọc từ file excel ra.

Bạn xem giúp mình nhé, Thanks Bạn nhiều

 

[ThuNghi]

Ah, File dữ liệu Excel của mình đảm bảo Không bao giờ cò trường hợp có 4 dòng cell ID giống nhau bạn ạh. Và các Dòng Cell ID luôn luôn liên tục....

Vậy bạn làm theo file sau thử, bạn thêm trong code các Txt.. để thay các dấu "-"
Chưa biết cách tạo ra file text nên tôi làm tạo ra file txt ở My Documents, bạn có thể sửa path trong code.

 

[phuongtk.toji]

Nhờ các bạn trên diễn đàn giúp mình đoạn code chuyển dữ liệu từ file excel sang file .txt với nội dung như sau:
Mình có file excel capso.xls(trong đó x1,x2,x3...ở cột A và y1,y2,y3...ở cột B) mình muốn chuyển sang file capso.txt theo định dạng x1,y1 x2,y2....( giữa các cặp số là dấu cách)
Mình xin cảm ơn!
Mình muốn gửi cả file đính kèm mà không biết làm thế nào để gửi