VBA SaveAsでワークシートの指定する時

質問

以下は自動マクロで作成したものをちょっと変えたものです。

Sub Macro1()
Sheets(1).Select
Sheets(1).Copy
ChDir "C:\"
ActiveWorkbook.SaveAs Filename:="C:\Book2.xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
Windows("Book2.xlsx").Activate
ActiveWindow.Close
End Sub

内容：
一番左のシートのみBook2.xlsxに保存する

疑問点：
シートをコピーした後、SaveAsコマンドで保存する際に「コピーしたシートのみ保存する」ような記述が見られないことです。SaveAs自体が、コピーされたシートのみ保存すること前提のメソッドなのでしょうか？

ちなみに、Sheets(1).Copyを削除するとブック全体を保存します。

回答No.1

MarcoRossiItaly · ベストアンサー

ヘルプで Worksheet.Copy メソッドを見ると、「引数 Before と引数 After の両方を省略した場合は、新規ブックが自動的に作成され、シートはそのブック内にコピーされます」との説明が書いてあります。つまり「Sheets(1).Select」の行があるコードの場合、その 2 行後の ActiveWorkbook とは 新しく作製されたブックのことであって、元のブックではありません。したがって当然、1 シートしか含まれません。before か after が書いてあれば、新規ブックはできないので元のブックが ActiveWorkbook であり、複数シートが保存ファイルに入ります。

ところで、Workbook.SaveAs によく似たものとして、Worksheet.SaveAs というのがあります。元ファイルに複数シートが含まれている場合、Worksheet.SaveAs のほうを使っても、全シートが含まれる形でファイルが保存されます。1 シートのみとはなりません。

1 シートのみ保存するには、質問文のように Worksheet.Copy で新規ブックを作ってから、それを保存します。

そうなると Workbook.SaveAs と Worksheet.SaveAs では何が違うのかというと、それほど違いませんので、どちらでも構わないケースも多いです。それぞれのヘルプを見ると、前者は「ブックへの」変更を保存するとしているのに対し、後者は「グラフまたはワークシートへの」変更を保存するときに使うとなっています。また、前者のほうが引数が 2 つ多く、「AccessMode」というのと「ConflictResolution」というのを指定することが可能になっています。

お礼

ありがとうございます。
新規ブックを開くのはworksheet.copyで既に行われていたのですね。デバッグモードで確認すると確かにそうなってました。私はどこかバッファにコピーされ、次行で（開かず）保存されると思ってました。