Excel: код VBA для просмотра списка в комбинированном списке и создания PDF для каждого. - PullRequest
Новая
       38

Excel: код VBA для просмотра списка в комбинированном списке и создания PDF для каждого.

0 голосов
/ 28 июня 2018

Я пытаюсь создать код VBA, который выбирает каждое имя одно за другим в ComboBox на моем листе. Связанная ячейка с ComboBox - «D5» (которые являются именами сотрудников). Однако диапазон ComboBox, в котором расположены имена (около 1700 имен), находится на другом листе в моей книге под названием «Лист1» в столбце С.

При выборе имени в ComboBox оно появляется в ячейке ссылки "D5". Значение в «D5» затем используется другими ячейками на рабочем листе и создает сводку для выбранного имени. Мне нужен макрос, который будет выбирать каждое имя одно за другим из ComboBox и сохранять в формате PDF.

Что такое код VBA, который я могу использовать, который будет проходить по каждому имени и сохранять его в формате PDF в качестве имени, выбранного из поля со списком, в эту папку C: \ Users \ SM \ Desktop \ ScorecardPDF?

1 Ответ

0 голосов
/ 28 июня 2018

Это мой окончательный код. Для тех, кто испытывает ту же проблему. 

Sub pdfProduce()
Dim rngLoopRange As Range
Dim wsSummary As Worksheet
Dim rngDealers As Worksheet

Set wsSummary = Sheets("Summary")

For Each rngLoopRange In Worksheets("owssvr").Range("$B$2:$B$1648")
  wsSummary.Range("D5").Value = rngLoopRange.Value

  wsSummary.ExportAsFixedFormat _
           Type:=xlTypePDF, _
           Filename:="C:\Users\S\Desktop\ScorecardPDF\" & rngLoopRange.Value & ".pdf", _
           Quality:=xlQualityStandard, _
           IncludeDocProperties:=True, _
           IgnorePrintAreas:=False, _
           OpenAfterPublish:=False
Next rngLoopRange

Set wsSummary = Nothing
End Sub
...