Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9228 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【27962】txtファイルを配列へ読み込み ｏｇ 05/8/25(木) 14:26 質問[未読]
【27964】Re:txtファイルを配列へ読み込み とおりすがり 05/8/25(木) 14:59 質問[未読]
【27967】Re:txtファイルを配列へ読み込み ｏｇ 05/8/25(木) 16:34 発言[未読]
【27968】Re:txtファイルを配列へ読み込み とおりすがり 05/8/25(木) 16:37 発言[未読]
【28007】Re:txtファイルを配列へ読み込み ｏｇ 05/8/26(金) 9:50 お礼[未読]
【28008】Re:txtファイルを配列へ読み込み とおりすがり 05/8/26(金) 10:06 発言[未読]
【28169】Re:txtファイルを配列へ読み込み ｏｇ 05/8/30(火) 9:35 発言[未読]
【28199】Re:txtファイルを配列へ読み込み とおりすがり 05/8/30(火) 18:47 発言[未読]
【28593】とおりすがりさんへ ｏｇ 05/9/9(金) 16:49 発言[未読]
【28200】Re:txtファイルを配列へ読み込み とおりすがり 05/8/30(火) 19:21 発言[未読]
【28458】Re:txtファイルを配列へ読み込み ｏｇ 05/9/7(水) 11:08 お礼[未読]
【28595】とおりすがりさんへ ｏｇ 05/9/9(金) 17:08 発言[未読]
【27962】txtファイルを配列へ読み込み
質問  ｏｇ  - 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ファイルは同じものを使っています。
すいません。よろしくお願いします。
【27964】Re:txtファイルを配列へ読み込み
質問  とおりすがり  - 05/8/25(木) 14:59 -
引用なし
パスワード
   あちらではマルチポスト禁止です。

こちらで続けるのでしたら、あちらを閉じてください。
【27967】Re:txtファイルを配列へ読み込み
発言  ｏｇ  - 05/8/25(木) 16:34 -
引用なし
パスワード
   ご指摘ありがとうございました。
「あちら」をクローズしました。あせっていたので心情を考えずに投稿してしまいました。ご迷惑をおかけしました。
【27968】Re:txtファイルを配列へ読み込み
発言  とおりすがり  - 05/8/25(木) 16:37 -
引用なし
パスワード
   あちらはクローズされてませんが？？
【28007】Re:txtファイルを配列へ読み込み
お礼  ｏｇ  - 05/8/26(金) 9:50 -
引用なし
パスワード
   このコードには問題がないことが分かりました。
シートの形式指定のところに非互換があったようで自己解決しました。
お騒がせして申し訳ありませんでした。

今回始めての投稿でしたが勉強になりました。
そこまでマルチポストにこだわるとは思いもよらず、
また、回答・ヒントをいただけず残念でした。
当方が約束事を守らなかったからですね。
また、教えてください。

＃あちらって何かわからなくなりました。
＃とにかくすべてクローズしました。
【28008】Re:txtファイルを配列へ読み込み
発言  とおりすがり  - 05/8/26(金) 10:06 -
引用なし
パスワード
   私がしっているマルチ先はmougだけですが、
それ以外にもマルチされてたようですね。

http://www2.moug.net/bbs/exvba/20050825000010.htm
【28169】Re:txtファイルを配列へ読み込み
発言  ｏｇ  - 05/8/30(火) 9:35 -
引用なし
パスワード
   そこまでチェックされるほどの熱心さをレスに向けて欲しいと思うのはわたしだけでしょうか？
それに「とおりすがり」などと匿名性を強調するようなHNでは説得力が半減し返って反発を感じます。
まあ、この類のウォッチャー（とわたしは呼んでますが）はどこの掲示板にでもいますけどね。まったくうんざりです。

管理人様へ。
このたびは無作法なことでお騒がせしました。
今後はマルチポストをしないことをお約束します。
【28199】Re:txtファイルを配列へ読み込み
発言  とおりすがり  - 05/8/30(火) 18:47 -
引用なし
パスワード
   ネチケット違反を指摘したら逆切れですか？

まあ、交通マナーを指摘したら逆切れするす
る人間がいますのでネット社会でも同じ、と
いうことですね。

まともな人間なら交通マナーを指摘されたら
交通事故に繋がる前に指摘してくれてありが
とう、と考えると思うのですがね〜。

まあまともな意見の持ち主ではないようなの
で議論にならないでしょうね。
【28200】Re:txtファイルを配列へ読み込み
発言  とおりすがり  - 05/8/30(火) 19:21 -
引用なし
パスワード
   あちらで"いっちゃん"さんからレスが付いてたのに
"自己解決しました"のみで感謝の言葉が無いですね。

要するにマナー違反であろうと何であろうと自分の
問題が解決しさえすればいい、という自己中心的な
人間であると判断しました。
もう議論の余地は無いようです。これ以上の書き込
みは自己中心的な人間に対しては何の効果も無いの
でレスはこれ以上いたしません。
わが道を行ってください。
【28458】Re:txtファイルを配列へ読み込み
お礼  ｏｇ  - 05/9/7(水) 11:08 -
引用なし
パスワード
   「とおりすがり」さんへ。
伝えたいことがありますので、こちらへメールをお願いします。
↓
og32@hotmail.co.jp
【28593】とおりすがりさんへ
発言  ｏｇ  - 05/9/9(金) 16:49 -
引用なし
パスワード
   メールをいただきたいと書き込みしましたがいただけなかったのでここに書き込みます。これは反論ではありません。わたしに対する誤解と偏見に満ちた書き込みを拝見したので、事実と異なることを知っていただきたいと思ったからです。

>ネチケット違反を指摘したら逆切れですか？
>まあ、交通マナーを指摘したら逆切れするす
>る人間がいますのでネット社会でも同じ、と
>いうことですね。
どうも勘違いをされているようですね。
わたしは逆切れなどしておりませんが。
「とおりすがり」さんがあちこちの掲示板をチェックされているその熱意をわたしや他の方へレスされる方へ向けられたらどんなに世のためになるか、と思ったのです。単なる疑問を口にしただけなんですが。
わたしのためにマルチポストは禁止、と言っていただいたことについてはすでに反応しておりますので、このような言い回しになってしまいました。気を悪くされたようですいませんでした。

>
>まともな人間なら交通マナーを指摘されたら
>交通事故に繋がる前に指摘してくれてありが
>とう、と考えると思うのですがね〜。
ご指摘はごもっともです。
ただ、交通マナーを指摘されるのは結構ですが、
その方が本質をわきまえていなければ説得力ゼロですよね。
失礼ですが、「とおりすがり」さんはここで質問に対して回答されたことはおありでしょうか？わたしにはルールだけを見張っているように見受けられたので、レスがつかないこともあって皮肉に書き込んでしまいました。申し訳ありませんでした。
わたしの思いは次のとおりです。
ルールだから、マナーなんだから、というのは末端の警官が規則規則という言い回しにそっくりです。裁判の判例にも状況を踏まえた情状酌量があるとおり、規則を鵜呑みにした運用は現実的ではありません。もちろん、わたしの切羽詰った状況がお分かりになるわけもないのでマナー違反をしたわたしが悪いのです。しかし、マルチポストをする側の心情も少し理解していただきたかったのです。この時点でわたしはマルチポストがマナー違反とは知らずにしておりましたから、ご指摘いただいたときには慌てました。なりふり構わず投稿していましたので。
もうおわかりだと思いますが、違反者にも言い分があるということです。ですからこのことで、一方的に逆切れと切り捨てられたことが残念でなりません。
少しだけ違反者の側に立って想像していただけたならマルチポストのことだけでなく、質問の補足だとか提案だとか、内容について示唆いただけなかっただろうか？と思っておりました。しかし、すべてはわたしのルール違反から出ていることなのでここまで期待するのはあつかましいということなんでしょうね。

わたしの人間性に言及されていますが、そのことについては異論があります。
わたしはご指摘いただいたとき、お礼を申し上げたはずです。その後、すぐに反応して別の掲示板の質問はクローズしております。その際にひとつ失念しておりましたので、再度のご指摘でクローズしました。しかし、あまりにねちねちと（すいません、適当な表現を思いつきません）しつこくご指摘をうけて、正直ムっとしました。その感情が出てしまいました。不適切な言葉でした申し訳ありませんでした。

>
>まあまともな意見の持ち主ではないようなの
>で議論にならないでしょうね。
わたしはマルチポストについては、その後このサイトの注意を読んで十分に理解しています。そのことについてのご心配は無用です。
もっとも、この掲示板の主旨ではないのでこのような議論をするならわたしにメールをいただきたかったです。
なので、メールをいただきたいと掲示板に書きました。

先にも書きましたが、今後は一切マルチポストはいたしません。
ご指摘は感謝しております。今後もご指導をお願いします。
【28595】とおりすがりさんへ
発言  ｏｇ  - 05/9/9(金) 17:08 -
引用なし
パスワード
   メールをいただきたいとお願いしましたがいただけませんでしたので書き込みします。この掲示板の主旨からは外れるので躊躇しておりました。

>あちらで"いっちゃん"さんからレスが付いてたのに
>"自己解決しました"のみで感謝の言葉が無いですね。
申し訳ありませんでした。ご指摘のとおりです。
その後、お礼をと思いましたが質問自体がクローズされてしまい書き込めず今日に至っています。配慮のないことをいたしました。反省しております。

>
>要するにマナー違反であろうと何であろうと自分の
>問題が解決しさえすればいい、という自己中心的な
>人間であると判断しました。
>もう議論の余地は無いようです。これ以上の書き込
>みは自己中心的な人間に対しては何の効果も無いの
>でレスはこれ以上いたしません。
>わが道を行ってください。
わたしの至らなさがこのような誤解を与えてしまったようで残念ですし不快な思いをされたことについては申し訳なく思っています。
ただ、一方的にわたしのことを自己中心的と言われていますので、事実とは違うことを知っていただきたくて書き込みしました。
わたしは自分のことを自己中心的だとは思っておりません。
マナー違反はそのとおりです。レスに対するお礼もしておりません。
しかし、マルチポストに関わる問題のひとつに質問をそのまま放っておくというのがありましたが、わたしはそれはしておりません。自己解決したとのご報告もいたしました。このことでわたしが自己中心的でないことをお分かりいただけるものと思います。
「とおりすがり」さんは、
わたしがウォッチャーなどと非難したことで腹を立ててこのような決め付けの内容を書き込まれたのではないでしょうか？
このことについては反省しております。
先の書き込みでも書きましたが、少々事情があって焦っておりましたので感情がでてしまいました。重ねてお詫びします。
ただ、
わたしへの人間性に対する攻撃は「とおりすがり」さんが言われる「ネチケット違反」に相当すると思いますがいかがでしょうか？
なまいきなこと申しました。
また、ご指導をお願いします。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9228 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free