締切済み

拡張子のないファイルをＡＣＣＥＳＳにインポート

2008/03/15 13:13

ACCESS2003についての質問です。データをインポートする際、拡張子の付いていないファイル（データの内容は区切り記号付きテキストファイルで表示することができます。）をＡＣＣＥＳＳにインポートする方法を教えて下さい。 .txt や　.csv などの拡張子をつればＡＣＣＥＳＳでインポートできるファイルになるのですがその手間を省けないか？と言われています。それ位してくれよと思うのですが・・・ＶＢＡは少し勉強しているのですが、ＶＢＡを利用すればＡＣＣＥＳＳ上でファイルに拡張子を付け加える事は可能になるのでしょうか？教えてください。

ts0417
お礼率35% (5/14)

Access（アクセス）
回答数4
ありがとう数2

みんなの回答 （4）
専門家の回答

みんなの回答

noname#79209

2008/03/18 13:41 回答No.4

DoCmd.TransferText,acImportDelim,インポート定義名,テーブル名,ファイル名（完全パス名）,・・・なので、 DoCmd.TransferText , acImportDelim, , "Tスタッフマスタ", "C:\Documents and Settings\taro\デスクトップ\スタッフマスタ" で大丈夫なはずですが、取り込むデータとテーブルのフィールドの属性が合致していないようなエラーメッセージですね。 > ファイルの中身は > 「101,"早川　守",2004/5/1,"田中物流","梱包作業"」と言われているので、「Tスタッフマスタ」のフィールドが数値（整数か長整数）型、テキスト型、日付/時刻型、テキスト型、テキスト型になっているか確認してください。

noname#79209

2008/03/16 01:55 回答No.3

多分Accessで手作業でインポートする際に、ファイルの種類の選択肢中に「拡張子なし」あるいは「全てのファイル」がないので、拡張子なしのファイルが選択できなということでしょう。 AccessのVBAでは拡張子が無くてもインポート出来ます。フィル名が解っていて、かつ区切り記号も解っているなら、 DoCmd.TransferText,acImportDelim,インポート定義名,テーブル名,ファイル名（完全パス名）,・・・で可能です。詳しくは以下を．．． http://www.accessclub.jp/samplefile/help/help_162_1.htm

質問者

お礼 2008/03/17 22:42

以下のコードを試してみましたが「いずれかの引数とデータ型が対応していません。」というエラーが出てきました。（デスクトップ上にある拡張子の無い「スタッフマスタ」ファイルをテーブル「Tスタッフマスタ」にインポートする） Private Sub cmdインポート_Click() DoCmd.TransferText , acImportDelim, , "Tスタッフマスタ", "C:\Documents and Settings\taro\デスクトップ\スタッフマスタ" End Sub ファイルの中身は「101,"早川　守",2004/5/1,"田中物流","梱包作業"」上記の様なレコードです。 vizzarさんの方法を出来るようになりたいので間違いを教えていただけませんか？

imogasi
ベストアンサー率27% (4737/17070)

2008/03/15 20:24 回答No.2

メモ帳で氏名,住所,年齢、所属 a,sd,f,g,hgg sd,f,gh,jku （内容はでたらめ）拡張子なしで「ＣＳＶ拡張子」という名で保存した。どんな名前でも良い。拡張子をつけない。ーーアクセスのモジュールで下記をつくり Sub test04() Name "C:\Documents and Settings\XXX\My Documents\CSV拡張子" As "C:\Documents and Settings\XXX\My Documents\CSV拡張子.csv" End Sub を実行した（ｘｘｘの部分はユーザー名）ーーメモ帳で確認すると今度はファイル種類を *.csv と指定して探せる。メモ帳画面に上記と同じデータがでた。ーーー Name　変更前　変更後　　でファイル名が変えられる。拡張子も含めてがファイル名である。ーー私にとって余りやる作業では無いので、質問者で確認してみてください。後はテキストのインポートのアクセスVBAコードを続けて書けばよい。