Bağlantı kes ve farklı kaydet..

[Özgür DALDABAN]

Slm arkadaşlar.

Düğmeye basıldığında;
-Aktif sayfadaki bağlantıyı kesip (başka bir excel ile veri bağlantısı var)
-A1 hücresindeki değeri dosya ismi alarak
-Masaüstündeki gönderilenler klasörüne
-xlsx formatında kaydetmek istiyorum.
mümkün müdür?

YADA

Aşağıdaki koda sadece bağlantıyı kes komutu ekleyebilir miyiz?

Sub Otomatik_Kaydet()
ActiveWorkbook.saveas Filename:= _
"C:\Users\odaldaban\Documents\Gönderilenler\" & ActiveSheet.Range("A1").Text & ".xlsx", FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False

End Sub

Saygılarımla ..

 

[YUSUF44]

Aşağıdaki kodu makro kaydet yoluyla elde ettim. Bu kod kod içinde belirtilen dosyayla olan bağlantıları kesiyor. Siz kendinize göre düzenleyin:

    ActiveWorkbook.BreakLink Name:="C:\Users\tr\Downloads\DENEME 4.xlsx", Type _
        :=xlExcelLinks

 

[Özgür DALDABAN]

Teşekkür ederim...

 

[zaruri]

Anabilgisayarda bulunan ana dosyayı; terminallerde farklı kaydet komutu ile birlikte yapılan "Bağlantıyı kesme" makrosu işe yarıyor.
Fakat "aynı makro" ana bilgisayarda çalıştırıldığında doğal olarak yolunu arıyor ve bulamıyor.

"Farklı kaydedilen" dosyayı "bağlantı" olmadan kaydetmek mümkün değil mi?

 

[maliex]

chatgbt

Sub FarklıKaydetVeBağlantılarıKopar()
    Dim lnk As Variant
   
    ' Dosyayı farklı bir konumda "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

 

[zaruri]

İlginize teşekkür ederim gayet güzel çalıştı.