Excel VBA-如何制作超链接匹配文件并打开

Question

好的，这是在两个工作簿之间。第一个（订单）将数据复制到日志（第二个工作簿）。在此过程中，我用一些数据填充了一些单元格，令人震惊！但其中仅包含刚创建的pdf文件名。

我一直运行这段代码，并将数据设置为超级链接，但是超级链接不起作用。它只是说无法打开指定的文件。我知道我的路径是正确的，并且工作表中的文件名是正确的，但是我不明白为什么这不能让我超链接到文件。

非常感谢您的帮助。

Sub CreateHyperlink()
Application.ScreenUpdating = False

Sheet1.Select
Dim c
Dim FolderName
Range("G2").Select
Range(Selection, Selection.End(xlDown)).Select
FolderName = "H:\AMENITY\PDF\"
For Each c In Selection

ActiveSheet.Hyperlinks.Add Anchor:=c, Address:= _
FolderName & c.Value, TextToDisplay:=c.Value

Next c

Application.ScreenUpdating = True
End Sub