12. 終了処理 　最後の最後です。ＣＳＶファイルやマクロ入りのエクセルワークブックなど、必要のないワークブックを閉じます。閉じた後に最終的に残るのは店舗別売り上げ一覧表です。 プロシジャ「終了処理」の作成 　7. リスト作成処理と初期処理で終了処理とうプロシジャを呼び出してますが、今度はこの部分を作ります。本当に、これがラスト！です。 Sub 終了処理() 　　Workbooks("uriage.csv").Close 　　Workbooks("Excel Smile01.xls").Close End Sub 　ワークブックを閉じるには、ワークブックに対してCloseというメソッドを実行します。閉じるときは、ＣＳＶ、マクロ入り本体の順で行います。逆だと、本体がクローズされてマクロがそこで止まってしまい、ＣＳＶが出たままになってしまうことが・・・・あったような、なかったような。。。（いい加減だな、オレも） 　というわけで、動かしてみましょう。またまた「リスト作成」を実行[アイコン]してみよう！でも、その前に「必ずマクロ入りの本体」を保存してください。保存を忘れると、せっかく作ったマクロが消えてしまい今までの苦労が水の泡・・・なんて悲惨な結果になるおそれがあります。まぁ、それが原因で人生に挫折したなんてことは無いと思いますが（笑） 　で、これでワークブックは閉じる…はずですが、猫やイルカが暴れたり、または左図のような保存しますか？なんてダイアログが出ませんでしたか？ 　保存せよって言われてもねぇ・・・ＣＳＶなんて使い捨てだしねぇぇぇ・・・てなわけで、ここはとりあえずキャンセルボタンを押してください。実はいい手がありますよ、お客さん！ 保存の確認を行わずにワークブックを閉じる 　終了処理に一行だけ呪文を追加して、最終的には、次の形になります。 Sub 終了処理() 　　Application.DisplayAlerts = False 　　Workbooks("uriage.csv").Close 　　Workbooks("Excel Smile01.xls").Close End Sub 　Application.DisplayAlerts = Falseというのは、保存の確認やその他の警告などを一切表示しないでくださいという意味です。 （警告を表示する場合はTrueを指定します） 　で、実行前には必ず保存してください。マクロ入りの本体をです。保存が完了したら、またまた「リスト作成」を実行してみてください。今度はどうですか？ 　うまくいけば、マクロで作った店舗別売り上げ一覧表だけが残り、他のワークブック（ＣＳＶやマクロ入りの本体）が画面から消えます。 おつかれ！ 　というわけで、帳票の作成は終了です。24才OLの香織さんの悩みもこれで解消されることでしょう。でも、今度は毎日マクロを起動するのが面倒だと言われそうだな。。。まっ、いっか。そんときゃ、また別なネタあるし（笑）

[PR]管理人が書いたVBAプログラミング本 ■最速攻略 Excel VBA サンプル大全集 ■苦手なコードもこれで安心!Excel VBA超入門講座 ■Excel VBAゲーム大作戦 はじめて編※ 実践編※ ◆ここが知りたかった! Access VBA 500の技※ （アマゾンへジャンプします。※は共著作品） 帳票を作ってみよう！ 1.能書き（この章の説明） 2.帳票の仕様、背景 ・テストデータのダウンロード 3.マクロ作成の準備 4.CSVファイルのオープン 5.新規ワークブックのオープン 6.帳票の見出しを作る ・ひな形書式作成 7.リスト作成処理と初期処理 ・主制御処理と初期処理（ＣＳＶファイルのオープン、新規ワークブックの作成） 8.CSVのデータをキレイにお化粧1 ・データの並び替え（ソート） 9.CSVのデータをキレイにお化粧2 ・集計を行います 10.CSVのデータをキレイにお化粧3 ・集計結果をもとに帳票を仕上げます 11.印刷書式の設定 ・用紙サイズや余白など印刷書式の設定 12.終了処理 ・必要の無いワークブックを閉じる 13.マクロの自動実行と…おまけネタ  ・ウィンドウにネコを出す方法 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