インポートの真相アルチザン

[PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。

【2024/09/30 20:38 】 |

こんにちは、今日はインポートについてです。

MindManager Excel ガントチャートインポート/エクスポート

価格： 8,400円　レビュー評価：レビュー数：

Excel ガントインポート/エクスポート CD版は、MindManagerのマップとExcelのガントチャートを双方向に自動生成します。 Excel ガントインポート/エクスポート CD版は、MindManagerのマップとExcelのガントチャートを双方向に自動生成します。 MindManager で作成した実行計画をExcel上へガントチャートとして自動出力します。 Excel上でタスクを追加・変更したガントチャートをマップ形式に再びインポートすることもできます。全体像把握に優れたマッピングの視点とスケジュール把握に優れたガントチャートの視点の両方向で
．．．さらに詳しい情報はコチラ

Docmd.TansferSpreadsheet 使ってエクセルデータをアクセスにインポートすると既存テーブルに新規データが追加されてしまします。。前回の質問に引き続きご質問しています。見積作成システムについて教えて下さい。受信したエクセルデータをアクセルに自動変換するコードを以下のようにしましたが、これでは、既存テーブルに新規データが追加されてしまいます。以下の２点を実行するためには、コードをどのように変更すればいいですか？また、毎回指定するエクセルファイルが違うとうな場合、どのようなコードを記述するば、いいですか？①既存テーブルを削除して新規テーブルを作成したい。(既存テーブルを新規テーブルに置き換えたい)②Docmd.TansferSpreadsheetメソッドを実行するか否かをメッセージボックスでOKかキャンセルかで選択したい。Private Sub Excelからインポート_Click()On Error GoTo Err_LABELIf (MsgBox("エクセルデータをアクセスにインポートします。", 33) = 1) ThenDoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "T_EXCELサンプルリスト", "C:\\サンプルリスト", TrueBeepMsgBox "インポートが正常に完了しました。", vbInformation, "終了"End IfExit_LABEL:Exit SubErr_LABEL:MsgBox (Err.Number & "," & Err.Description)Resume Exit_LABELEnd Sub次に、インポートしたテーブルと既存テーブル(分類データ)を照合して次のような状態したい場合どのような方法をとるのがスムーズですか？取込テーブル内に分類データと対応するデータがない場合、NULLとしてテーブルを抽出する方法でもいいのですが、出来れば、対応する分類データがないとエラー表示し、分類テーブルを追加出来るようなフォームを表示させたいです。追加した後、もう一度分類データとの照合に戻れるようにするのが一番希望なのですが。。。難しいでしょうか。（分類テーブル）→照合する→（取込テーブル）→抽出する→分類データ(テーブル)リンゴ a みかんみかんｂみかんｂバナナバナナｃバナナｃいちごいちごｄいちごｄりんごりんご aパインパイン NULL

> ①既存テーブルを削除して新規テーブルを作成したい。(既存テーブルを新規テーブルに置き換えたい)DoCmd.TransferSpreadsheet ～の前にOn Error Resume NextDoCmd.DeleteObject acTable, "T_EXCELサンプルリスト"On Error GoTo Err_LABELでどうでしょう。On Error Resume Nextを記述するのは、「T_EXCELサンプルリスト」という名前のテーブルが存在しなかった場合に、エラーで終わらないようにするためです。> ②Docmd.TansferSpreadsheetメソッドを実行するか否かをメッセージボックスでOKかキャンセルかで選択したい。現在のコードで、すでにそうなっていると思いますが？コードを実行すれば、［OK] ボタンと [キャンセル] ボタンが表示されたメッセージダイアログが表示され、［OK] ボタンをクリックしたときにメソッドが実行されると思います。なお、もし、［OK] ボタンと [キャンセル] ボタンではなく、「はい」と「いいえ」にしたいのであればIf (MsgBox("エクセルデータをアクセスにインポートします。", 36) = 6) Then> また、毎回指定するエクセルファイルが違うとうな場合、どのようなコードを記述するば、いいですか？下記のコードを参照してください。取り込むファイルを選択するダイアログが表示されます。Private Sub Excelからインポート_Click()On Error GoTo Err_LABELDim IN_FILE As StringDim W1 As LongOn Error GoTo Err_LABELIf MsgBox("エクセルデータをアクセスにインポートします。", 33) = 1 Then'読み込むファイルを選択します。WizHook.Key = 51488399W1 = WizHook.GetFileName(0, "", "", "", IN_FILE, "", "xlsファイル(*.xls)|*.xls", 0, 0, 4, True)WizHook.Key = 0If W1 <> 0 ThenMsgBox "ファイルが選択されなかったので、処理を中止します。"Exit SubEnd If'古いテーブルがあれば削除します。On Error Resume NextDoCmd.DeleteObject acTable, "T_EXCELサンプルリスト"On Error GoTo Err_LABELDoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "T_EXCELサンプルリスト", IN_FILE, TrueBeepMsgBox "インポートが正常に完了しました。", vbInformation, "終了"End IfExit_LABEL:Exit SubErr_LABEL:MsgBox (Err.Number & "," & Err.Description)Resume Exit_LABELEnd Sub> インポートしたテーブルと既存テーブル(分類データ)を照合して次のような状態したい場合どのような方法をとるのがスムーズですか？対応させる項目＝取り込む項目（フィールド）が１つであれば、分類テーブルと取込テーブルを使って不一致クエリを作るのが定石です。対応する項目同士をぶつけて、取込テーブルにはあるが、分類テーブルにはない値を抽出するクエリを作ります。このクエリを追加クエリに変更して、追加先のテーブルを分類テーブルにしてやれば、分類テーブルになかった項目が追加されます。もし、取り込むフィールドが複数であれば、条件によって方法が変わります。その場合、具体的に、それぞれのテーブルのフィールド名と、フィールド内のデータのサンプルを出してみてください。単純な例では、分類テーブル、取込テーブルとも、F1、F2、F3 というフィールドがあるとします。分類テーブルと取込テーブルの間で、F1、F2、F3 のすべてが一致していなければ、それは分類データにはないデータとみなして取り込むのであれば、まず、分類データを元にクエリを作ります。クエリには、F1、F2、F3 のほかにキー: [F1] & [F2] & [F3]のようなフィールドを設けます。取込データについても同じようなクエリを作り、クエリ同士を、上記のキーという項目を使って突合させます。その上で、分類データにないレコードを、追加クエリで取り込みます。> 取込テーブル内に分類データと対応するデータがない場合、NULLとしてテーブルを抽出する方法でもいいのですが、出来れば、対応する分類データがないとエラー表示し、分類テーブルを追加出来るようなフォームを表示させたいです。その場合、フォームの元になるテーブルを作成することになると思います。クエリで不一致項目の有無を調べ、不一致のものがあった場合、ＶＢＡでワーク用のテーブルを作成し、取込テーブルのフィールドを表示させます。そして、フォームで必要な入力を行った後、ワークテーブルの内容を分類テーブルに取り込み、ワークテーブルを削除するという手順になるのではないでしょうか。

Webサービス by Yahoo! JAPAN