『一部シートを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
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.