...kapat
' Dış bağlantıları kır
Dim link As Variant
For Each link In newWb.LinkSources(xlLinkTypeExcelLinks)
newWb.BreakLink Name:=link, Type:=xlLinkTypeExcelLinks
Next link
' Yeni çalışma kitabını kaydet ve kapat
'filePath = ThisWorkbook.Path & "\" &...
...' Dosya içindeki tüm bağlantıları kopar
For Each lnk In ActiveWorkbook.LinkSources
ActiveWorkbook.BreakLink Name:=lnk, Type:=xlLinkTypeExcelLinks
Next lnk
End Sub
Bu kodu çalıştırdım yenidosyada da yine bağlantılar geldi. Veri doğrulama ile çalisiyorum. Tüm sayfası seçip veri...
..."YeniDosya.xlsx" adıyla kaydet
ActiveWorkbook.SaveAs "C:\YeniDosya.xlsx", FileFormat:=xlOpenXMLWorkbook
' Dosya içindeki tüm bağlantıları kopar
For Each lnk In ActiveWorkbook.LinkSources
ActiveWorkbook.BreakLink Name:=lnk, Type:=xlLinkTypeExcelLinks
Next lnk
End Sub
Öncelikle Müslümanların ve üyelerin geçmiş Ramazan Bayramı mübarek olsun.
Teşekkürler sorun çözüldü.
Geç cevap verdiğim için kusura bakmayın. Bayram nedeni ile işyeri kapalı olduğu için ancak bugün cevap verebildim.
...If Not IsEmpty(Wb.LinkSources(xlExcelLinks)) Then
For Each File_Link In Wb.LinkSources(xlExcelLinks)
Wb.BreakLink File_Link, xlLinkTypeExcelLinks
Next
End If
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=File_Path & File_Name, _...
Belki yardımcı olur deneyin.
Sub BreakLinks()
'Updateby20140318
Dim wb As Workbook
Set wb = Application.ActiveWorkbook
If Not IsEmpty(wb.LinkSources(xlExcelLinks)) Then
For Each link In wb.LinkSources(xlExcelLinks)
wb.BreakLink link, xlLinkTypeExcelLinks
Next link
End If
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ı.
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
...'Set wb = Application.ActiveWorkbook
If Not IsEmpty(wb.LinkSources(xlExcelLinks)) Then
For Each link In wb.LinkSources(xlExcelLinks)
wb.BreakLink link, xlLinkTypeExcelLinks
Next link
'bu kod linkleri kesiyor.
End If
ActiveWorkbook.SaveAs belge
ActiveWorkbook.Close
Next
For sat = 1 To...
...= Application.ActiveWorkbook
If Not IsEmpty(wb.LinkSources(xlExcelLinks)) Then
For Each link In wb.LinkSources(xlExcelLinks)
wb.BreakLink link, xlLinkTypeExcelLinks
Next link
'bu kod linkleri kesiyor.
End If
ActiveWorkbook.SaveAs belge...
...Filename = Dir()
Dim wb As Workbook
Set wb = Application.ActiveWorkbook
If Not IsEmpty(wb.LinkSources(xlExcelLinks)) Then
For Each link In wb.LinkSources(xlExcelLinks)
wb.BreakLink link, xlLinkTypeExcelLinks
Next link
End If
Loop
bekle = ""
MsgBox "Birleştirme Tamamlandı", vbInformation
End Sub
...Filename = Dir()
Dim wb As Workbook
Set wb = Application.ActiveWorkbook
If Not IsEmpty(wb.LinkSources(xlExcelLinks)) Then
For Each link In wb.LinkSources(xlExcelLinks)
wb.BreakLink link, xlLinkTypeExcelLinks
Next link
End If
Loop
bekle = ""
MsgBox "Birleştirme Tamamlandı", vbInformation
End Sub
...= Application.ActiveWorkbook
If Not IsEmpty(wb.LinkSources(xlExcelLinks)) Then
For Each link In wb.LinkSources(xlExcelLinks)
wb.BreakLink link, xlLinkTypeExcelLinks
Next link
End If
Loop
bekle = ""
MsgBox "Birleştirme Tamamlandı", vbInformation
End Sub
hem fazlalık kod...
...If Not IsEmpty(K1.LinkSources(xlExcelLinks)) Then
For Each Link In K1.LinkSources(xlExcelLinks)
K1.BreakLink Link, xlLinkTypeExcelLinks
Next
End If
ActiveSheet.Shapes.Range(Array("CommandButton1")).Delete
Bul =...
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.