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