excel 2010 编辑多个超链接 VBA、宏答案

【问题标题】：excel 2010 edit multiple hyperlinks VBA, macroexcel 2010 编辑多个超链接 VBA、宏
【发布时间】：2015-09-11 12:24:19
【问题描述】：

...一个简单的问题（对于某些人来说：）

目标是改变一系列单元格中的部分超链接

工作表“进度”
范围'd9:d38'

现在超链接（rc001 在 D9；rc002 在 D10 等等）

..\..\..\..\..\..\..\AppData\Roaming\Microsoft\Excel\VNHS2_Reconciliation_report_RC001.xlsx

超链接

VNHS2_Reconciliation_report_RC001.xlsx (rc001 increasing by 1 up to 030)

有人吗？漂亮请:)

【问题讨论】：

你的意思是在同一个单元格中...???

标签： excel vba hyperlink

【解决方案1】：

这是一个带有基本字符串替换的简单循环。我定义了一个基本的超链接地址：

Const sFile As String = "..\..\..\..\..\..\..\AppData\Roaming\Microsoft\Excel\VNHS2_Reconciliation_report_RC000.xlsx"

然后使用Replace方法将每个单元格的000部分更改为001、002等。

Sub Foo()
Const sFile As String = "..\..\..\..\..\..\..\AppData\Roaming\Microsoft\Excel\VNHS2_Reconciliation_report_RC000.xlsx"
Dim rngLinks As Range: Set rngLinks = Range("D9:D38")
Dim cl As Range
Dim i As Integer

For Each cl In rngLinks
    i = i + 1
    cl.Hyperlinks.Add cl, Replace(sFile, "000", Format(i, "00#"))

Next



End Sub

【讨论】：

好东西，大卫。我还需要将链接的第一部分“..\..\..\..\..\..\..\AppData\Roaming\Microsoft\Excel\”更改为例如“..Design\Reconciliation_reports\2 内部项目可交付成果”如何处理？
所有链接都在同一个目录中吗？如果是这样，您只需更新行 Const sFile As String... 以反映目录路径。确保包含尾部反斜杠。