Đến nội dung


Hình ảnh
- - - - -

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


  • Please log in to reply
9 replies to this topic

#1 nttcntn

nttcntn

    biết pan

  • Members
  • Pip
  • 9 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 28 August 2016 - 10:59 AM

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.c...6_table_cad.dwg


  • 0

#2 minhtanx2

minhtanx2

    biết lệnh stretch

  • Members
  • PipPipPip
  • 169 Bài viết
Điểm đánh giá: 3 (bình thường)

Đã gửi 29 August 2016 - 11:30 AM

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.


  • 0

Khi bạn tán tỉnh một cô gái đẹp, một giờ đồng hồ chẳng qua như một giây. Khi bạn ngồi trên một hòn than nóng bỏng, một giây như thể một giờ. Đó chính là tính tương đối. (Albert Einstein)


#3 nttcntn

nttcntn

    biết pan

  • Members
  • Pip
  • 9 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 29 August 2016 - 05:28 PM

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


  • 0

#4 ketxu

ketxu

    Copier - Paster - Editor

  • Moderator
  • PipPipPipPipPipPipPip
  • 5682 Bài viết
Điểm đánh giá: 2605 (tuyệt vời)

Đã gửi 30 August 2016 - 09:00 AM

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


  • 0

Thành viên nhóm CadMagic.
Mời bạn ghé thăm facebook nhóm - Page viết lisp theo yêu cầu  :
CAD MAGIC


#5 Chanhbachahq

Chanhbachahq

    Chưa sử dụng CAD

  • Members
  • Pip
  • 1 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 30 August 2016 - 09:22 AM

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

 

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


  • 0

#6 nttcntn

nttcntn

    biết pan

  • Members
  • Pip
  • 9 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 30 August 2016 - 09:24 AM

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

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


  • 0

#7 ketxu

ketxu

    Copier - Paster - Editor

  • Moderator
  • PipPipPipPipPipPipPip
  • 5682 Bài viết
Điểm đánh giá: 2605 (tuyệt vời)

Đã gửi 30 August 2016 - 02:20 PM

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.c...port_tables.rar
 


  • 1

Thành viên nhóm CadMagic.
Mời bạn ghé thăm facebook nhóm - Page viết lisp theo yêu cầu  :
CAD MAGIC


#8 nttcntn

nttcntn

    biết pan

  • Members
  • Pip
  • 9 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 30 August 2016 - 03:41 PM

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.c...port_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


  • 0

#9 ketxu

ketxu

    Copier - Paster - Editor

  • Moderator
  • PipPipPipPipPipPipPip
  • 5682 Bài viết
Điểm đánh giá: 2605 (tuyệt vời)

Đã gửi 30 August 2016 - 05:22 PM

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

Thành viên nhóm CadMagic.
Mời bạn ghé thăm facebook nhóm - Page viết lisp theo yêu cầu  :
CAD MAGIC


#10 nttcntn

nttcntn

    biết pan

  • Members
  • Pip
  • 9 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 30 August 2016 - 08:22 PM

Ok thank you A ketxu


  • 0