主题：链接更.新

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:汇总单表201702.xls

希望通过表中A2单元格的日期改变从而改变链接更新

每个单元格都要公式置换，工程大，有没有同EXCEL表中的编辑链接一样的功能，统一日期置换公式？

On Error Resume Next Dim link As Hyperlink, Spcell, Cell As Range For Each sht In Sheets    For Each link In sht.Hyperlinks       link.Delete    Next link    Set Spcell = sht.Cells.SpecialCells(xlCellTypeFormulas)    If Err.Number = 1004 Then GoTo Err    For Each Cell In Spcell          If Cell.Formula Like "*201702*" Then Cell.Value = “201703”    Next Err: Next Set Spcell = Nothing End Sub 会造成更新的错误提示

如何对工作簿的所有工作表相同链接同时替换？

=IF(MONTH($B$2)=1,E28,E28-'E:\快盘\excel2017\[汇总单表201701.xls]分户快报'!E28)

="'E:\快盘\excel2017\[集团汇总201702.xls]分户快报'!Z"&ROWS(5)

老师，链接的公式是不行的，还有其他什么办法呢？