复制链接的地址

Question

如何将超链接的地址复制到剪贴板？

使用＆＃34;记录宏＆＃34;选项，我明白了：

Sub CopyHyperlink()
    Selection.Range.Hyperlinks(1).Range.Fields(1).Result.Select
    Selection.Copy
End Sub

但是，这并没有给我想要的结果。查看图片以比较实际和期望的结果：

如您所见，我的代码实际上是复制链接的文字，而不是它的地址。

可能应该有像

这样的东西

Selection.Range.Hyperlinks(1).Address

但它根本不起作用。

如何让它正常工作？

Answer 1

假设您使用Selection，因为您使用宏录制器录制了它，您应该根据您的工作簿进行更改。

插入以下库：

  

工具 - ＆gt;参考文献 - ＆gt; Microsoft Forms 2.0对象库

并使用以下代码：

Sub CopyHyperlink()
Dim clipboard As MSForms.DataObject
Set clipboard = New MSForms.DataObject

clipboard.SetText Selection.Hyperlinks(1).Address
clipboard.PutInClipboard
End Sub