Excel VBA質問箱 IV

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

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


53586 / 76736 ←次へ | 前へ→

【27962】txtファイルを配列へ読み込み
質問  og  - 05/8/25(木) 14:26 -

引用なし
パスワード
   初めて投稿します。
以下のコードを実行すると配列のセルの値がすべて1900/01/01になってしまいます。最初のデータは日付、それ以降は数値のはずなんですが。
どなたかお教えいただけないでしょうか?
なお、このコードはExcel97のもので今はOffice2002で実行しています。
これを作ったものがすでに退職していて社内にもわかるものがおりません。
困っています。よろしくお願いします。

ChDir "C:\AAA"
Workbooks.OpenText Filename:="C:\AAA\BBB.TXT", _
StartRow:=1, _
DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(4, 1), Array(10, 1), Array(15, 1), _
Array(35, 1), Array(76, 1), Array(79, 1), Array(83, 1), _
Array(124, 1), Array(130, 1), Array(135, 1), Array(155, 1), Array(160, 1) _
)


なお、txtファイルの中身はこのような感じです。
---------------次のlineから
1234
111 1111 2005/08/25 漢字漢字漢 89
1 12345 1234 1,234,567 漢字 2 漢字(漢字漢字) 12345 1234 1,234,567
3 漢字漢 12345 1234 12,345
4 漢字漢
-------抜粋
こんな感じなんですが。数字と文字はすべて置き換えていますが文字数は合わせています。スペースが詰まってしまって実際とはかなり違ってしまいました。
今でも97で実行するとうまく行きます。txtファイルは同じものを使っています。
すいません。よろしくお願いします。

0 hits

【27962】txtファイルを配列へ読み込み og 05/8/25(木) 14:26 質問
【27964】Re:txtファイルを配列へ読み込み とおりすがり 05/8/25(木) 14:59 質問
【27967】Re:txtファイルを配列へ読み込み og 05/8/25(木) 16:34 発言
【27968】Re:txtファイルを配列へ読み込み とおりすがり 05/8/25(木) 16:37 発言
【28007】Re:txtファイルを配列へ読み込み og 05/8/26(金) 9:50 お礼
【28008】Re:txtファイルを配列へ読み込み とおりすがり 05/8/26(金) 10:06 発言
【28169】Re:txtファイルを配列へ読み込み og 05/8/30(火) 9:35 発言
【28199】Re:txtファイルを配列へ読み込み とおりすがり 05/8/30(火) 18:47 発言
【28593】とおりすがりさんへ og 05/9/9(金) 16:49 発言
【28200】Re:txtファイルを配列へ読み込み とおりすがり 05/8/30(火) 19:21 発言
【28458】Re:txtファイルを配列へ読み込み og 05/9/7(水) 11:08 お礼
【28595】とおりすがりさんへ og 05/9/9(金) 17:08 発言

53586 / 76736 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free