excel dosya bağlantılarını kaldırma

[mekemaloglu]

Merhaba;
Arkadaşlar bir dosyaya bağlantı kurdum. Ancak bağlatıyı kesmek istiyorum Düzen Bağlanılar menüsündeki bağlatıyı kes menüsü aktif değil. Bağlantı yolu doğru olduğu halde dosyasını da bulamıyor.Lütfn yardım.

 

[csagdan]

Bağlantı yapılan dosya silinmiş yada ismi değiştirilmiş olabilir. Eğer böyle bir durum yoksa bağlantı yapılan dosyayla birlikte iki dosyayı aynı anda açarsanız ilgili menü aktifleşecektir.

 

[mekemaloglu]

Başvuru yolu doğru!

Aşağıdaki Kodu yazarak belirtilen dosayayı açıyor ancak run-time eror "9" hatası veriyor debug düğmesine bastığımda Workbooks("TAKDİR VE UZLAŞMA KOMİSYONU İLE İLGİLİ TÜM BELGELER").Activate satırını sarı gösteriyor. Bu kodu başka dosyalara uyguladğımda herhangi bir hata yok. Ve sadece TAKDİR VE UZLAŞMA KOMİSYONU İLE İLGİLİ TÜM BELGELER dosyasında hata veriyor. Modülü sildim yeniden ekledim olmadı. Bağlantıları düzenle mnüsündeki işlevlerin çoğu çalışmıyor. Lütfen yarım. Sayılar.
Sub auto_open()
Workbooks.Open Filename:="C:\Documents and Settings\TAHAKKUK\Belgelerim\EXEL BELGELERİ\OTOMATİK BELGELER\VERGİ MÜKELLEFİ LİSTESİ VERİ TABANI.xls", UpdateLinks:=3
Workbooks("TAKDİR VE UZLAŞMA KOMİSYONU İLE İLGİLİ TÜM BELGELER").Activate
End Sub

 

[Levent Menteşoğlu]

Aşağıdaki kodu çalıştırırsanız, dosyanızdaki tüm bağlantıları kaldırır.

Sub linksil()
For Each Link In ActiveWorkbook.LinkSources
ActiveWorkbook.BreakLink Name:=Link, Type:=xlLinkTypeExcelLinks
Next
End Sub

 

[mekemaloglu]

Yazılan Kod Kaldırmadı

Sayın Leventm;

İlginize öncelikle teşekkür ederim. Yazdığınız kod, bağlantılar menüsünü aktif hale getirdi ancak bağlantı kes dediğimde bu işlemi gerçekleştirmiyor. Bu nedenle bu dosyadaki hata mesajı devam ediyor. saygılar.

 

[hsayar]

teşekkürler ....