Link Refresh Kodu

[baydeniro]

Merhaba Arkadaşlar,

Aşağıdaki makro kodu ile Excel dosyasında bulunan diğer Excel dosyalarının bağlantı adreslerini topluca değiştirmek istiyorum. Forumdan bir kod buldum ama bende çalışmadı. Koddaki hata hakkında fikri olan var mı ?

Sub Makro1()
PAST = "C:\Users\Desktop\GOLDEN\BAK.xlsm"
FRESH = "C:\Users\Desktop\GOLDEN\NET.xlsm"
For Each h In ActiveSheet.ChangeLink
h.Address = Replace(h.Address, PAST, FRESH)
Next
End Sub

 

[Ömer]

Merhaba,

Bu şekilde deneyiniz.

Sub Makro1()
    yeni_link = "C:\Users\Desktop\GOLDEN\NET.xlsm"
    For Each link In ActiveWorkbook.LinkSources(xlExcelLinks)
        ActiveWorkbook.ChangeLink Name:=link, NewName:=yeni_link, Type:=xlExcelLinks
    Next
End Sub

 

[baydeniro]

Merhaba,

Bu şekilde deneyiniz.

Sub Makro1()
    yeni_link = "C:\Users\Desktop\GOLDEN\NET.xlsm"
    For Each link In ActiveWorkbook.LinkSources(xlExcelLinks)
        ActiveWorkbook.ChangeLink Name:=link, NewName:=yeni_link, Type:=xlExcelLinks
    Next
End Sub

Ömer Üstad çok teşekkür ediyorum. Harika oldu. Bu kodu Power Point içinde çalıştırmak mümkün müdür

 

[Ömer]

Bu konuda bilgim yok, araştırmak gerekir.

Linki inceleyiniz.

Edit links in PowerPoint using VBA - Excel Off The Grid

In a previous post, we considered how to link Excel files to PowerPoint presentations. This can be a significant time saver as the PowerPoint presentation

exceloffthegrid.com

.

 

[baydeniro]

Bu konuda bilgim yok, araştırmak gerekir.

Linki inceleyiniz.

Edit links in PowerPoint using VBA - Excel Off The Grid

In a previous post, we considered how to link Excel files to PowerPoint presentations. This can be a significant time saver as the PowerPoint presentation

exceloffthegrid.com

.

Ömer Üstadım paylaştığınız link çok iyi. Kodu uyarlayıp, deneyeceğim. Çok çok teşekkür ederim, sağlıcakla kalın