760 デフォルトの名無しさん 2025/08/24(日) 22:05:06.45 ID:KAvJjIV0
複数のシートをPDF出力するにはやっぱり複数のシートを選択した後に、ActiveSheet.Selectするしか無いんだなと思った
' PDFとして出力
ThisWorkbook.Sheets(wsNames).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=outputPath, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True