将超文本链接从工作簿复制到工作簿

Question

我基本上将第一个工作簿中包含的数据导出到第二个工作簿，除了超文本链接之外它工作正常。

我以两种方式导出数据：

第一种方法是使用包含要导出的数据的数组：

For m = 5 To 5 + k - 1
    openExport.Worksheets("Ind").Cells(lastrow + 2, m).Value = headerExportArray(m - 5)
Next m

第二种方法是直接从工作簿到工作簿：

newWorkBook1.Worksheets("Feuil1").Cells(1, i + 5 + k) = OldWorkbook.Worksheets("Valeurs").Cells(15, i + 2)

所以我想知道如何使用上述两种方法导出超文本链接。

Answer 1

您可以通过Hyperlinks的{​​{1}}集合访问超链接文字和地址。例如，如果要访问链接的地址，可以调用：

Range

复制超链接只需要从原始链接中提取所需的属性，并使用Range.Hyperlinks.Add将新的属性添加到目标范围。