Excel VBA質問箱 IV

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

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


35071 / 76732 ←次へ | 前へ→

【46864】Re:テキストファイルを順次読み込ませたい
質問  モスキート  - 07/2/19(月) 12:13 -

引用なし
パスワード
   ▼neptune さん:
>▼モスキート さん:
>こんにちは
>横から失礼します。
>
>>紹介されたURLを、別のレスで書いていただいたプログラムと照らし合わせて読み、自分なりに書き換えてみましたが、どうしてもエラーが出て動きませんでした。
>>その時のエラーメッセージは「400」でした。
>>私には意味はわかりませんでしたが…
>どのようなプログラムで、どのような場所で出たか、 400と共に
>その説明も表示されたはずですが、その情報も必要です。
>
>>すいませんがもう少しだけ詳しく、プログラムの各部位が何を表しているかを
>>教えていただけないでしょうか?
>>よろしくお願いします。
>ご自分でどこまで理解に勤めましたか?理解できない部分を訊ねましょう。
>サンプルをもらったのだから極力自分での理解に勤めましょう。
> 書いた人は簡単に利用するためのプログラムを書いたのではなく、勉強の
>元となるものを書いてくれたのですから。
> で、なければ細かく理解せずにその後何らかの変更が必要になった
>場合、困るのはあなたです。


レスありがとうございます。
少々他力本願の姿勢が出てしまっていたようなので反省します。

まず「400」のエラーメッセージですが、
そのメッセージボックスには「400」だけしか書かれていなかったです。
ただ、かみちゃんさんに書いていただいたプログラムを
念のためもう一回、そのままコピペして動かしてみたところ
意図したファイルではありませんでしたが
狙い通りの処理がされました。
デスクトップに置いてある白紙のエクセルファイルにマクロを書いて動かしたところ
デスクトップに放置してあったテキストファイルが読み込まれていたようでした。

なお、かみちゃんさんから紹介していただいたサイトと
私が勉強に見ているサイトも見ながらサンプルを見直していましたが
8行目の

For Each Fl In FSO.GetFolder(ThisWorkbook.Path).Files


10行目と11行目の
  If UCase(FSO.GetExtensionName(Fl.Path)) = "TXT" Then
   With FSO.GetFile(Fl.Path).OpenAsTextStream

の.Pathのところがよくわかりませんでした。
ここはどのように変えれば良かったのでしょうか?
読み込むテキストファイルがまとめてあるフォルダの場所を
任意のフォルダに変えたいのですが
任意のフォルダのアドレスを10行目と11行目のFL.Pathと入れ替えても
読み込まれませんでした。
0 hits

【46846】テキストファイルを順次読み込ませたい モスキート 07/2/18(日) 20:47 質問
【46847】Re:テキストファイルを順次読み込ませたい かみちゃん 07/2/18(日) 21:09 発言
【46851】Re:テキストファイルを順次読み込ませたい かみちゃん 07/2/18(日) 21:41 発言
【46853】Re:テキストファイルを順次読み込ませたい モスキート 07/2/19(月) 8:04 質問
【46859】Re:テキストファイルを順次読み込ませたい neptune 07/2/19(月) 10:22 発言
【46864】Re:テキストファイルを順次読み込ませたい モスキート 07/2/19(月) 12:13 質問
【46867】Re:テキストファイルを順次読み込ませたい neptune 07/2/19(月) 13:07 回答
【46876】Re:テキストファイルを順次読み込ませたい モスキート 07/2/19(月) 15:19 お礼
【46877】Re:テキストファイルを順次読み込ませたい Kein 07/2/19(月) 15:22 回答

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