空白をそのままインポートする方法について

質問

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

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

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

回答No.1

nda23 · ベストアンサー

自力でインポートするしかないようですね。
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)
　　　　'１行読み込み
　　　　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