Как автоматически в Excel сделать ссылки на файлы.

У меня есть документ Excel, и в столбце F у меня есть 6-значный номер.

На моем компьютере есть файл, содержащий файлы PDF с 6-значными именами. Как получить число, указанное в столбце F, для автоматической ссылки на правильный файл PDF?

ОТВЕТ:

Сделать это довольно просто в VBA, используя цикл. В цикле есть функция, которая добавляет переменную гиперссылку к указанному вами пути и расширению.

Надеюсь, приведенный ниже пример поможет. Я основываюсь на том факте, что мои PDF-файлы находятся на моем рабочем столе, но вы можете изменить файл на подходящий для вас путь, отредактировав значение переменной «desktop».

Sub Hyperlink()

'Create some variables
Dim desktop As String
Dim Reference As String

desktop = "C:\Users\Harrison.Clark\Desktop\"

'here you are declaring a variable (i)
Dim i As Integer
i = 2
'2 because row 1 is the header in this example




'here you are telling excel to loop until a blank cell in the 6th column is reached (6 because column F = 6)
Do While Cells(i, 6).Value <> ""




'Here we are setting the filename that will change on each loop
Reference = Cells(i, 6).Value


' now you set a hyperlink
ActiveSheet.Hyperlinks.Add Cells(i, 6), desktop + Reference + ".pdf"

'here you are just moving the loop onto the next row
i = i + 1

Loop


End Sub