Export Dữ Liệu Các Bảng Table Trong Cad Sang Excel

[nttcntn 0]

Mình có vấn đề thế này mong mọi người giúp:

Mình có 1 file cad có nhiều bảng Table, mỗi bảng Table nằm ở 1 layout

Mình muốn xuất tất cả dữ liệu từ các bảng của cad này sang 1 file excel

Có file đính kèm

Thanh you!

http://www.cadviet.com/upfiles/6/88356_table_cad.dwg

[nttcntn 0]

Xuất đồng thời nhiều table chắc phải dùng lisp, vba rồi. bạn dùng thử lisp C2E xem. AutoCad có lệnh Tableexport cho phép Xuất dl từ Table ra excel (.csv) nhưng chỉ làm đc với từng bảng đơn lẻ.  Tableẽxport với nhiều bảng thì phải ghép file excel vào.

Đúng vậy mình cũng nghĩ tới lệnh Tableexport, nhưng trong VBA mình dùng lệnh này

ThisDrawing.Sendcommand "_tableexport "

Nhưng không kiết dùng thêm tham số thế nào để nó tự lưu mà ko hiện hộp thoại Export data để lưu file

Còn khi đã lưu thành file .csv rồi thì mình sử lý dễ hơn nhiều rồi hoặc viết code gộp dữ liệu chắc là ok thôi

[ketxu 2.983]

Bạn thích dùng lisp hay vba ?

[Chanhbachahq 0]

Bạn thích dùng lisp hay vba ?

 

Bạn cho mình xin lip với ạ, thanks b nhiều

[nttcntn 0]

Bạn thích dùng lisp hay vba ?

Mình thì thích dùng VBA hơn. 

[ketxu 2.983]

Quick Modify để bạn dùng tạm, lâu k động đến VBA giờ edit cũng khó chứ đừng nói code ^^ Mà mình thấy giải pháp trên mạng cũng kha khá mà

http://www.cadviet.com/upfiles/6/24067_export_tables.rar
 

[nttcntn 0]

Quick Modify để bạn dùng tạm, lâu k động đến VBA giờ edit cũng khó chứ đừng nói code ^^ Mà mình thấy giải pháp trên mạng cũng kha khá mà

http://www.cadviet.com/upfiles/6/24067_export_tables.rar

 

Thank you a! thế này là ok rùi.

Dòng Code này em phải bỏ thôi. vì Ô (0,0) trong bảng Table cad thi thoảng trống hoặc có những kí tự ko hợp nên hay lỗi

.Name = rn

[ketxu 2.983]

Thế bạn bỏ cả hàm check sheet name exist và đoạn for each để đặt biến rn nhé.

[nttcntn 0]

Ok thank you A ketxu