כיצד לקבל רשימה של כל התיקיות המקושרות חיצונית ב- Excel
האם תרצה לדעת לאילו חוברות עבודה הטבלה מכילה קישורים חיצוניים? השתמש במאקרו הבא כדי ליצור טבלה מתאימה תחת בקרת מאקרו:
רשימת קישורי משנה ()
Dim NewTable כגיליון עבודה
רשימה עמומה כגרסה
Dim i כמספר שלם
עמעם a כמחרוזת
List = ActiveWorkbook.LinkSources (xlExcelLinks)
אם לא IsEmpty (רשימה)
הגדר NewTable = ActiveWorkbook.Worksheets.Add
עבור i = 1 ל- UBound (רשימה)
NewTable.Cells (i, 1) = רשימה (i)
הבא i
אַחֵר
a = MsgBox ("לא נמצאו קיצורי דרך!", vbOKOnly, "הערה")
סוף אם
סיום תת
המאקרו יוצר טבלה חדשה וריקה בחוברת העבודה הפעילה ומפרטת את כל חוברות העבודה המקושרות חיצונית בתאים. כל נתיב מופיע רק פעם אחת - כך שתקבל סקירה כל כך קומפקטית כפי שהאיור הבא מראה:
אם לא נמצאו קישורים חיצוניים, Excel יציין זאת עם חלון מתאים:
המאקרו משתמש באוסף LinkSources. הערכים הבודדים ברשימה זו מועברים לתאים בדף עבודה חדש.
