Сохранение таблицы Excel в формате PDF с одновременным обновлением информации

Question

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

У меня есть выходной лист, который извлекает информацию из других листов в зависимости от номера, который введен в мою ячейку D2. (каждое число связано с набором информации, и существует около 500 наборов, поэтому мне нужно 500 PDF-файлов).

Мне нужно создать макрос, который повторяет эти шаги каждый раз:

• Введите номер из списка в моей ячейке D2 (чтобы обновлялась информация)
• Сохраняет выходной лист в формате PDF с именем файла с номером в моей ячейке D2
• Повторяет процесс для каждого числа в списке

Я видел некоторый код для создания макроса для сохранения листов в формате PDF, но я борюсь с кодом, чтобы повторить процесс сотни раз.

Кто-нибудь работал над чем-то похожим или есть идеи? Большое вам спасибо!

Answer 1

Это уже начало:

Dim pdf_number As Range

For Each pdf_number In Sheets("your_sheet").Range("range_with_your_pdf_numbers")

    'change value in D2 based on your number
    Sheets("output").Range("D2") = pdf_number.Value 

    'This should refresh your output sheet
    Application.Calculate

    '... Your code to save you pdf ...

Next

По сути, это будет go через диапазон чисел (... которые вы должны определить где-то, например на другом листе - я пропускаю информацию знать, где / если у вас есть эти номера), и обновить ячейку D2 для каждого из этих номеров. Затем вы можете делать то, что вы хотите внутри этого l oop, например, сохранить его в формате PDF. Вы также можете использовать «pdf_number.Value» для генерации вашего pdf-файла.

Надеюсь, это поможет!