リッサには、複数のワークシートを含むワークブックがあります。彼女はこれらのワークシート用に個別のPDFを作成したいと考えています（ワークシートごとに1つのPDF）

ワークシートの名前に基づいたPDFの名前で。彼女は、Excelでこれを行う方法があるかどうか疑問に思います。

あなたが費やしたい時間に応じて、それを行う方法があります。

これが「1回限りの」発生である場合は、個々のワークシートを手動で印刷することを検討してください。または、各ワークシートを独自のワークブックにコピーしてから、各ワークブックをPDFに印刷することもできます。

ただし、これらは手動でかなり集中します。 （これが、「1回限りの」発生にのみ適していると私が言った理由です。）もう少し自動化したい場合は、マクロを使用してPDFファイルを作成することをお勧めします。 PDFの作成を行う短いマクロの例を次に示します。

Sub CreatePDFs()

Dim wks As Worksheet     Dim sFolder As String     Dim sTemp As String

sFolder = ActiveWorkbook.Path & "\"



sTemp = "Created PDFs for the following worksheets"

For Each wks In ActiveWorkbook.Worksheets         If wks.Visible = xlSheetVisible Then             sTemp = sTemp & vbCrLf & "   * " & wks.Name             wks.ExportAsFixedFormat Type:=xlTypePDF, _               Filename:=sFolder & wks.Name & ".pdf", _               OpenAfterPublish:=False         End If     Next

MsgBox sTemp End Sub

sFolder変数に格納されているパスは、アクティブなブックに関連付けられているパスに設定されていることに注意してください。 （アクティブなブックをまだ保存していない場合、マクロは正しく実行されません。）このパスは、PDFファイルが保存されるフォルダーです。それらを別の場所に保存する場合は、sFolder変数に割り当てられている値を変更するだけです。

_ExcelTips_は、費用効果の高いMicrosoftExcelトレーニングのソースです。

このヒント（13570）は、Microsoft Excel 2007、2010、2013、2016、2019、およびOffice365のExcelに適用されます。