Excel VBA 宏更改链接的名称

在宏图中的宏图 excel, 我需要为另一个子程序ME准备一个文件，每天执行。 此准备包括更改文件链接。 t-1 在文件上 t0.

我通常所做的代码是：


ActiveWorkbook.ChangeLink Name:= _

 "file path", NewName:=new_file_path, Type:=xlExcelLinks


我的问题现在是，对于这个特定的过程，必须将必须更改为新过程的文件的路径并不总是相同的，因此我需要一种自动化搜索当前链接以替换它们的方法。 我现在的文件的新路径是因为它是一个工作叶子，导致这个过程并打开这个文件，所以我所做的第一件事是


new_file_path = "C:\...."& ActiveWorkbook.Name & ".xlsm"


什么会帮助我，所以如果有一个替代所有链接到新的技巧，而不必说一个名字/旧链接的路径。 有人知道吗？

谢
2021-03-21 添加评论
分享

没有找到相关结果

    已邀请:

    小姐请别说爱

    赞同来自:

    更改所有链接 excel 在本书中，尝试执行以下步骤：


    Sub WbThs_ChangeLink_Excel//
    
 Dim wbTrg As Workbook
    
 Dim sLinkNew As String
    
 Dim aLinks As Variant, vLink As Variant
    

    
 sLinkNew = "@@VBA Links Replace - Target 3.xlsb" 'Change as required
    

    
 Set wbTrg = ThisWorkbook 'Change as required
    

    
 Rem Set array with all excel links
    
 aLinks = ActiveWorkbook.LinkSources/xlExcelLinks/
    

    
 Rem Replace each excel Link
    
 If Not IsEmpty/aLinks/ Then
    
 For Each vLink In aLinks
    
 wbTrg.ChangeLink Name:=vLink, NewName:=sLinkNew, Type:=xlExcelLinks
    

    
 Next: End If
    

    
 End Sub


    有关所用资源的详细信息，请参阅以下页面：

    https://msdn.microsoft.com/en- ... excel
    /

    https://msdn.microsoft.com/en- ... excel
    /

    https://msdn.microsoft.com/en- ... excel
    /
    2021-03-21 0 0
    分享
    为什么被折叠? 0 个回复被折叠

    要回复问题请先登录或注册

    Copyright © 2023, All Rights Reserved