如何将子文件夹中存在的所有pdf文件超链接到excel？

Question

我正在尝试将B列中的所有字段（下面给出的图片）超链接到文件夹中的相应内容（图片也提供）。

我意识到我手动这样做很愚蠢，这需要很长时间才能完成 有更好的方法可以自动或更轻松地链接它们吗？

我意识到我可以在VBA的帮助下完成它，但我不知道该怎么做。

  

这是我的excel列B在超链接之前的样子：

  

所以这是我在手动添加超链接之后得到的   B栏。

  

这是文件夹（文件夹名称为2016），其中包含子文件夹（图像中的文件夹）和每个子文件夹   子文件夹有一个pdf文件和一个word文件。

我需要将列b中的内容超链接（它们尚未链接到pdf文件到此文件夹“2016”中的各自子文件夹（您可以看到地址栏）。

  

以下是“2016”子文件夹中的pdf和word文件。

所以基本上你看到的是，在B列中，最后的数字是串联的。我希望它们超链接到这些子文件夹中的pdf文件。

如果仔细观察，子文件夹的名称很大（包括括号内容），而我的列B则包含子文件夹的名称，不包括括号部分。
所以基本上就像匹配序列号和超链接子文件夹中的pdf文件一样。

修改

  

我在单元格e1512上使用=HYPERLINK("\\qatargas.com.qa\doc\Admin\Al_Khor_Community\Alwaha_Club_Admin_Office\Comments & Suggestion Response\2017\"&B1512&" ("&C1512&" "&D1512&")\"&B1512&" ("&C1512&E1510" "&D1512&")"&".pdf";B1512)尝试了以下操作。

  

我收到此错误

Answer 1

插入新列“C”（或任何地方）并输入（例如）单元格Sub RemoveDuplicats() Dim Harel As Workbook Dim SAP As Workbook Dim Path As String Dim Found As String Path = ThisWorkbook.Path Found = Dir(Path & "*NAME*.xlsx") 'open SAP report If Found <> "" Then Set SAP = Workbooks.Open(Path & Found) End If End Sub ：

C1210

Answer 2

例如在第1512行中：你想要一个路径“[...] \ qatargas.com.qa \ doc \ Admin [pdf的pdf（这个pdf的具体名称是什么？）的超链接......] \ 2016 \ AKC-CS-17-0124（QG 3739）“。正确？

然后在单元格e1512中写下以下公式（如果pdf的名称始终相同）：

=HYPERLINK("[...]\qatargas.com.qa\doc\Admin\[...]\2016\"&B1512&" ("&C1512&" "&D1512&")\"&"<nameofyourpdf>";B1512)

你必须使用你的路径（我使用[...]删除部分路径）你必须使用你的pdf名称，这与你说的一样。

或者，如果pdf的名称与文件夹的名称相同：

=HYPERLINK("[...]\qatargas.com.qa\doc\Admin\[...]\2016\"&B1512&" ("&C1512&" "&D1512&")\"&B1512&" ("&C1512&" "&D1512&")"&".pdf";B1512)