色の知識で人生の可能性が広がる!みんなに役立つ色彩検定 >>

お世話になります。
ACCESSのインポート機能で、以下のテキストをインポートしようと
しています。

001,aaaaa_____,99999
002,bbbbbbb___,99999
003,ccc_______,99999
(_は空白を意味します。)
この2カラム目が空白を含めて10バイトなのですが、
固定長でインポートしても、カンマ区切りでインポートしても
インポート後のテーブルには後ろの空白はカットされてしまいます。

VARCHARではなくCHARのイメージでインポートする方法はありますでしょうか。
よろしくお願いします。

教えて!goo グレード

A 回答 (1件)

自力でインポートするしかないようですね。


Sub インポート()
Dim SQL AS String
Dim 行 AS String
Dim 項目
'テーブルのデータを消去(必要に応じて)
CurrentDb.Execute "DELETE * FROM hoge"
'テキストファイルを開く
Open "C:\~\hoge.txt" For Input As #1
'EOFまでのループ
Do Until EOF(1)
    '1行読み込み
    Line Input #1, 行
    'カンマで分離
    項目 = Split(行, ",")
    'SQL構築
    SQL = "INSERT INTO hoge VALUES"
    SQL = SQL & "('" & 項目(0) & "'"
    SQL = SQL & ",'" & 項目(1) & "'"
    SQL = SQL & "," & 項目(2) & ")"
    'SQL実行
    CurrentDb.Execute SQL
Loop
Close
End Sub
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

教えて!goo グレード

関連するカテゴリからQ&Aを探す


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング