Excel VBA超链接到另一个工作簿，并将值输入到打开的工作簿中

Question

我正在努力帮助我的父亲在他的制造业务中建立订单和工作管理“系统”。

为此，我有一本“订单”工作簿，其中有一个工作表，其中包含一张客户订单表，其中每一行都是不同的订单。 每行包含每个订单的所有关键信息（订单号，数量，产品，到期日，打开相关工作表的超链接）。

我已经为他所有的主要产品和定期订购的产品写了“作业单”。 这些工作表包含在单独的工作簿中。

我希望用户能够打开中央订单列表，单击他们需要生产所订购产品的工作表的链接，然后该工作表将自动填充包含在目标行中的关键订单信息。单击超链接。

我一直在尝试编写私有子项（使用workbook_followHyperlink）未成功。 我一直在尝试使用超链接。地址方法来捕获正在打开的工作簿的名称，然后使用该地址作为文件名来指示应在何处输入订单信息。

我在编写VBA代码方面做得更好，但是我仍然需要一个模板或“线索”来开始编写自己的东西。 我已经做了大量的Google搜索来查找示例，但是我遇到的唯一示例都知道目标工作簿的名称，或者可以引用同一工作簿中工作表之间的超链接。

我什至只对我需要入门的内容感到满意。

Answer 1

Excel跟随超链接（并因此打开了工作簿中定义的工作簿）后，将触发Worksheet_FollowHyperlink事件。随之而来的是ActiveWorkbook是超链接定义的工作簿。因此可以使用它。但是，如果您希望实际名称来自超链接

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim x As Long
Dim s As String
Dim answer As String
For x = Len(Target.Address) To 1 Step -1
     s = Mid(Target.Address, x, 1)
     If s = "\" Then Exit For
     answer = s & answer
Next x
MsgBox answer

End Sub