Accessのマクロ・VBAにてCSVファイルを
インポートしたいのですが、うまくいきません。
DoCmd.TransferText acImportDelim, , "C:\Documents and Settings\yoshimi\My Documents\顧客マスタテーブル.csv", False
現在のコードです。
「オブジェクト'0.txt’が見つかりませんでした。
オブジェクトが存在していること、名前やパス名が正しいことを確認
してください。」
とエラーが表示されます。
過去ログを検索し、似たようなものを見つけ同じようにしたつもりです。
http://okweb.jp/kotaeru.php3?q=1691138
(回答のANo.1の定義の保存場所が分からずしていません)
どこがおかしいのか教えていただきたいです・・・
No.1ベストアンサー
- 回答日時:
インポート先(保存先)となるテーブルが指定されていないようです。
その分、カンマ(,)が1個少ないなっているために引数がずれて判断され、インポートするファイルが「C:\~顧客マスタテーブル.csv」ではなく、「0.txt」だと判断されているのではないかと思います。
(「False」がファイル名と解釈され(False=0)、テキストファイルと解釈されて拡張子「.txt」をつけてエラー表示された、と)
とりあえず、「Test」テーブルを作成し(フィールドは仮でF1,F2の2つでテキスト型)、「,"C:\~」の前に「,"Test"」を入れて実行してみて下さい。
(csvファイルが3列以上の構成であれば、「テーブル'Test'にはF3フィールドがありません」とのエラーが表示されるようになりると思いますので、適宜F3,F4,・・・と、必要な列数を追加して下さい:定義のかわりです)
この回答への補足
ご返答ありがとうございます。
遅くなり申し訳ありません。
「込み合っています」のメッセージばかりで、書き込めませんでした・・・
教えていただいたように、下記のようになおしました。
Private Sub 商事部門_Click()
On Error GoTo 商事部門_Err
DoCmd.TransferText acImportDelim, , , "Test", "C:\Documents and Settings\yoshimi\My Documents\顧客マスタテーブル.csv", False
商事部門_Exit:
Exit Sub
商事部門_Err:
MsgBox Error$
Resume 商事部門_Exit
End Sub
今度は、
「指定した式は、いずれかの引数とデータ型が対応していません」と
表示されました。
念のため、csvのファイルを2列で文字のみのデータにしてみましたが
同じエラーが表示されます。
何がいけないのでしょうか?
No.3
- 回答日時:
No.1です。
すみません、
> 「,"Test"」
ではなく、
> 「"Test",」
でした。お詫びの上、訂正いたします。
大変失礼致しました。
ありがとうございました。
(「False」がファイル名と解釈され(False=0)、テキストファイルと解釈されて拡張子「.txt」をつけてエラー表示された
エラーの理由を教えていただいて勉強できました。
&うまくいきました。m(_ _)m
No.2
- 回答日時:
手動でインポートしインポートの定義ファイルの作成してください。
テーブルインポート→テーブル選択新規⇒区切り記号つき→カンマ、先頭行をフィールド名にチェック
→新規テーブルに保存→各フィールドの型設定→主キーを設定をチェック
⇒「これでデータをインポートするための設定は・・・」となります。
ここで画面の設定ボタンをクリック→インポートの定義ファイルを保存します。
DoCmd.TransferText acImportDelim, "インポートの定義ファイル名","Accessのテーブル名","テキスト名.csv"
DoCmd.TransferText acImportDelim,"インポートの定義ファイル", _
"Test", "C:\Documents\顧客マスタテーブル.csv", False
これでどうでしょうか?参考まで
インポートの定義ファイルを保存
の方法が分からず困っていました。
インポートする際のルールを先にきめておくようなもの・・と
理解しました。(うまく言えませんが)
インポートできました。
ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) access,vbaでフォルダ内のファイルをテーブルにインポート、ファイル名もフィールドに追加したい 1 2022/08/31 11:11
- Excel(エクセル) エクセルでcsvファイルを開いてVBAを使いたい 7 2022/04/28 11:12
- Visual Basic(VBA) DisplayAlertsブロパティで ”実行時エラー424オブジェクトが必要です” 5 2022/05/15 18:02
- Visual Basic(VBA) VBA アドインについて お詳しい方 ご教授をお願いします。 相談事項 現在以下の対応を実施した所、 1 2022/11/02 16:53
- Visual Basic(VBA) エクセルのマクロについて教えてください。 7 2023/07/04 09:18
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
- Visual Basic(VBA) vbaマクロについて 次のようなマクロを組みたいです。 自分は初心者なので全くわかりません。 詳しく 8 2023/05/18 18:38
- Access(アクセス) Access2016のExcelインポートの機能のことで教えてください 1 2022/09/11 14:58
- Excel(エクセル) 【マクロ】webアドレスにて指定されたCSVファイル【excelソフト表示】を印刷する件 1 2023/02/15 01:52
- Excel(エクセル) CSVファイルがカンマ区切りにならない。対処法を教えていただきたいです。 仕事でSMS一斉送信ができ 2 2022/07/01 21:24
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【Access】クエリで抽出...
-
SQLSever 一括インポートについて
-
Wordの文章をExcelに内容ごとに...
-
Excelのデータ(数字)をテキス...
-
CSVファイルでの数字表記のエラー
-
Accessのテーブルにデー...
-
複数eml形式のBecky!への一括イ...
-
アクセスで小数点以下1桁まで...
-
osv形式ファイル
-
ダブルクォーテーション囲いカ...
-
ACCESS CSV形式でエクスポート...
-
多数のeml形式ファイルを1つの...
-
Excelでhtml形式のテキストを表...
-
AccessのマクロでCSVファイルを...
-
差し込み印刷の元データファイ...
-
ISOファイルとMDSファイル
-
ACCESSでデータ読み取り専用を...
-
EXCELが勝手に「読み取り専用」...
-
Word差し込み印刷、フォルダの...
-
Word2000でvlookup
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【Access】クエリで抽出...
-
Wordの文章をExcelに内容ごとに...
-
Excelのデータ(数字)をテキス...
-
Excelでhtml形式のテキストを表...
-
複数eml形式のBecky!への一括イ...
-
SQLSever 一括インポートについて
-
アクセス(ACCESS) インポート...
-
ダブルクォーテーション囲いカ...
-
アクセス2007でのインポートエ...
-
多数のeml形式ファイルを1つの...
-
VBA 複数のCSVファイルを一度...
-
ACCESS CSV形式でエクスポート...
-
複数のメールファイルを1つの...
-
アクセスで小数点以下1桁まで...
-
ACCESS でインポートフ...
-
エクセル2000で65536行を超える...
-
[VBA]csvファイルを開いて保存...
-
CSVファイルを固定長のテキスト...
-
複数のエクセルファイルをアク...
-
ACCESS複数テキストファイルを...
おすすめ情報