関連がある複数のテキストファイルの扱い方

質問

8月7日の質問No.8708191「Accessクロス集計で列数が多い場合の処理方法」ですが一部、未解決となります。
ですので、一旦その質問は締切りまして、再度内容を吟味して質問させていただきます。

関連会社から商品情報(十万件以上)に関する複数の「.txt」ファイルを頂きました。
この「.txt」ファイルには、商品に関する情報が記載されており、それぞれが関連し合ったファイルです。

これらを適切に関連を持たせ、最終的にはアップロード用に「.csv」として出力させたい為、内容が横1行に吐き出されるようにしたいです。

初歩的な質問になりますが教えてください。

作業環境はWindows7にExcel2003、Access2003がインストールされていますが、そのどちらも素人程度にしか扱えない状況です。
「.txt」の主情報(商品マスタ)は十万行以上になります。

金銭的なバックアップは見込めませんが、無料ソフトの導入などは問題ないです。
また、私以上に素人がこの処理をするかもしれない場合、どのような方法でアップロード用の情報にするのが良いでしょうか？

この投稿のマルチメディアは削除されているためご覧いただけません。

回答No.20

chayamati

回答No.19のフォーム作成で作成に誤りがありました。
フォームはこちらで作成して下さい。

情報の全てはテキストデータですから登録用のフォームは必要ないと思いますが
テキストデータのインストール後のテーブル内容を参照するためです。
登録用：データの追加、更新、削除が可能
参照用：データの追加、更新、削除が不可能
フォームのプロパティーのデータタグに追加の許可、削除の許可、更新の許可の項目があります。
ここを変更することで、登録用にも参照用にもなりますが、フォームの規定値が登録用になっています。

1.フォームを開くボックスに絞り込み検索機能を付けるための商品名検索ボックスを配置
2-1. コンボボックス用のクエリ作成
【メニュー画面で空白部分を右クリック】⇒【デザインビュー】⇒【テキストボックス】⇒【メニュー画面】
⇒【次へ】⇒【次へ】⇒【商品名検索】⇒【OK】⇒【商品名検索を右クリック】⇒【コントロール種類の変更】
⇒【コンボボックッス】⇒【商品名検索右クリック】⇒【プロパティー】⇒【データータグ】
⇒【値集合ソースの右端の…】⇒【商品マスタ】⇒【追加】⇒【閉じる】
⇒【商品名をフィールドへドラッグ】⇒【並び替え昇順】
⇒【抽出条件に Forms!メニュー!商品名検索 と入力】⇒【クエリを閉める】⇒【はい】

2.フォームの作成
2-1.各テーブル毎にフォームを作成
2-2.フォームは全て表形式
　　フォーム名をテーブル名に "登録" を付加して、例えば　"説明登録"
2-3.商品登録フォーム作成
【フォームウィザード起動】⇒【商品マスタ】⇒【全て選択移動】⇒【次へ】⇒【表形式】
⇒【次へ】⇒【商品登録と入力】⇒【フォームのデザインを編集する】⇒【完了】
⇒【データタグ】⇒【レコードソースの右端の…】⇒【全ての項目をフィールドに移動】
⇒【はい】⇒【商品名の並び換え行を昇順】⇒【商品名の検索行の右端を右クリック】
⇒【ビルド】⇒【式の要素のaccess印の左の＋】⇒【Formsの左の＋】
⇒【読み込まれたフォーム左の＋】⇒【メニュー】⇒【式のカテゴリのの商品名検索】
⇒【式の値の値をダブルクリック】
⇒【上枠の Forms![メニュー]![商品名検索] 左端に >= と入力】⇒【OK】
⇒【クエリビルダを閉じる】⇒【はい】⇒【デザイン画面を閉じる】⇒【はい】

2-４.長文のメモ型フィールドのある説明登録フォーム作成
手順は商品登録と同じだが途中長文のフィールドの処理とテーブル内にない商品名の追加が入る
【フォームウィザード起動】⇒【説明】⇒【全て選択移動】⇒【次へ】⇒【表形式】
⇒【次へ】⇒【説明登録と入力】⇒【フォームのデザインを編集する】⇒【完了】
⇒【項目の説明をフォームフッタへ移動し左右に拡げる】
⇒【この見出しラベルもここへ移動しテキストボックスとに並べる】
⇒【見出しラベルを縦書きにしてテキストボックスの左に配置するにはその他タグの縦書きを はい】
⇒【データタグ】⇒【レコードソースの右端の…】⇒【はい】⇒【全ての項目をフィールドに移動】
⇒【説明の項目名のある枠で右クリック】⇒【商品マスタ】⇒【追加】⇒【閉じる】
⇒【二つのテーブルが ∞：１ 出つながっていることを確認】⇒【商品名を下のフィールドに移動】
⇒【商品名の並び換え行を昇順】⇒【商品名の検索行の右端を右クリック】
⇒【ビルド】⇒【式の要素のaccess印の左の＋】⇒【Formsの左の＋】
⇒【読み込まれたフォーム左の＋】⇒【メニュー】⇒【式のカテゴリのの商品名検索】
⇒【式の値の値をダブルクリック】
⇒【上枠の Forms![メニュー]![商品名検索] 左端に >= と入力】⇒【OK】
⇒【クエリビルダを閉じる】⇒【はい】⇒【デザイン画面を閉じる】⇒【はい】

2-5.説明登録を商品登録のサブホームとする
※サブフォーム/サブレポートツールは隠れています。デザインモードのメニューバー中央付近の▼より見つけて下さい。
【左のナビゲーションウィンドで説明登録をコピペしてフォーム名を説明サブとする】
⇒【説明サブ を右クリック】⇒【デザインビュー】⇒【ホームヘッダー内を項目見出しのみとして】
⇒【ホームヘッダーを項目見出しの高さに縮小する】⇒【編集画面を閉じる】⇒【はい】
⇒【商品登録を右クリック】⇒【デザインビュー】⇒【サブフォーム/サブレポートツール】
⇒【フォームフッター】⇒【はい (単票に変更する）】⇒【説明サブ】⇒【次へ】
⇒【独自に設定】⇒【商品コード(メインフォーム)】⇒【商品コード(サブフォーム）】
⇒【商品登録説明サブ】⇒【デザインビューを閉じる】⇒【はい】

最初の目的であるデータの横並びににはお答えできなくて心苦しいですが
自分のお伝えできることはここまでです。

テキストデータが無いので十分な動作チェックは出来ませんが、
BVAを添えます、

VBA文中
DoCmd.SetWarnings True
という文がありますが、処理途中の警告を有効にして処理が一時停止して
警告時のコードをひょうじします。
ここでＦ８押下するとプログラムは一つづつ進みＦ５押下継続して通常に戻ります。、

エラー修正が終り、実用に移るとこの警告が煩わしくなります。
実用に移るときは
DoCmd.SetWarnings False
とし、処理途中の警告を無効にします。

Private Sub 終了_Click()
DoCmd.Quit
End Sub

はシステムを終るときのものですが右肩の閉じるボタンが不要とはおもいますが

また各フォームにも、閉じるボタンをラベルで配置しクリックで

テキストデータは１回切りならば

Private Sub テーブル初期化_Click() を Private Sub テーブル初期化RTN()

テキストインポートの最初に初期化をを実行するようにするとよいでしょう

Private Sub txtインポート_Click()
テーブル初期化RTN
DoCmd.SetWarnings True 'シングルクォーテーションより右はメモです。 警告表示 True 非表示 False
DoCmd.TransferText acImportDelim, , "メーカー", "D:\okwave\テキスト\メーカー.txt", True
DoCmd.TransferText acImportDelim, , "ブランド", "D:\okwave\テキスト\ブランド.txt", True
DoCmd.TransferText acImportDelim, , "商品マスタ", "D:\okwave\テキスト\商品マスタ.txt", True
以下略

Private Sub 閉じる_Click()
DoCmd.Close
End Sub

でフォームが閉じます。
テーブルのルックアップ、コンボボックスのリスト行数はコそれぞれののプロパティーに設定項目があります。
大量のデータを扱ったことがありません。
差し障りなければ、データ件数とインポート時間、エクスポート時間を補足頂けませんませんか

ミスが多発する回答でしたが、よく付き合って下さいいましてありがとうございます。

--------------------------------------------------------------------------------------
文字数オーバです。
VBAは次に回答します。