將工作簿中的超文本鏈接複製到工作簿

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

您可以通過Range的Hyperlinks集合來訪問超鏈接文本和地址。例如，如果您要訪問的鏈接的地址，你可以撥打：

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

複製的超鏈接，然後簡單地變成從原路段提取所需要的屬性，並添加一個新的目標的問題範圍使用Range.Hyperlinks.Add。