Будет ли возможно и эффективно вставить объект около 1000 PDF-файлов в документ Excel или он начнет работать очень медленно / другие проблемы?

1 ответ1

0

Я не могу придумать причину, по которой Excel должен изменить путь к файлу. Если вы хотите быстрее обновить гиперссылки, вы можете использовать что-то вроде этого.

Вы указываете каталог файлов, и он предполагает, что все значения в столбце A являются именами pdf (без .pdf в конце), и добавляет все гиперссылки.

Sub add_hypers()

Dim last As Integer
Dim x As Integer
Dim name As String
Dim directory As String
Dim file As String

directory = "C:\"

last = Data.Range("A65536").End(xlUp).Row

For x = last To 2 Step -1
    name = Data.Range("A" & x).Value
    file = directory & name & ".pdf"
    ActiveSheet.Hyperlinks.Add Anchor:=Data.Range("A" & x), Address:=file
Next


End Sub

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .