复制链接地址

Question

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

使用“录制宏”选项，我得到这个：

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

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

正如你看到的，我的代码实际上是复制链接的文本，而不是它的地址。

也许，应该有类似

Selection.Range.Hyperlinks(1).Address 

，但它并不在所有的工作。

如何使其正常工作？

Answer 1

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

插入以下库：

工具 - >引用 - > Microsoft窗体2.0对象库

，并使用下面的代码：

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

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