vba - 如何将超链接字符串从一个工作簿传递到另一个工作簿

Question

我有两个工作簿“UI.xlsm”和“Gas_Insulated_MV_Circuit.xlsm”，在第一个工作簿(UI.xlsm)中，我在特定列中维护了一个超链接列表，单击该链接会将我带到另一个工作簿。

任务是从“UI.xlsm”工作簿中捕获单击的超链接的文本，我必须在“Gas_Insulated_MV_Circuit.xlsm”中使用相同的值

下面是来自 UI.xlsm 工作簿的代码，我在其中捕获单击的超链接单元格文本并将其存储为字符串

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    Dim BR as String
    BR = Target.Range.Text  'Here i'm storing the clicked cell text 
End Sub

现在我需要在另一个工作簿“Gas_Insulated_MV_Circuit.xlsm”中使用 BR 字符串值

Public BR as String   ' I have declared BR as a public variable
  Private Sub CommandButton27_Click()
  Dim WbUI as Workbook
  Dim WsUI as Worksheet
  Dim File1 as string


  Set WbUI = Workbooks ("UI.xlsm")
  Set WsUI = WbUI.Sheets("Sheet1")

  File1 = BR ' I want something like this, where i can assign BR value from                        
                UI.xlsm workbook to File 1 of the current workbook

End Sub

任何人都可以帮助我实现它。

Answer 1

我在 中创建了一个定义的名称(例如 myBR ) UI.xlsm 带有 =Sheet1!A1 的工作簿作为 指:。使用定义的名称“种子”，我更改了您的 Worksheet.FollowHyperlink事件宏到，

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
        ThisWorkbook.Names("myBR").RefersToR1C1 = _
          Chr(61) & Chr(34) & Target.Range.Text & Chr(34)
End Sub

在 Gas_Insulated_MV_Circuit.xlsm 工作簿，我可以检索最近点击的超链接的单元格文本(即 TextToDisplay 属性)，

=UI.xlsm!myBR

两个工作簿都打开后，单元格值会立即发生变化。在 VBA 中分配给字符串或整数变量应该没有问题。