|
▼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と入れ替えても
読み込まれませんでした。
|
|