|
初めて投稿します。
以下のコードを実行すると配列のセルの値がすべて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ファイルは同じものを使っています。
すいません。よろしくお願いします。
|
|