アクセス：データ型の一括変換

1件のフィールドが240あるデータをエクセルから取り込んだとき、整数値であるべきデータ型がテキスト型となってました。一括で変換できる技はないでしょうか？でなければテーブルをデザインビューで開いて一つ一つクリックで変換するしかありません。

No.1 ベストアンサー 回答者： 16August 回答日時： 2006/09/25 17:51

どのくらい楽になるかわかりませんが、

ADOXでテーブル名をひとつずつ拾って、
ADOでALTER文をかければできると思います。

Dim Conn As New ADODB.Connection
Dim strSQL As String
Set Conn = CurrentProject.Connection

do
'テーブル名取得
・・・・・・・・・・・
strSQL = "alter table テーブル名 alter column [フィールド名]integer;"
Conn.Execute strSQL
loop

のように。

テーブル名取得に関しては
http://www.accessclub.jp/ado/adox/04.html

DAOでもできると思います。

No.3 回答者： noname#79209 回答日時： 2006/09/26 18:06

EXCELのセルは数値でも文字でも入ってしまうので、「０の場合表示したくない」ときに数式をIF(A1=0,"",A1)としてしまうと、

ゼロの場合は文字になってしまうので、Access側でも文字型フィールドとして認識されてしまう場合もあります。
これをEXCEL側の表示書式で"#,###;-#,###;"などとして「０」値を表示させない方式にすれば、
ACCESS側では「０」即ち数値フィールドとして認識してくれるはずです。
まずEXCELでこの辺りを確認されることをお勧めします。

No.2 回答者： 16August 回答日時： 2006/09/25 17:54

NO1です。

　
テーブルがたくさんあるのではなくて、フィールドがたくさんあるのでしたら、

テーブル名を取得のところを
フィールド名を取得ということになります。

http://www.geocities.jp/cbc_vbnet/ADOX/table.htm …

テーブルがひとつなら、読み込みなおしたほうが早いかも。