ربط عدة ملفات بملف رئيسي

[samoxz]

لدي عدة ملفات اكسل قمت بربطها بملف رئيسي يأخذ البيانات منهم
المشكلة عند نقل الملفات لموقع جديد اللينكات القديمة لا تتعرف على الموقع الجديد 
فهل يوجد طريقة سريعة لتحديث الروابط

[hegazee]

ضع الملفات كلها في مجلد واحد أو جرب إحدى هذه الطرق الموجودة بالرابط

https://drive.google.com/file/d/1Rl2SiiQemlQbKM69GeJR0t3BEBynImFy/view?usp=sharing

[عبدالله بشير عبدالله]

السلام عليكم 

اذاكانت الملفات المرتبطة عددها بسيط استخدم الطريقة اليدوية التالية

فتح الملف الرئيسي:

1. • افتح ملف Excel الرئيسي الذي يحتوي على الروابط إلى الملفات الأخرى.

2. تحرير الروابط:

   • اذهب إلى علامة التبويب "البيانات" (Data) في الشريط.
   • اضغط على "تحرير الروابط" (Edit Links) التي توجد عادة في مجموعة "الاتصالات" (Connections).

3. تغيير مصدر الروابط:

   • ستظهر لك نافذة تحتوي على جميع الروابط الموجودة في الملف.
   • حدد الروابط التي تحتاج إلى تحديث، ثم اضغط على "تغيير المصدر" (Change Source).

4. اختيار الموقع الجديد:

   • اختر الملفات من الموقع الجديد الذي تم نقلها إليه.

5. تحديث الروابط:

   • بعد اختيار الملفات، اضغط على "موافق" لتحديث الروابط إلى الموقع الجديد.

اذ كانت الروابط كثيرة فاستخدم الكود التالى

Sub UpdateLinks()
    Dim OldLink As String
    Dim NewLink As String
    Dim LinkArray As Variant
    Dim i As Integer

    ' الرابط القديم
    OldLink = "C:\المسار_القديم\"
    ' الرابط الجديد
    NewLink = "C:\المسار_الجديد\"

    LinkArray = ActiveWorkbook.LinkSources(Type:=xlExcelLinks)

    If Not IsEmpty(LinkArray) Then
        For i = LBound(LinkArray) To UBound(LinkArray)
            If InStr(LinkArray(i), OldLink) > 0 Then
                ActiveWorkbook.ChangeLink Name:=LinkArray(i), NewName:=Replace(LinkArray(i), OldLink, NewLink), Type:=xlExcelLinks
            End If
        Next i
    End If

    MsgBox "تم تحديث الروابط بنجاح!", vbInformation
End Sub

• قم بتعديل المسارات (OldLink و NewLink) حسب الموقع القديم والجديد للملفات.

[samoxz]

المجلد يحوي الكثير من الملفات و الروابط
استخدمت الكود المرفق لكن لم ينجح

[samoxz]

شكرا لكم و جزاكم الله خير وجدت الحل مساعدة تشات جي ي تي و هو قريب من الكود المققترح من قبلكم لكنه يقوم تغيير اللينكات في كل الملف مهما كان تنوع الصفحات و اللينكات أضع الكود للفائدة

 

 Sub ReplacePathsInAllSheets()
    Dim ws As Worksheet
    Dim oldPath As String
    Dim newPath As String
    Dim cell As Range
    
    ' Define old and new paths
    oldPath = "C:\Users\Admin\Desktop\Teachers New\"
    newPath = "C:\Users\Admin\Desktop\New Folder\Teachers New\"
    
    ' Loop through each worksheet in the workbook
    For Each ws In ThisWorkbook.Worksheets
        ' Loop through each cell in the used range of the worksheet
        For Each cell In ws.UsedRange
            ' Check if the cell contains a formula
            If cell.HasFormula Then
                ' Replace old path with new path in the formula (handle single and multiple links)
                If InStr(cell.Formula, oldPath) > 0 Then
                    cell.Formula = Replace(cell.Formula, oldPath, newPath)
                End If
            End If
        Next cell
    Next ws
    
    MsgBox "All link paths have been updated!"
End Sub

حيث تتم اضافة موديول ثم تشغيله

شكرا لكم