尝试复制多个 pdf 中的工作表 - 语法错误

Question

你能帮我看看这段代码吗？我是初学者..


Sub ExportSheetstoPDF()

Dim ws As Worksheet
Dim mywsname As String

For Each ws In Worksheets
    ws.Select
    mywsname = ws.Name
    Activesheet.ExportAsFixedFormat Type:=xlTypePDF, _
    filename:="Z:\Incent_2022\ORDINARIA\RETAIL-WHS\Schede Obiettivi\Q1\" & "Schede Obiettivi Retail Classico Q1 22_" & mywsname & “.pdf”, _

    Next ws
End Sub

Answer 1

你的问题是行

Activesheet.ExportAsFixedFormat Type:=xlTypePDF, _
    filename:="Z:\Incent_2022\ORDINARIA\RETAIL-WHS\Schede Obiettivi\Q1\" & "Schede Obiettivi Retail Classico Q1 22_" & mywsname & “.pdf”, _

结尾有续行符_，但下一行没有续行。

删除行尾的,_

此外 “.pdf” 需要 ".pdf" 即使用普通的 double-quotes 而不是从 Office 文档（“智能”double-quotes）复制的

尝试复制多个 pdf 中的工作表 - 语法错误

Trying to copy worksheets in multiple pdfs - Syntax Error

excel

vba

pdf

printing

type-conversion