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

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

我以两种方式导出数据：

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

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

您可以通过您的Range的Hyperlinks集合访问超链接文本和地址。 例如，如果你想访问链接的地址，你可以调用：

 Cells(x,y).Hyperlinks(1).Address 

复制超链接就变成了从原始链接中提取所需的属性，并使用Range.Hyperlinks.Add向目标范围添加新链接的问题 。