Cách lấy danh sách tất cả các thư mục được liên kết bên ngoài trong Excel
Bạn có muốn biết bảng có chứa các liên kết bên ngoài đến các sổ làm việc nào không? Sử dụng macro sau để tạo một bảng phù hợp dưới điều khiển macro:
Liệt kê các liên kết phụ ()
Dim NewTable As Worksheet
Dim danh sách như một biến thể
Dim i As Integer
Làm mờ một chuỗi dưới dạng
List = ActiveWorkbook.LinkSources (xlExcelLinks)
Nếu không phải là IsEmpty (Danh sách) thì
Đặt NewTable = ActiveWorkbook.Worksheets.Add
Đối với i = 1 Đến UBound (danh sách)
NewTable.Cells (i, 1) = Danh sách (i)
Tiếp theo tôi
Khác
a = MsgBox ("Không tìm thấy lối tắt nào!", vbOKOnly, "Lưu ý")
Kết thúc nếu
Kết thúc Sub
Macro tạo một bảng mới, trống trong sổ làm việc đang hoạt động và liệt kê tất cả các sổ làm việc được liên kết bên ngoài trong các ô. Mỗi đường dẫn chỉ xuất hiện một lần - vì vậy bạn sẽ có một cái nhìn tổng quan nhỏ gọn như hình sau cho thấy:
Nếu không tìm thấy liên kết bên ngoài, Excel sẽ chỉ ra điều này bằng một cửa sổ tương ứng:
Macro sử dụng tập hợp LinkSources. Các mục nhập riêng lẻ trong danh sách này được chuyển đến các ô trong một trang tính mới.