3.4 ワークブックを別名で保存 ワークブックを別名で保存する方法です。???.SaveAsというメソッドを使います。 ???の部分は、ThisWorkbookやWorkbooks(n)やActiveWorkbookなどのワークブックを表すオブジェクトです。 なお、ワークブックの指定方法については、2.1 直接指定する方法や2.2 間接的に指定する方法を参照してください。 別名で保存する方法 ???.SaveAsの基本的な使い方色々です。自分自身を別な名前で保存するときと、他のワークブックを選択して別な名前で保存する２つの方法があります。 まずは、自分自身を別名で保存する場合ですが、ThisWorkbookを付け、 ThisWorkbook.SaveAs Filename:="c:\happy\smile.xls" このように行います。ファイル名はFilename:=で指定します。 次に、開いている他のワークブックを上書き保存したい場合ですが、まずは対象のワークブックをWorkbooks(n).Activateで選択した後、ActiveWorkbook.SaveAsで保存する間接指定の方法と、 Workbooks(n).Activate ActiveWorkbook.SaveAs Filename:="c:\happy\smile.xls" Workbooks(n).SaveAsで直接ワークブックを指定する方法があります。どちらも同じ動作でどっちを使うかは好みの問題ですが、いちおう後者を推奨しておきます。 Workbooks(n).SaveAs Filename:="c:\happy\smile.xls" ちなみに、CSV形式で保存したいなんてこともあることでしょう。そんなときは 引数にFileFormat:=xlCSVを加えます。 ActiveWorkbook.SaveAs Filename:="c:\happy\smile.csv", FileFormat:=xlCSV ワークブックの選択（nの部分）については「3.ワークブック、ワークシートの操作」に書いてあるので、そちらをどうぞ。 使用例1／自分自身を別な名前で保存する ThisWorkbook.SaveAsの使用例です。ワークシートをゴソゴソ編集した後、自分自身に別な名前をつけて保存（�A）します。ちなみに、ゴソゴソ…の部分は「5 書式の設定をする」に書いてあるのでここでは省略します…手抜きではありません（汗） ThisWorkbook.SaveAsの引数Filename:=にはエクセルワークブックのファイル名をフルパスで指定します。 それと、ThisWorkbook.SaveAsを実行するとき、保存先に同じファイル名のワークブックが既にある場合は「ワークブックを置き換えますか？」というダイアログが表示されますが、「マクロ＝自動化」なので出ない方が便利です。表示したくないときは、ApplicationオブジェクトのDisplayAlertsにFalseを指定(�@)しておきましょう。ただし、保存が終わったらTrueに戻しておく（�B）ことをオススメします。じゃないと、他のメッセージが出なくなるので…。詳しくは、8.2 警告メッセージのON・OFFをどうぞ。 なお、ワークブックを閉じる方法については、3.5 ワークブックを閉じるをどうぞ。 Sub prcThisWorkbookSaveAs()     '編集範囲を選択します     Range("B2:D10").Select     '選択した範囲内のセルを塗りつぶします     With Selection.Interior         .ColorIndex = 10         .Pattern = xlSolid     End With     '�@各種の確認ダイアログを非表示     Application.DisplayAlerts = False     '�Aワークブックを別名で保存     ThisWorkbook.SaveAs Filename:="c:\happy\エクセル2002v.xls"     '�B各種の確認ダイアログを表示     Application.DisplayAlerts = True End Sub 　※このエクセルマクロはワークシート内へ記述するマクロです 使用例２／他のワークブックを別名で保存する ActiveWorkbook.SaveAsの使用例です。c:\happyに保存してあるエクセル2002.xlsというワークブックを開き、そのワークブックのワークシートをゴソゴソ編集した後、ActiveWorkbook.SaveAsで開いたワークブックを別名で保存（�B）します。 ワークブックを選択する場合には番号や名前などの識別子を指定する必要があります。例では、開いたワークブックの「名前」を取得し、その名前で選択するようにしています。ちなみに名前の取得ですが、開いた直後は開いたワークブックが選択されている状態なので、この隙にActiveWorkbook.Nameで名前を取得しました。ワークブックの名前取得については、7.3 ワークブックの名前を知る方法もどうぞ。 Application.DisplayAlertsについては、「使用例１／自分自身を別な名前で保存する」と同じです。 なお、ワークブックを閉じる方法については、3.5 ワークブックを閉じるをどうぞ。 Sub prcActiveWorkbookSave()     Dim strWorkBookName As String     Workbooks.Open Filename:="c:\happy\エクセル2002.xls"     strWorkBookName = ActiveWorkbook.Name     'コピー元範囲（自分自身）の指定     ThisWorkbook.Activate     Range("B2:D10").Copy     '開いたワークブックの１つ目のワークシートへ     'コピーした部分を貼り付けます     Workbooks(strWorkBookName).Worksheets(1).Range("B2:D10").PasteSpecial     '�@各種の確認ダイアログを非表示     Application.DisplayAlerts = False     '�A保存するワークブックを選択します     Workbooks(strWorkBookName).Activate     '�B選択したワークブックを別名で保存します     ActiveWorkbook.SaveAs Filename:="c:\happy\エクセル2002v.xls"     '�C各種の確認ダイアログを表示     Application.DisplayAlerts = True End Sub 　※このエクセルマクロはワークシート内へ記述するマクロです

[PR]管理人が書いたVBAプログラミング本 ■最速攻略 Excel VBA サンプル大全集 ■苦手なコードもこれで安心!Excel VBA超入門講座 ■Excel VBAゲーム大作戦 はじめて編※ 実践編※ ◆ここが知りたかった! Access VBA 500の技※ （アマゾンへジャンプします。※は共著作品） エクセルマクロTips ブック・シート操作編 1.能書き（この章の説明） 2.基本オブジェクト   2.1 ワークブック（Workbookオブジェクト）   2.2 ワークシート（Worksheetオブジェクト）   2.3 その他のシートも扱う 3.ワークブックの操作   3.1 既存のワークブックやCSVを開く    ・Workbooks.Open   3.2 新規ワークブックを作る    ・まっさらのワークブック    ・テンプレートを使う   3.3 ワークブックの上書き保存    ・自分自身を保存する場合    ・他のワークブックを保存   3.4 ワークブックを別名で保存   3.5 ワークブックを閉じる    ・自分自身を閉じる    ・他のワークブックを閉じる    ・全てのワークブックを閉じる   3.6 ワークブックを最大化、最小化    ・ウィンドウを最大化、最小化、通常表示   3.7 ワークブックのサイズ変更    ・ウィンドウの縦位置、横位置、高さ、幅   3.8 シート見出しなどの表示・非表示    ・他に罫線、スクロールバー、行列番号    ・改ページ位置や、その他いろいろ   3.9 ワークブックを最前面に表示する    ・Activateメソッド 4.ワークシートの操作   4.1 ワークシートを選択する   4.2 ワークシートを追加する   4.3 ワークシートを削除する   4.4 ワークシートをコピーする   4.5 ワークシートを移動する   4.6 表示・非表示を切り替える   4.7 ワークシートの名前を変える ■ブック・シート操作編 ■セル・行・列操作編 ■Applicationオブジェクト・イベント編 ■応用技・その他編 Happy! Happy! Islandその他のコンテンツ ■VBAプログラミング、その他 　Access VBAプログラミング＆Tips 　Excel VBA(エクセルマクロ)プログラミング＆Tips 　VBScript＆JScriptプログラミング＆Tips for WSH 　プログラミング基礎・入門 　HTMLの書き方 ■ダウンロードコーナー 　AccessとExcelのフリーソフト ■コミュニティー 　VBA質問掲示板 ■その他 　オレの話を聞けぇ♪（仮称／コラム） 　管理人プロフィール 　管理人へメール ■別館(海外向けサイト) 　SAMURAI Game Center - Freeware games for Microsoft ACCESS and EXCEL! VBAプログラミング＆Tips集の "Happy! Happy! Island"トップページへ [リンク]IT関連情報サイトなど gihyo.jp 技術評論社提供のIT関連コンテンツサイト [リンク]一番クリックした国が優勝 ClickClickClick.com クリッカー＆認証人募集！日本を1位にしよう！もちろん、おいらも参加中！各種情報の入手はClickJapanオフィシャルサイトで。 [PR]証券会社・投資運用関連サイト カブドットコム証券 逆指値・W指値等の自動売買でリスク管理追求型の投資が可能！引け後のIRやニュースを見てからでも間に合う夜間取引も魅力！ マネックス証券 オンライントレード・自動売買の最先端！「逆指値・ツイン指値」でリスクコントロール！デイトレードなら片道手数料無料！ Ｅ＊トレード証券 オンライン専業証券�ｂPの口座数！業界最低水準の手数料体系と充実のサービスラインナップ！ 楽天証券のマーケットスピード ネット証券最強のトレーディングツール「マーケットスピード」でプロ水準の投資環境がご自宅のパソコンに！ オンライン証券徹底比較 価格．ｃｏｍで証券徹底比較！手数料、取引商品、信用取引金利、逆指値などの注文方法や提供情報などを徹底比較！

Copyright(C) 1999-2006 結城圭介。 All rights reserved