VBA для создания нескольких PDF-файлов

Question

Имеют формат для выставления счетов для партнера (нет партнера 176) и хотят создать несколько PDF-файлов с другим именем партнера (имена партнеров упоминаются в таблице имен партнеров от A1 до A176). Тем не менее, я создал цикл, который помогает мне создать другой PDF, но не может применить диапазон имен из другого листа при сохранении PDF.

Sub creatingloopforprint() 
  i = 1 
  Do While i < 5 
    Worksheets("Invoice format").Activate Range("M14").Value = i 
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True 
    i = i + 1 
  Loop 
End Sub

Answer 1

Это сохранит файл Excel в формате PDF с использованием логики имен "A" & I.

Sub creatingloopforprint()
    Dim i As Integer

    i = 1

    For i = 1 To 176:
        Worksheets("Invoice format").Activate Range("M14").Value = i
        ActiveWindow.SelectedSheets.ExportAsFixedFormat Type:=xlTypePDF, Filename:="A" & i

    Next i

End Sub

Отсюда можно при необходимости обновлять сохраненные данные и распечатки.