Excel VBA表单提交后在对应供应商Sheet创建PDF超链接

现有逻辑与需求说明 #

• 工具原有流程：入库评估表单录入供应商名称、送货单号（Lieferschein_Nr）等必填信息，提交确认后数据自动写入对应供应商专属评估工作表；之后表单以送货单号为文件名导出PDF，存储到指定路径D:\Tool Supplier Evaluation\；最后表单自动重置清空。
• 改造目标：将原代码中写入送货单号普通文本的逻辑ActiveCell.value = Lieferschein_Nr，替换为在目标单元格生成可点击超链接，点击可直接打开对应关联的PDF文件，超链接显示文本为送货单号。
• 改造约束：保留原有代码所有变量名、德语字段标识、现有VBA业务逻辑，仅修正超链接实现部分的错误。

修复方案 #

原有超链接代码运行失败，基本是Hyperlinks.Add方法参数传错、PDF完整路径拼接错误导致，直接将原有的ActiveCell.value = Lieferschein_Nr行替换为以下代码即可：

' 拼接对应PDF的完整存储路径，确保和PDF导出时的文件名生成规则完全一致
Dim pdfFullPath As String
pdfFullPath = "D:\Tool Supplier Evaluation\" & Lieferschein_Nr & ".pdf"

' 给目标单元格添加超链接，所有原有业务逻辑、变量名保持不变
ActiveSheet.Hyperlinks.Add _
    Anchor:=ActiveCell, _
    Address:=pdfFullPath, _
    TextToDisplay:=Lieferschein_Nr

排错提示：如果点击超链接提示找不到文件，优先检查pdfFullPath的拼接结果和你实际导出的PDF文件名、存储路径是否完全匹配，比如部分逻辑会在文件名里加供应商名称、入库日期前缀，对应调整路径拼接规则即可，不需要改动其他业务代码。

内容的提问来源于stack exchange，提问作者Tom