重新创建超链接，或创建网络超链接VBA excel

Question

我有两张。 在工作表（sheet1）的其中一个中，我有1个超链接，其文件地址\\ sii \\ picture \\ as.jpg超链接被命名为“ LINK”。 我需要重新创建没有“格式”（背景颜色及其任何一种）的超链接。 我需要使用VBA进行此操作。

当我尝试这个我得到一个错误

Localization = Sheets("Sheet1").Range("A1").Hyperlinks(1).Address

Sheets("Sheet2").Hyperlinks.Add Anchor:=Sheets("sheet2").Cells(2, 2), Address:=Localization, TextToDisplay:="LINK"

---

如果我做类似的事情

sheets("Sheet1").select

range (Cells(1,1)).select

SELECTION.Copy

sheets("Sheet2").select

range (Cells(1,1)).select

Sheets("Sheet2").Paste

我得到了很好的hiperlink，但是此hiperlink具有格式化的背景以及第一张工作表中的所有内容，并且我的屏幕闪烁了，因为excel在sheet1和sheet2之间跳转

Answer 1

这应该为您工作。 您可能需要修改它以适合您现有的代码

Sub Main()

Dim rngDest As Range
Dim rngSource As Range
Dim wkshtSource As Worksheet
Dim wkshtDest As Worksheet
Dim urlSource As String

    ' Set Worksheet and Range variables for easy reference
    Set wkshtSource = ActiveWorkbook.Sheets("Sheet1")
    Set wkshtDest = ActiveWorkbook.Sheets("Sheet2")
    Set rngSource = wkshtSource.Cells(1, 1)
    Set rngDest = wkshtDest.Cells(2, 2)
    'Gets the address of the hyperlink to copy
    urlSource = rngSource.Hyperlinks(1).Address

    'Creates Hyperlink on second page
    rngDest.Hyperlinks.Add Anchor:=rngDest, Address:=urlSource, TextToDisplay:="Link"

End