7.リスト作成処理と初期処理 　主制御処理と初期処理までを作ります。プロシジャなどは「3.マクロ作成の準備」で作成した帳票モジュールへ書いて行きます。 　初期処理（ＣＳＶファイルのオープンや新しいワークブックのオープンなど）、帳票編集、印刷設定、終了処理の、各プロシジャを呼び出すのみです。細かいことは、それぞれのプロシジャで行います。 モジュール変数の追加 　(General)の(Declarations)へモジュール変数を１つ追加しておきます。この変数は、新規ワークブックを作成したときに、そのワークブック名を保存しておくための物です。なぜモジュール変数かは、また後ほど触れます。 　なお、モジュール変数とは、モジュール全体で使用できる変数です。 Option Explicit 'モジュール変数 '新規ワークブック名 Dim strNewWorkbookName As String プロシジャ「帳票作成」の作成 　メインの制御処理です。プロシジャ名をリスト作成という名前で定義しましたが、あとで変えます。理由は、また後ほど・・・。 　この処理では、初期処理（ＣＳＶファイルのオープンや新しいワークブックのオープンなど）、帳票編集、印刷設定、終了処理の、各プロシジャを呼び出すのみです。実際の処理は、それぞれのプロシジャで行います。 Sub 帳票作成() 　　Call 初期処理 　　Call 帳票編集 　　Call 印刷設定 　　Call 終了処理 End Sub プロシジャ「初期処理」の作成 　初期処理では、ＣＳＶファイルのオープンや新しいワークブックのオープンなど帳票を作るための準備を行います。 Sub 初期処理() 　　'CSVファイルを開く 　　'ファイル名とパスは指定例です。あなたのPCに合わせて変えください 　　If f_CsvOpen("z:\data\uriage.csv") = 9 Then 　　　 MsgBox "CSVファイルがありません" 　　　 End 　　End If 　　'新規ワークブックを開く 　　strNewWorkbookName = f_NewWorkbook() 　　'見出しをコピーする 　　Workbooks("Excel Smile01.xls").Worksheets("Sheet1").Range("A1:J1").Copy 　　Workbooks(strNewWorkbookName).Worksheets("Sheet1").Range("A1:J1").PasteSpecial End Sub 　まず、f_CsvOpen関数（自作）で、CSVファイルを開きます。ファイルはフルパスで指定します。 　どうやら、24才OLの香織さんが必要としているCSVファイルは、ネットワークドライブか何かにあるようです。仮に、指定した場所にファイルがなかった場合はエラーメッセージ（Msgbox）を表示して、処理を中断(End)します。 　CSVファイルが開けたら、次は新しいワークブックをf_NewWorkbook関数（自作）で開きます。と、同時に新しいワークブックの名前を取得します。名前は、関数の戻り値で取れますので安心してください。それを、モジュール変数strNewWorkbookNameへ保存します。 　初期処理の最後は、ひな型（見出し部分）のコピーです。もう、説明の必要はありませんね！ 　ちなみに、このマクロが入っているワークブックのファイル名はExcel Smile01.xlsということにしています。 　新規ワークブック名は、後で数箇所のプロシジャで使います。strNewWorkbookNameを「モジュール変数」として定義したのはそのためでした。実は、これだったんですねぇ、使い道というのは。 　Dimの説明や変数の説明についてはAccessの「１．１２　データの指定〜入力画面の表示」に詳しく載ってるので省略。気になる人は、そちらを見てください。 試しに動かす場合 　ここまで作れば、ＣＳＶファイルを開き、新しいワークブックを作る所までが確認出来ます。テストがてらに動かしてみたい場合は、帳票作成プロシジャを実行してみてください。 　ただし、動かす前にワークブックの保存をお忘れ無く！動かす前の保存はクセにした方が無難です。 　※帳票編集プロシジャの呼び出し（Call 帳票編集）でプロシジャが無いという内容のエラーが出ますが、これは気にしないでください。ここまでの状態だと、まだ作っていないため必ず出ます。でも、それ以外のエラーが出たときは気にしてください（汗）

[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