Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1118 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【8714】インポート(超初心者です) とくなが 06/10/20(金) 14:54 質問[未読]
【8718】Re:インポート(超初心者です) まさ7251 06/10/20(金) 23:03 発言[未読]
【8719】Re:インポート(超初心者です) とくなが 06/10/21(土) 9:16 質問[未読]
【8720】Re:インポート(超初心者です) まさ7251 06/10/21(土) 13:39 発言[未読]
【8714】インポート(超初心者です)
質問  とくなが  - 06/10/20(金) 14:54 -
引用なし
パスワード
   AccessVBAを初めて使っています。
宜しくお願いします。

エクスポート処理を自動化したいと思っています。
取り込み元のtxtファイルは5フィールドあり、
3フィールドがスペース区切り、2フィールドが
カンマ区切りになっております。

過去ログを参考に以下のコードを使いましたが、
フィールドは3つになり、文字列は指数表示に
なってしまいました。

Sub インポート()

Dim FName As String　　　　 '対象テキストファイルのフルパス
Dim TName As String　　　　 '取り込み先のテーブル名


　　FName = "C:test\Inport.txt"
　　TName = "test"


　　DoCmd.TransferText acImportDelim, "", TName, FName, True
　
　　
End Sub

フィールド名を、各test1,test2,test3,test4,test5
とし、日付、時刻、文字列、文字列、文字列として
正確にインポートするためには、どのようにすれば
良いでしょうか？
【8718】Re:インポート(超初心者です)
発言  まさ7251  - 06/10/20(金) 23:03 -
引用なし
パスワード
   >エクスポート処理を自動化したいと思っています。
>取り込み元のtxtファイルは5フィールドあり、
>3フィールドがスペース区切り、2フィールドが
>カンマ区切りになっております。

>フィールド名を、各test1,test2,test3,test4,test5
>とし、日付、時刻、文字列、文字列、文字列として
>正確にインポートするためには、どのようにすれば
>良いでしょうか？

TransferText では無理だと思います。
手作業でインポートを実行しようとしても、区切り文字を
２種類も指定することは出来ませんし。

テキストファイルとして開き、１行ずつ読み込み、
スペース区切りおよびカンマ区切りで分割し、
テーブルへ追加してみてはどうでしょうか。
テーブルはあらかじめ用意していたほうがやりやすいです。
【8719】Re:インポート(超初心者です)
質問  とくなが  - 06/10/21(土) 9:16 -
引用なし
パスワード
   ▼まさ7251 さん：
アドバイスありがとうございます。

よく分かってなく、恥ずかしい質問で申し訳ないのですが、

>>エクスポート処理を自動化したいと思っています。

↑間違えてました^_^;　インポート処理です。。

>テキストファイルとして開き、１行ずつ読み込み、
>スペース区切りおよびカンマ区切りで分割し、

↑上記動作はAccess上でコードを書いて実行できるのでしょうか？
【8720】Re:インポート(超初心者です)
発言  まさ7251  - 06/10/21(土) 13:39 -
引用なし
パスワード
   >>テキストファイルとして開き、１行ずつ読み込み、
>>スペース区切りおよびカンマ区切りで分割し、
>
>↑上記動作はAccess上でコードを書いて実行できるのでしょうか？

出来ます。

ファイルを開く：FreeFile、Open、Close
１行ずつ読み込む：Line Input、
分割：Split
辺りを調べてみてください。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1118 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1078214
(SS)C-BOARD v3.8 is Free