Πώς να αποκτήσετε μια λίστα με όλους τους εξωτερικά συνδεδεμένους φακέλους στο 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. Οι μεμονωμένες καταχωρήσεις σε αυτήν τη λίστα μεταφέρονται σε κελιά σε ένα νέο φύλλο εργασίας.
