Question

我正在尝试将工作表的副本作为excel文件保存在一个文件夹中，并将同一工作表的PDF版本保存在另一个文件夹中，但两者都使用不同的文件名。（不同的名称不是必需的）

我用单独的代码来保存它们，但是每次我使用宏保存PDF版本时，它都会在另一个名为“ Book 1'的窗口中打开，因此，如果可能，我将尝试同时使用这两个宏。

这是我在其他Sub中使用的工作代码：

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

这是不断出错的代码。请根据需要更改它。最后第四行是始终突出显示的那一行。

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

如何同时将Excel工作表另存为Excel文件和PDF

0 个答案: