Καταχωρίστε όλους τους συνδέσμους στο βιβλίο εργασίας με μια μακροεντολή Excel

Πώς να αποκτήσετε μια λίστα με όλους τους εξωτερικά συνδεδεμένους φακέλους στο Excel

Θα θέλατε να μάθετε σε ποια βιβλία εργασίας ο πίνακας περιέχει εξωτερικούς συνδέσμους; Χρησιμοποιήστε την ακόλουθη μακροεντολή για να δημιουργήσετε έναν κατάλληλο πίνακα υπό έλεγχο μακροεντολής:

Υποσύνδεσμοι λίστας ()

Dim NewTable As Worksheet

Dim List As Variant

Dim i As Integer

Χαμηλώστε το ως συμβολοσειρά

Λίστα = ActiveWorkbook.LinkSources (xlExcelLinks)

Εάν δεν είναι άδειο (Λίστα) Τότε

Ορισμός NewTable = ActiveWorkbook.Worksheets.Add

Για i = 1 προς UBound (λίστα)

NewTable.Cells (i, 1) = List (i)

Επόμενο i

Αλλού

a = MsgBox ("Δεν βρέθηκαν συντομεύσεις!", vbOKOnly, "Σημείωση")

Τέλος εαν

Τέλος υπο

Η μακροεντολή δημιουργεί έναν νέο, κενό πίνακα στο ενεργό βιβλίο εργασίας και παραθέτει όλα τα βιβλία εργασίας που συνδέονται εξωτερικά στα κελιά. Κάθε διαδρομή εμφανίζεται μόνο μία φορά - έτσι έχετε μια τόσο συμπαγή επισκόπηση όπως δείχνει το παρακάτω σχήμα:

Εάν δεν βρεθούν εξωτερικοί σύνδεσμοι, το Excel θα το υποδείξει με το αντίστοιχο παράθυρο:

Η μακροεντολή χρησιμοποιεί τη συλλογή LinkSources. Οι μεμονωμένες καταχωρήσεις σε αυτήν τη λίστα μεταφέρονται σε κελιά σε ένα νέο φύλλο εργασίας.