尝试复制多个 pdf 中的工作表 - 语法错误
Trying to copy worksheets in multiple pdfs - Syntax Error
你能帮我看看这段代码吗?我是初学者..
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
你的问题是行
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)复制的
你能帮我看看这段代码吗?我是初学者..
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
你的问题是行
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)复制的