Bağlantıları Kesemiyorum

[ywzyilmaz]

Merhaba

çalıştığım bir excell'de bağlantılı olduğu eski bir kaç excell var. Bağlantıları düzenle/bağlantıyı kes diyorum tamam diyorum. Ama dosyayı yeniden açtığımda yine aynı bağlantıların çalışmadığı hatasını alıyorum. Problemin kaynağı nedir?

 

[YUSUF44]

Formüller sekmesinde Ad yöneticisini kontrol edin. Orda başka dosyalara başvuran ad tanımlamaları olabilir.

 

[ywzyilmaz]

kontrol ettim. ad yöneticisi boş görünüyor.

 

[Leoncio]

Merhaba, çalışma kitabındaki modüle aşağıdaki kodları yapıştırın. Makroyu çalıştırarak deneyin.

Sub LinkedWB()​

Dim Ar As Variant​

Dim i As Long​

Ar = ActiveWorkbook.LinkSources​

For i = LBound(Ar) To UBound(Ar)​

Cells(i, 1) = Ar(i)​

Next i​

End Sub​

 

[ywzyilmaz]

Merhaba, çalışma kitabındaki modüle aşağıdaki kodları yapıştırın. Makroyu çalıştırarak deneyin.

Sub LinkedWB()​

Dim Ar As Variant​

Dim i As Long​

Ar = ActiveWorkbook.LinkSources​

For i = LBound(Ar) To UBound(Ar)​

Cells(i, 1) = Ar(i)​

Next i​

End Sub​

Bu kod bağlantıları listeliyor.

 

[EmrExcel16]

Merhaba birde aşağıdaki gibi denermisiniz..

Sub Test()
    Dim Baglanti
    On Error Resume Next
    For Each Baglanti In ActiveWorkbook.LinkSources(Type:=xlLinkTypeExcelLinks)
        ActiveWorkbook.BreakLink Name:=Baglanti, Type:=xlLinkTypeExcelLinks
    Next
End Sub

 

[ywzyilmaz]

Merhaba birde aşağıdaki gibi denermisiniz..

Sub Test()
    Dim Baglanti
    On Error Resume Next
    For Each Baglanti In ActiveWorkbook.LinkSources(Type:=xlLinkTypeExcelLinks)
        ActiveWorkbook.BreakLink Name:=Baglanti, Type:=xlLinkTypeExcelLinks
    Next
End Sub

sonuç değişmedi

şöyle bir şey buldum

ctrl+f .wl arattım tüm kitapta. bağlantısı olan satırları buldum. Bağlantısı olan hücreleri buldum ve sildim. sonuç yine aynı.

 

[uzmanamele]

Merhaba

Ad listesinde yer almayan bağlantılar da olabilir. Bu kodlar ile tanımlı adları silebilirsiniz.

Sub T_Ad_Sil()
Dim ONAY As Byte
On Error Resume Next
For Each adlar In ThisWorkbook.Names
    ONAY = MsgBox(adlar.Name & vbCrLf & adlar & vbCrLf & vbCrLf & _
    "Tanımlı Ad Silinsin mi?", vbInformation + vbYesNo)
    If ONAY = vbYes Then
        adlar.Delete
    ElseIf ONAY = vbNo Then
    End If
    Next
End Sub

Sub T_Ad_Sil_2()
On Error Resume Next
Dim ONAY As Byte
For Each adlar In ThisWorkbook.Names
    If (adlar.Name Like "*Print_Titles*" Or adlar.Name Like "*Print_Area*") Then GoTo 10
        adlar.Delete
    Next
End Sub

Kitapta nesneye atanmış bağlantılar da olabilir, ayrıca kontrol etmek gerekir.

 

[ywzyilmaz]

Merhaba

Ad listesinde yer almayan bağlantılar da olabilir. Bu kodlar ile tanımlı adları silebilirsiniz.

Sub T_Ad_Sil()
Dim ONAY As Byte
On Error Resume Next
For Each adlar In ThisWorkbook.Names
    ONAY = MsgBox(adlar.Name & vbCrLf & adlar & vbCrLf & vbCrLf & _
    "Tanımlı Ad Silinsin mi?", vbInformation + vbYesNo)
    If ONAY = vbYes Then
        adlar.Delete
    ElseIf ONAY = vbNo Then
    End If
    Next
End Sub

Sub T_Ad_Sil_2()
On Error Resume Next
Dim ONAY As Byte
For Each adlar In ThisWorkbook.Names
    If (adlar.Name Like "*Print_Titles*" Or adlar.Name Like "*Print_Area*") Then GoTo 10
        adlar.Delete
    Next
End Sub

Kitapta nesneye atanmış bağlantılar da olabilir, ayrıca kontrol etmek gerekir.

hayır işe yaramadı
hata verdiği bağlantıyı ve yolu doldurdum. açılışta hata vermiyor. fakat yine de bağlantıyı kaldıramıyorum.

 

[uzmanamele]

hayır işe yaramadı
hata verdiği bağlantıyı ve yolu doldurdum. açılışta hata vermiyor. fakat yine de bağlantıyı kaldıramıyorum.

Merhaba
Geçenlerde ben de aynı sorunla karşılaştım.
Vaktim olmadığı için üstelemedim, basit çözüm buldum.

Tüm çalışma sayfalarınızı kopyalayıp yeni bir kitaba aktarın, varsa makro modüllerinizi de yeni kitaba aktarın.
Kitabı kaydedip çıkın.
Açılışta sorun kalmayacaktır.

 

[uzmanamele]

Merhaba

Şunu da deneyebilirsiniz.
Veri / bağlantılar / bağlantıları düzenle / kaynağı değiştir / açılan pencerede kendi dosyanızı seçin