Nhập dữ liệu Excel vào Visio trên các trang khác nhau
Tôi đang thực hiện một dự án trên Visio, lập bản đồ mạng lưới tại nơi làm việc của mình.
Chúng tôi có hơn 150 thiết bị, mỗi thiết bị cần một trang riêng, hiển thị sơ đồ kết nối cùng với các thông tin khác.
Tôi đã liệt kê tất cả các thiết bị này trong một bảng tính Excel, với cột 1 là tên thiết bị.
Câu hỏi của tôi là
1. Có cách nào để liên kết một cột trong bảng tính Excel của tôi với Visio sao cho mỗi mục trong cột đó được tạo thành một trang mới không?
2. Nếu không, có cách nào để tạo một số lượng trang nhất định cùng một lúc và đổi tên chúng nhanh hơn thay vì phải nhấp vào nút "Trang mới" 150 lần rồi nhấp chuột phải vào từng trang để đổi tên không?
Trả lời:
Bạn cần tạo hơn 150 trang, và các trang này phải được đặt tên theo định dạng cột trong file Excel phải không?
Hoặc bạn cần thêm dữ liệu từ Excel vào mỗi trang!
Trả lời:
Giải pháp của bạn có thể sẽ cần một chút lập trình tùy chỉnh. Nhưng trước tiên, bạn đang sử dụng phiên bản Visio nào (quan trọng nhất là phiên bản tiêu chuẩn hay chuyên nghiệp)?
al Edlund
Trả lời:
Chào Al,
Chúng tôi đang sử dụng Visio 2010 Standard.
Xin chân thành cảm ơn,
Trả lời:
Tôi đang dùng Excel phiên bản 2007, nếu thông tin đó có ích.
Trả lời:
Hi vọng điều này sẽ dễ hiểu hơn.
Tôi cần tạo hơn 150 trang trong Visio, mỗi trang dành cho một thiết bị. Tên trang sẽ trùng với tên thiết bị.
Tôi có một tài liệu Excel cho một dự án liên quan, trong đó liệt kê tất cả các thiết bị này trong cùng một cột.
Tôi đang thắc mắc liệu có cách nào để liên kết tài liệu Excel này với Visio sao cho Visio có thể tự động tạo một trang mới cho tất cả các trường trong cột X và đặt tiêu đề trang theo dữ liệu được nhập vào các trường đó hay không.
Cảm ơn trước!
Trả lời:
Như Al đã nói:
Giải pháp của bạn có thể sẽ cần một chút lập trình tùy chỉnh.
Đại loại như thế này
Sub vb() ' liên kết muộn
Dim ea ' ứng dụng excel biến
Đặt ea = GetObject(, "excel.application")
Dim ew ' biến excel workbook
Đặt ew = ea.workbooks(1)
Dim es ' bảng tính excel biến
Đặt es = ew.sheets(1)
Dim r As Integer ' biến đếm hàng
Đối với r = 1 đến 150 hàng trở lên
Nếu ActiveDocument.Pages.Count < r thì
ActiveDocument.Pages.Add
Kết thúc nếu
ActiveDocument.Pages(r).Name = es.Cells(r, 1)
Kế tiếp
End Sub
Tôi không biết cách nào khác.
Trả lời:
Nên sử dụng phiên bản Pro, vì phiên bản đó có đầy đủ các tính năng cần thiết để xử lý dữ liệu bên ngoài tốt hơn.
Al Edlund
Trả lời:
Nên sử dụng phiên bản Pro, vì phiên bản đó có đầy đủ các tính năng cần thiết để xử lý dữ liệu bên ngoài tốt hơn.
Al Edlund
Trong tùy chọn nào của phiên bản chuyên nghiệp, tác vụ đó được thực hiện?
Comments
Post a Comment