![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
![](http://oshiete.xgoo.jp/images/v2/common/profile/M/noimageicon_setting_10.png?e8efa67)
お世話になります。
ACCESSのインポート機能で、以下のテキストをインポートしようと
しています。
001,aaaaa_____,99999
002,bbbbbbb___,99999
003,ccc_______,99999
(_は空白を意味します。)
この2カラム目が空白を含めて10バイトなのですが、
固定長でインポートしても、カンマ区切りでインポートしても
インポート後のテーブルには後ろの空白はカットされてしまいます。
VARCHARではなくCHARのイメージでインポートする方法はありますでしょうか。
よろしくお願いします。
No.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
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
【お題】甲子園での思い出の残し方
「球場の砂を持って帰る」はもう古いと思った高校球児が、甲子園で負けた際に、思い出に残そうと思って行ったこと
-
アクセスでのテキストデータ取り込みについて
その他(データベース)
-
インポート時のエラー「データ型の変換エラー」
Access(アクセス)
-
ACCESSのデータに自動で半角スペースを入れたい
その他(データベース)
-
-
4
アクセスで数値型のフィールドにNullをいれたい
その他(データベース)
-
5
ACCESS2007インポート時の空白行列削除につ
その他(Microsoft Office)
-
6
Access で項目にブランク(スペース)を入力出来ないのですが?
Word(ワード)
-
7
エクセルからアクセスにインポートすると、エラーが出てしまいます。原因を教えていただけませんか。
Access(アクセス)
-
8
Access インポート
Access(アクセス)
-
9
Accessにインポートしたら並び順が変わっちゃった
Access(アクセス)
-
10
Access2000 テキストデータのインポート
Access(アクセス)
-
11
Accessにインポートしようとするとエラーに
Access(アクセス)
-
12
【ACCESS/必須条件とOR条件を組み合わせる】
その他(Microsoft Office)
-
13
Access クエリ実行が急に非常に遅くなりました。
Access(アクセス)
-
14
ACCESSにEXCELからインポートした時に先頭に空列ができる
Excel(エクセル)
-
15
アクセスで入力したデータの順番が変わってしまいます
その他(ビジネス・キャリア)
-
16
Accessのマクロでモジュールを実行させたい。
Access(アクセス)
-
17
計算結果が0なら空白にしたい。ただし・・・
Access(アクセス)
-
18
ACCESS VBAの実行時エラーなんですが
PowerPoint(パワーポイント)
-
19
Access 同じデータをたくさんのレコード(同一列)に一度に入力するには
Access(アクセス)
-
20
ACCESS クエリ→フォーム フィルターをかけたデータのみエクスポートしたい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel 2019 のピボットテーブル...
-
Access テキスト型に対する指定...
-
エクセルVBAで5行目からオート...
-
Oracle 2つのDate型の値の差を...
-
セルの右クリックで出る項目を...
-
必須入力項目と入力必須項目
-
SELECT文でLEFT関数を使うと未...
-
BIOSでAHCIに設定したいが、項...
-
SUBSTRING 関数に渡した長さの...
-
空白をそのままインポートする...
-
最近使った項目
-
Access又はExcelで256項目を超...
-
指定した項目の列削除
-
ORACLEでLONG項目からCHAR項目...
-
エクセルグラフの凡例スペース
-
PhoenixBIOSの設定について
-
条件に一致した列の非表示の仕...
-
backlogガントチャートのグルー...
-
jwwのクロスラインカーソルの角...
-
少数部の桁数の求め方
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel 2019 のピボットテーブル...
-
エクセルVBAで5行目からオート...
-
Oracle 2つのDate型の値の差を...
-
Access テキスト型に対する指定...
-
セルの右クリックで出る項目を...
-
エクセルグラフの凡例スペース
-
VBAで複数の数式セルを最終行ま...
-
複数のレコードを1つのレコード...
-
SUBSTRING 関数に渡した長さの...
-
ORACLEでLONG項目からCHAR項目...
-
必須入力項目と入力必須項目
-
Accessで数値型にNULLをInsert...
-
空白をそのままインポートする...
-
【至急】Accessのフィールドの...
-
2行目を表示できますか?
-
APN設定について教えていただけ...
-
access2000:フォームで入力し...
-
Accessレポートで特定条件で改...
-
他テーブルで一致する列から名...
-
datファイルからaccessにインポ...
おすすめ情報