Я смотрю на создание PDF из документа Excel.Мне нужна только часть рабочего листа, чтобы стать частью PDF.Соглашение об именах PDF-файла должно быть динамическим, поскольку оно является цитатным документом.
Я уже пробовал приведенный ниже код.Это делается для того, чтобы мы могли прикрепить документ к электронному письму или создать код для доставки электронного письма клиенту, но в настоящее время он не запускается.
```Sub SetEmailToPDF()
ChDir "S:\PDF Quotes"
Worksheets("Email").Range("A1:F70").ExpportAsFixedFormat Type:=xlTypePDF, Filename:= _
"S:\PDF Quotes-" & Format(Now, "DDMMYY") & Worksheets("Email").Range("c12") & ".pdf", OpenAfterPublish:=True
End Sub```
Что я ожидаю, так это создание PDFс именем файла 120419Companyname.pdf, и оно должно быть сохранено в s:\PDF Quotes
Я также попытался упростить приведенный ниже код и все равно получить ошибку времени выполнения 438:
Sub SetEmailToPDF()
ChDir "S:\PDF Quotes"
Worksheets("Email").Range("A1:F70").ExpportAsFixedFormat Type:=xlTypePDF, Filename:= _
"S:\PDF Quotes\test.pdf", OpenAfterPublish:=True
End Sub