टूटे हुए एक्सेल लिंक्स जल्दी ठीक करें: 3 प्रमाणित तरीके

माइक्रोसॉफ्ट एक्सेल (Microsoft Excel) एक शक्तिशाली सॉफ्टवेयर है। हम एक्सेल टूल्स और फीचर्स का उपयोग करके अपने डेटासेट पर कई ऑपरेशन कर सकते हैं। कई डिफ़ॉल्ट एक्सेल फंक्शन्स (Excel Functions) हैं जिनका उपयोग हम फॉर्मूला बनाने के लिए कर सकते हैं। कई शैक्षणिक संस्थान और व्यावसायिक कंपनियां मूल्यवान डेटा स्टोर करने के लिए एक्सेल फाइलों का उपयोग करती हैं। कभी-कभी हम कई एक्सेल फाइलों को लिंक करके विभिन्न स्रोतों से डेटा इनपुट करते हैं। हालांकि विभिन्न कारणों से लिंक्स टूट सकते हैं। इससे हम जिस वर्कशीट पर काम कर रहे हैं उसमें एरर्स आएंगे। इसलिए हमें उन टूटे हुए लिंक्स को हटाने की आवश्यकता होगी। यह आर्टिकल आपको 3 सरल तरीके दिखाएगा एक्सेल में टूटे हुए लिंक्स हटाने (Remove Broken Links in Excel) के।

खुद अभ्यास करने के लिए निम्नलिखित वर्कबुक डाउनलोड करें।

एक्सेल में टूटे हुए लिंक्स का परिचय

अक्सर हमारे डेटासेट में अन्य वर्कशीट्स या वर्कबुक के लिंक्स होते हैं। हालांकि कुछ कारण हैं जिनसे लिंक्स टूट जाते हैं। संभावित कारण हैं सोर्स वर्कशीट या वर्कबुक का नाम बदलना, सोर्स फाइल की लोकेशन बदलना और फाइल को डिलीट करना। यदि ये मामले होते हैं तो लिंक्स एक्टिव वर्कशीट में सटीक रूप से काम नहीं करेंगे। इसका परिणाम एरर्स में होगा। उन लिंक्स को टूटे हुए लिंक्स (Broken Links) कहा जाता है।

निम्नलिखित डेटासेट में D5 सेल सैंपल (Sample) फाइल में शीट1 (Sheet1) के D5 सेल से जुड़ा हुआ है।

हालांकि सैंपल फाइल में सोर्स शीट का नाम बदल गया। और इसीलिए आप नीचे दिए गए चित्र में #REF! एरर देख सकते हैं। इस आर्टिकल में हम दिखाएंगे कि ऐसे लिंक्स को कैसे हटाएं।

एक्सेल में टूटे हुए लिंक्स हटाने के 3 सरल तरीके

एक्सेल में टूटे हुए लिंक्स हटाने के कई तरीके हैं। यहां हम ऑपरेशन को पूरा करने के लिए सभी 3 तरीकों पर चर्चा करेंगे। तो साथ चलें।

1. एक्सेल में एडिट लिंक्स कमांड के माध्यम से टूटे हुए लिंक्स हटाएं

सबसे सरल प्रक्रिया एडिट लिंक्स कमांड (Edit Links Command) का उपयोग करना है। इसलिए कार्य करने के लिए नीचे दिए गए चरणों का पालन करें।

चरण:

• सबसे पहले डेटा टैब (Data tab) पर जाएं।
• अब क्वेरीज़ एंड कनेक्शन्स ग्रुप (Queries & Connections group) से एडिट लिंक्स (Edit Links) ऑप्शन चुनें।

• परिणामस्वरूप एडिट लिंक्स डायलॉग बॉक्स पॉप आउट होगा।
• वहां टूटे हुए लिंक को चुनें।
• फिर ब्रेक लिंक ऑप्शन (Break Link option) पर क्लिक करें।

• नतीजतन आपको एक चेतावनी डायलॉग बॉक्स मिलेगा।
• ब्रेक लिंक्स (Break Links) दबाएं।

• इस प्रकार यह एक्सेल वर्कशीट में सभी टूटे हुए लिंक्स को हटा देगा।

और पढ़ें: एक्सेल में लिंक्स कैसे तोड़ें (3 त्वरित तरीके)

2. टूटे हुए लिंक्स हटाने के लिए एक्सेल VBA का उपयोग करें

इसके अलावा आप कार्य करने के लिए VBA कोड लागू कर सकते हैं। इसलिए निम्नलिखित प्रक्रिया सीखें।

चरण:

• सबसे पहले डेवलपर टैब (Developer tab) पर जाएं।
• अगला कोड ग्रुप (Code group) से विजुअल बेसिक (Visual Basic) ऑप्शन चुनें।

• बाद में VBA विंडो में इन्सर्ट ➤ मॉड्यूल (Insert ➤ Module) पर क्लिक करें।
• उसके बाद नीचे दिए गए कोड को कॉपी करें और मॉड्यूल बॉक्स (Module box) में पेस्ट करें।

Sub RemoveLinks() 
    alinks = ActiveWorkbook.LinkSources(xlExcelLinks) 
    If Not IsEmpty(alinks) Then 
        Sheets.Add 
        shtName = ActiveSheet.Name 
        Set summaryWS = ActiveWorkbook.Worksheets(shtName) 
        summaryWS.Range("A1") = "sheet" 
        summaryWS.Range("B1") = "location" 
        summaryWS.Range("C1") = "function" 
        summaryWS.Range("D1") = "file" 
        summaryWS.Range("E1") = "outcome" 
        For Each ws In ActiveWorkbook.Worksheets 
            If ws.Name <> summaryWS.Name Then 
                For Each Rng In ws.UsedRange 
                    If Rng.HasFormula Then 
                        For j = LBound(alinks) To UBound(alinks) 
                            filePath = alinks(j) 
                            'LinkSources returns full file path with file name 
                            Filename = Right(filePath, Len(filePath) - InStrRev(filePath, "\")) 
                            'extract just the file name 
                            filePath2 = Left(alinks(j), InStrRev(alinks(j), "\")) & "[" & Filename & "]" 
                            'file path with brackets 
                            If InStr(Rng.Formula, filePath) Or InStr(Rng.Formula, filePath2) Then 
                                nextrow = summaryWS.Range("A" & Rows.Count).End(xlUp).Row + 1 
                                summaryWS.Range("A" & nextrow) = ws.Name 
                                summaryWS.Range("B" & nextrow) = Replace(Rng.Address, "$", "") 
                                summaryWS.Hyperlinks.Add Anchor:=summaryWS.Range("B" & nextrow), Address:="", SubAddress:="'" & ws.Name & "'!" & Rng.Address 
                                summaryWS.Range("C" & nextrow) = "'" & Rng.Formula 
                                summaryWS.Range("D" & nextrow) = filePath 
                                summaryWS.Range("E" & nextrow) = linkStatusDescr(ActiveWorkbook.LinkInfo(CStr(filePath), xlLinkInfoStatus)) 
                                Exit For 
                            End If 
                        Next j 
                        For Each namedRng In Names 
                            If InStr(Rng.Formula, namedRng.Name) Then 
                                filePath = Replace(Split(Right(namedRng.RefersTo, Len(namedRng.RefersTo) - 2), "]")(0), "[", "") 
                                'remove =' and range in the file path 
                                nextrow = summaryWS.Range("A" & Rows.Count).End(xlUp).Row + 1 
                                summaryWS.Range("A" & nextrow) = ws.Name 
                                summaryWS.Range("B" & nextrow) = Replace(Rng.Address, "$", "") 
                                summaryWS.Hyperlinks.Add Anchor:=summaryWS.Range("B" & nextrow), Address:="", SubAddress:="'" & ws.Name & "'!" & Rng.Address 
                                summaryWS.Range("C" & nextrow) = "'" & Rng.Formula 
                                summaryWS.Range("D" & nextrow) = filePath 
                                summaryWS.Range("E" & nextrow) = linkStatusDescr(ActiveWorkbook.LinkInfo(CStr(filePath), xlLinkInfoStatus)) 
                                Exit For 
                            End If 
                        Next namedRng 
                    End If 
                Next Rng 
            End If 
        Next 
        Columns("A:E").EntireColumn.AutoFit 
        lastrow = summaryWS.Range("A" & Rows.Count).End(xlUp).Row 
        For r = 2 To lastrow 
            If ActiveSheet.Range("E" & r).Value = "Source unavailable" Then 
                countBroken = countBroken + 1 
            End If 
        Next 
        If countBroken > 0 Then 
            sInput = MsgBox("Do you want to remove broken links of status 'Source unavailable'?", vbOKCancel + vbExclamation, "Warning") 
            If sInput = vbOK Then 
                For r = 2 To lastrow 
                    If ActiveSheet.Range("E" & r).Value = "Source unavailable" Then 
                        Sheets(Range("A" & r).Value).Range(Range("B" & r).Value).ClearContents 
                        dummy = MsgBox(countBroken & " broken links removed", vbInformation) 
                    End If 
                Next 
            End If 
        End If 
    Else 
        MsgBox "links absent" 
    End If 
End Sub 

Public Function linkStatusDescr(statusCode) 
    Select Case statusCode 
        Case xlLinkStatusCopiedValues 
            linkStatusDescr = "data copied" 
        Case xlLinkStatusIndeterminate 
            linkStatusDescr = "status unavailable" 
        Case xlLinkStatusInvalidName 
            linkStatusDescr = "wrong name" 
        Case xlLinkStatusMissingFile 
            linkStatusDescr = "Source unavailable" 
        Case xlLinkStatusMissingSheet 
            linkStatusDescr = "worksheet absent" 
        Case xlLinkStatusNotStarted 
            linkStatusDescr = "yet to start" 
        Case xlLinkStatusOK 
            linkStatusDescr = "all okay" 
        Case xlLinkStatusOld 
            linkStatusDescr = "expired" 
        Case xlLinkStatusSourceNotCalculated 
            linkStatusDescr = "yet to compute" 
        Case xlLinkStatusSourceNotOpen 
            linkStatusDescr = "inactive source" 
        Case xlLinkStatusSourceOpen 
            linkStatusDescr = "active source" 
        Case Else 
            linkStatusDescr = "status undetected" 
    End Select 
End Function

• अगला कोड चलाने के लिए F5 दबाएं।
• नतीजतन मैक्रो (Macro) डायलॉग बॉक्स दिखाई देगा।
• RemoveLinks चुनें और रन (Run) दबाएं।

• इस प्रकार यह एक नई वर्कशीट लौटाएगा।
• वहां आप आउटकम (outcome) में सोर्स अनअवेलेबल (Source unavailable) देखेंगे।

• उसी समय आपको उसी वर्कशीट में एक चेतावनी डायलॉग बॉक्स मिलेगा।
• OK दबाएं।

• अंत में टूटे हुए लिंक्स समाप्त हो जाएंगे।

और पढ़ें: सोर्स नहीं मिलने पर एक्सेल में लिंक्स कैसे तोड़ें (4 तरीके)

3. नेम्ड रेंज से टूटे हुए लिंक्स हटाना

फिर से नेम्ड रेंज में टूटे हुए लिंक्स हो सकते हैं। उन लिंक्स को मिटाने के लिए नीचे दी गई प्रक्रिया का पालन करें।

चरण:

• सबसे पहले फॉर्मूला टैब (Formulas tab) पर जाएं।
• फिर डिफाइंड नेम्स (Defined Names) ड्रॉप-डाउन चुनें और नेम मैनेजर (Name Manager) चुनें।

• नेम मैनेजर (Name Manager) डायलॉग बॉक्स दिखाई देगा।
• टूटे हुए लिंक को चुनें।
• उसके बाद डिलीट (Delete) दबाएं।

• इस तरह हम टूटे हुए लिंक्स को समाप्त कर सकते हैं।

और पढ़ें: एक्सेल में टूटे हुए लिंक्स कैसे खोजें (4 त्वरित तरीके)

निष्कर्ष

इस प्रकार आप उपरोक्त वर्णित तरीकों का पालन करके एक्सेल में टूटे हुए लिंक्स हटा (Remove Broken Links in Excel) पाएंगे। उनका उपयोग करते रहें और हमें बताएं यदि आपके पास कार्य करने के अधिक तरीके हैं। अधिक ऐसे आर्टिकल्स के लिए एक्सेलडेमि (ExcelDemy) वेबसाइट फॉलो करें। कमेंट सेक्शन में कमेंट्स, सुझाव या प्रश्न छोड़ना न भूलें यदि आपके पास कोई है।

संबंधित आर्टिकल्स

• फाइल खोलने से पहले एक्सेल में लिंक्स कैसे तोड़ें (आसान चरणों के साथ)
• मेरे एक्सेल लिंक्स क्यों टूटते रहते हैं? (समाधान के साथ 3 कारण)
• एक्सेल में टूटे हुए हाइपरलिंक्स कैसे ठीक करें (5 तरीके)
• [ठीक किया गया!] एक्सेल में ब्रेक लिंक्स काम नहीं कर रहा (7 समाधान)
• एक्सेल में लिंक्स तोड़ें और मान रखें (3 आसान तरीके)