エクセルのマクロでシートの指定範囲をセル名で保存

質問

いつもお世話になっております。
だいぶ前に下記のコードを教わってあまりの便利さに非常に多くのファイルで多用しているのですが今回エクセルシートのまま保存したく。
2か所のPDFとpdfをxlmsに変更してみたのですが何故か必ずpdfで保存されるのです。

尚、保存ファイルは印刷範囲で指定でした範囲で、ページ設定通りに印刷されることも必要なので合わせてよろしくお願いします。
更に、問題ないと思うのですが、保護の範囲＆編集許可の範囲指定も保持したファイルにしたいのでこれも合わせてお願い致します。

Sub 保存()
Sheets("成績表(提出)").ExportAsFixedFormat Type:=xlTypePDF, _
Filename:="\\Sav01\成績書\原紙\1.成績表" & "\" & Range("E20") & ".pdf"
End Sub

回答No.1

HohoPapa · ベストアンサー

ExportAsFixedFormat メソッド (Excel) には、
PDF または XPS 形式に保存する機能しかありません。
https://docs.microsoft.com/ja-jp/office/vba/api/excel.workbook.exportasfixedformat

期待のことを行うとすれば
・新規ブックを開く
・期待のシートをそこに複写する
・複写先のブックを保存する
という作業が必要です。

コードを例示します。

Option Explicit

Sub Sample()

　Dim PutBk As Workbook
　Dim GetBk As Workbook
　Dim PutFName As String
　Const CpNum = 1　　　　　　'コピー元シート番号
　Const PutDir = "D:\MyTest" 'コピー先フォルダー

　Set PutBk = Workbooks.Add
　Set GetBk = ThisWorkbook

　GetBk.Sheets(CpNum).Copy before:=PutBk.Sheets(1)　'
　PutFName = PutDir & "\" & _
　　 GetBk.ActiveSheet.Cells(20, 5).Value & ".xlsx"
　'または
　'PutFName = PutDir & "\" & _
　　GetBk.Sheets(CpNum).Cells(20, 5).Value & ".xlsx"

　PutBk.SaveAs Filename:=PutFName, _
　　　　FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
　PutBk.Close

End Sub

お礼

PCのスキルの全く無い人を含む複数の人が使用する多数のファイルがあり、ここで教えていただいた種々の仕掛けを盛り込んで「ひな形」を作っています。
これを盛り込んだひな形を作って活用させていただきます。

ありがとうございました。

補足

いつもいつも的確なご回答ありがとうございます。

朝一で動作確認し、一発で期待の通り「完動」（感動）しました。
しかし、pdfは実質2行で出来るので安易に質問しましたが、エクセルをエクセルで保存するのにこんなに手間がかかるとは意外であり、お手数をおかけしました。

大事に使わせていただきます。