有没有办法通过 VBA 在 Excel 中按工作表名称指定 PDF 范围？

Question

因此，在下面的示例代码中，它可以通过指定工作表 # 在 Excel 中对特定工作表进行 PDF 处理，但是有没有办法通过工作表名称而不是数字来指定 PDF 范围？

Sub createPdf()

Dim SheetArr() As String
Dim i As Integer
Dim startSheet As Integer
Dim endSheet As Integer

startSheet = 1
endSheet = 2
Dim folderPath As String
folderPath = "C:\Users\xxxx\Desktop\Pdfs" 'change to your 
user.
MkDir (folderPath)

For Each ws In ThisWorkbook.Worksheets 'This statement 
starts the loop
If ws.Index >= startSheet And ws.Index <= endSheet Then ' <> 
"Sheet3" Then
    ReDim Preserve SheetArr(i)
    SheetArr(i) = ws.Name

    i = i + 1
    Debug.Print (ws.Name)

End If
Next

Sheets(SheetArr).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, 
Filename:=folderPath & "\Sales", _
openafterpublish:=False, ignoreprintareas:=False

MsgBox "All done with pdf's"

End Sub

Answer 1

如果我理解正确，你想通过改变这个来开始这个子：

startSheet = 1
endSheet = 2

到工作表名称而不是它们的索引号。这可以通过添加工作表作为参考来轻松完成，并让代码从中获取索引，方法是将上面的内容替换为：

startSheet = Sheets("Start sheet name here").Index
endSheet = Sheets("End sheet name here").Index

其余代码将像以前一样运行。

请注意，不要硬编码，你也可以用一个简单的输入框来代替：

startSheet = Sheets(InputBox("Sheet name?", "CreatePDF")).index

这可以使它更易于访问和用户友好，而不必一直弄乱 VBA 代码。