Блог

Я рассматриваю возможность создания PDF-файла из документа Excel. Мне нужна только часть листа, чтобы стать частью PDF. Соглашение об именовании PDF-файла должно быть динамическим, поскольку это документ с предложением.

Я уже пробовал приведенный ниже код. Это делается для того, чтобы мы могли прикрепить документ к электронному письму или создать код для доставки электронного письма клиенту, но в настоящее время он не запускается.

 ```Sub SetEmailToPDF()
ChDir "S:PDF Quotes"
Worksheets("Email").Range("A1:F70").ExpportAsFixedFormat Type:=xlTypePDF, Filename:= _
"S:PDF Quotes-" amp; Format(Now, "DDMMYY") amp; Worksheets("Email").Range("c12") amp; ".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 Quotestest.pdf", OpenAfterPublish:=True

End Sub