Как сохранить лист Excel как файл Excel и PDF одновременно - PullRequest
Новая
       32

Как сохранить лист Excel как файл Excel и PDF одновременно

0 голосов
/ 28 марта 2019

Я пытаюсь сохранить копию своего листа в виде файла Excel в одной папке и сохранить PDF-версию этого же листа в другой папке, но оба с разными именами файлов.(разные имена не важны)

У меня они были в отдельных кодах, но каждый раз, когда я сохранял PDF-версию, используя макрос, она открывалась в другом окне под названием «Книга 1», так что я пытаюсь сделатьоба действия с 1 макросом, если это возможно.

Это мой рабочий код, который используется в моем другом Sub: 

Sub NextQuote()
Range("E3").Value = Range("E3").Value + 1
Range("B16:D20").ClearContents
Range("B8:B14").ClearContents
Range("E4").ClearContents
End Sub

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

Sub SaveQuoteAsPDF()
'Copy Quote to a new workbook
ActiveWorkbook.SaveCopyAs "S:\Quotes\@@NKW QUOTES\@PDF Version\Quote" & 
Range("E3") & Range("B9").Value & ".pdf"
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=NewFN, 
Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, IgnorePrintAreas:=False, 
OpenAfterPublish:=True
ActiveWorkbook.SaveCopyAs "S:\Quotes\@@NKW QUOTES\Quote" & 
Range("E3").Value & ".xlsm"
ActiveWorkbook.SaveAs NewFN, FileFormat:=xlOpenXMLWorkbookMacroEnabled
ActiveWorkbook.Close
NextQuote
End Sub
...