Question

我正在尝试创建VBA代码，该代码在工作表的ComboBox中一个一个一个地选择每个名称。链接到ComboBox的单元格为“ D5”（员工名称）。但是，名称（大约1700个名称）所在的ComboBox范围在我的工作簿的C列中名为“ Sheet1”的另一个工作表上。

从组合框选择名称时，它会出现在链接单元格“ D5”中。然后，工作表上的其他单元格将使用“ D5”中的值，并为所选名称创建摘要。我需要一个宏，它将从ComboBox中一个一个地选择每个名称，并另存为PDF。

我可以使用什么VBA代码来遍历每个名称并另存为PDF，作为从ComboBox选择到此文件夹C：\ Users \ SM \ Desktop \ ScorecardPDF的名称？

Answer 1

这是我的最终代码。对于那些遇到同样问题的人。

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

Excel：VBA代码循环通过组合框列表并为每个列表生成PDF。

1 个答案: