Я работаю над получением кода, который экспортирует PDF-файлы и создает на них гиперссылки. Короче у меня будет несколько листов. Один из них будет ссылкой на PDF-версию других листов.
Я работаю над созданием гиперссылок, но у меня возникают ошибки. Каждое руководство, которое я вижу, использует фиксированные значения для создания гиперссылок, поэтому все мои попытки сделать их с помощью переменных терпели неудачу.
Вот код, который я пробовал. Закомментированный раздел был моей первой попыткой, а с l oop - второй.
EDIT: первая попытка заполняет ячейку = гиперссылкой (CONCATENATE (link.value, own.value), own.value), а не значениями. Вторая попытка
Вторая попытка - это ошибка времени выполнения «1004»: выделение определяемой приложением или объектом ошибки
.Hyperlinks.Add Anchor:=main, _
Address:=Worksheets("Control Sheet").Range("a1").Value, _
TestToDisplay:=own
Раздел кода.
Значение для контрольного листа a1 равно C: \ Users \ BRL \ Desktop \ do c лист утверждения \ File import test \ в настоящее время я тестирую файл. Но я планирую переместить это в наш каталог, когда он будет заблокирован. Я не хотел усложнять его еще больше, пока он не заработал, но это должен быть C: \ Users \ BRL \ Desktop \ do c лист утверждения \ File import test ** own **** own.value. pdf **
own - это имя листа, который будет экспортирован в формате PDF (это еще не придумано)
Sub Makenewsheet(own As Range)
Application.ScreenUpdating = False
Sheets("Template").Select
Sheets("Template").Copy After:=Sheets(4)
ActiveSheet.NAME = own.Value
Worksheets("Main Page").Activate
Dim link As String
link = Worksheets("Control Sheet").Cells(1, 1).Value
MsgBox link
Dim mainpage As Range
Dim main As Range
Set mainpage = Worksheets("Main Page").Range("a5:a22")
For Each main In mainpage
If IsEmpty(main) = True Then
'main.Formula = "=hyperlink(CONCATENATE(link.value,own.value),own.value)"
With Worksheets(1)
.Hyperlinks.Add Anchor:=main, _
Address:=Worksheets("Control Sheet").Range("a1").Value, _
TestToDisplay:=own
End With
GoTo maingame:
End If
Next main
maingame:
Worksheets("Control Sheet").Activate
Application.ScreenUpdating = True
End Sub