Excel 2010 VBA Programming & Computer know-how

Ｅｘｃｅｌ 2010 関係

シートをＰＤＦで保存

　ExcelのシートをＰＤＦファイルで保存する
方法を示します。

◎参考になるようにSheet1とSheet2を
一つのＰＤＦファイルとして書き出してみ
ます。
　使用するに当たっては、シート名を実際
の名前で行ってください。
　サンプルプログラムでは、Sheet2が２ページ目になります。
★ここから⇒Sample[PDFsave.zip]ファイルのダウンロードができます。

	Dim MsgRtn As Long
	Dim Myfolder, シート名 As String
	Sub PDFsave()
    		Worksheets("Sheet1").Activate
	
	'   保存先フォルダをカレントフォルダ名に設定
    		Myfolder = ThisWorkbook.Path
	
	'   保存するシート名を取得
		シート名 = ActiveSheet.Name & ".pdf"
	
	'   PDF書出し実行確認
    		MsgRtn = MsgBox(Prompt:="シートをＰＤＦファイルで書出しますか？", _
		Buttons:=vbYesNo + vbquesiton, Title:="実行確認")
    		If MsgRtn = vbNo Then Exit Sub
    	
    		With ThisWorkbook
        		.Activate
        		.Worksheets("Sheet1").Select
        		.Worksheets("Sheet2").Select Replace:=False
    		End With
    	
    		ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
		Filename:=Myfolder & "\" & シート名
    		MsgBox シート名 & "の書出しに成功しました。"
    	
	End Sub

　　　　　　　　　　　　　　　　　　　　　　　 ↑頁トップへ

思い出のパソコン画像

パソコンに関するノウハウ備忘録

シートをＰＤＦで保存

ExcelのシートをＰＤＦファイルで保存する 方法を示します。

　ExcelのシートをＰＤＦファイルで保存する
方法を示します。