4.Withステートメントを終了する。xlCenterWithステートメントを使用しなくても問題ありませんが、なるべく同じことを書かないようにするためにも、Withステートメントを使用することをおすすめします。ダイアログ画面を表すFileDialogオブジェクトを取得する。引数FileDialogType:ダイアログ画面の種類を指定する。"名前を付けて保存ダイアログボックスが表示されました。ダイアログ画面を表示し、画面でクリックしたボタンに対応する戻り値を取得する。「開く」ボタンまたは「保存」ボタンをクリックすると-1(True)、「キャンセル」ボタンをクリックすると0(False)が返る。ダイアログボックスで「保存」ボタンをクリックした場合、メッセージを表示する。"名前を付けて保存ダイアログボックスが表示されました。Index:1からはじまり2、3・・・と設定する。選択したファイルのパスを取得する。Indexに1を指定すると1つ目のファイルのパス、2を指定すると2つ目のファイルのパスとなります。保存するファイルのパス、ファイル名を取得する。Rangeオブジェクトで指定したセルをコピーして、そのセルを引数で指定したセルに貼り付けるか、またはクリップボードに格納する。Destination:貼り付け先の先頭のセル、またはセル範囲を指定する。省略した場合は、コピーしたセルをクリップボードに格納する。セルA2~B5をコピーして、セルA8を先頭とするセル範囲に貼り付ける。新しいブックに「保存シート1」「保存シート2」シートをコピーする。引数で指定した設定でブックに名前を付けて保存する。主な引数FileName:ブックの保存場所と名前を指定する。保存場所はパスで示し、パスと名前を「¥」でつなぎ、「"」(ダブルクォーテーション)で囲んで指定する。保存場所を省略すると、ブックはカレントフォルダー(現在の作業対象のフォルダー)に保存される。FileFormat:ファイル形式を指定する。省略した場合、保存済みのブックは最後に保存されたときのファイル形式となり、新規ブックは通常のExcelのファイル形式となる。タブ区切りのテキスト(.txt)Password:読み取りパスワードを指定する。WriteResPassword:書き込みパスワードを指定する。ReadOnlyRecommended:読み取り専用を推奨するメッセージを表示する場合に「True」を指定する。CreateBackup:バックアップファイルを作成する場合は「True」を指定する。名前を付けて保存ダイアログボックスで指定したパス、ファイル名で保存する。