[[20240419150109]]　『一部シートをPDFにして保存』（7）　ページの最後に飛ぶ

『一部シートをPDFにして保存』（7）

Excelの2つシートがある中のシート1だけを
PDFにして保存する方法を教えて欲しいです

保存するたびにエクセルのファイル名で特定の
場所で保存できるようにするマクロ式
知りたいです。

＜使用 Excel：Microsoft365、使用 OS：Windows11 ＞

 サンプルは↓こんなかんじ。
 https://www.sejuku.net/blog/99137
（28） 2024/04/19(金) 16:30:54

 参考になれば。

 Sub Sheet2Pdf()
    Dim 出力シート As Worksheet
    Dim 特定の場所 As String
    Dim ファイル名 As String

    Set 出力シート = Worksheets("シート1")
    特定の場所 = ThisWorkbook.Path & "\"
    ファイル名 = Left(ThisWorkbook.Name, InStrRev(ThisWorkbook.Name, ".")) & "pdf"

    出力シート.ExportAsFixedFormat Type:=xlTypePDF, fileName:=特定の場所 & ファイル名

 End Sub
（通行人） 2024/04/20(土) 07:48:20

コメント返信：