在Excel中，带有VBA的PDF工作表范围

Question

下面的代码应该在下面给出的两个工作表名称之间对所有内容进行PDF处理。

下面的代码在运行时说"Sheets(SheetArr("行存在类型不匹配。选择"。 任何帮助将不胜感激。

Sub createPdf()
Dim SheetArr() As String
Dim i As Integer
Dim startSheet As Integer
Dim endSheet As Integer
startSheet = Sheets(InputBox("Sheet name?","CreatePDF")).Index
endSheet = Sheets(InputBox("Sheet name?", "CreatePDF")).Index
Dim folderPath As String
folderPath = InputBox("folderPath?", "CreatePDF")
For Each ws In ThisWorkbook.Worksheets
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 & "test", _
openafterpublish:=False, ignoreprintareas:=False
MsgBox "All done with pdf's"
End Sub

Answer 1

看看文档。工作表名称列表(应用双引号引起来，用逗号分隔(需要换成Array()

使用工作表(数组(指定多个工作表。以下 示例将名为 Sheet4 和 Sheet5 的工作表移动到 工作簿。

.VB

复制工作表(数组("工作表4"，"工作表5"((。前移动：=工作表(1(