Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
478 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【80150】指定のフォルダからテキストの中身を取込むマクロ 猿 18/9/12(水) 20:59 質問[未読]
【80151】Re:指定のフォルダからテキストの中身を取... マナ 18/9/13(木) 21:45 発言[未読]
【80152】Re:指定のフォルダからテキストの中身を取... 猿 18/9/14(金) 20:56 お礼[未読]
【80153】Re:指定のフォルダからテキストの中身を取... マナ 18/9/14(金) 21:20 発言[未読]
【80158】Re:指定のフォルダからテキストの中身を取... 猿 18/9/19(水) 20:17 回答[未読]
【80154】Re:指定のフォルダからテキストの中身を取... γ 18/9/16(日) 18:14 発言[未読]
【80155】Re:指定のフォルダからテキストの中身を取... 猿 18/9/16(日) 21:08 回答[未読]
【80156】Re:指定のフォルダからテキストの中身を取... γ 18/9/17(月) 9:04 発言[未読]
【80157】Re:指定のフォルダからテキストの中身を取... 猿 18/9/17(月) 9:54 お礼[未読]
【80159】Re:指定のフォルダからテキストの中身を取... 猿 18/9/19(水) 20:20 発言[未読]
【80161】Re:指定のフォルダからテキストの中身を取... γ 18/9/20(木) 12:25 発言[未読]
【80162】Re:指定のフォルダからテキストの中身を取... 猿 18/9/20(木) 22:01 回答[未読]
【80150】指定のフォルダからテキストの中身を取込...
質問  猿  - 18/9/12(水) 20:59 -
引用なし
パスワード
   いつもお世話になっております。

エクセルVBAについて，助けていただきたくご質問します。

【やりたいこと】
　指定のフォルダ（D:\text）にある複数のテキストファイル
の中身を，セルＢ２からＢ列の最後の行において空欄セルを見
つけた場合に，順次読み込んでいく。


【例】

D:\text・・・・001.text（ABCD）
　　　　　　　 002.text（EFGH）
　　　　　　　 003.text（IJKL）
※（）はテキストファイルの中に入力されているデータ


マクロ実行！
＜エクセル結果＞
　 Ｂ列
2　zzzz
3　zzzz
4　ABCD
5　EFGH
6　IJKL

のような感じです。是非ともよろしくお願いいたします。
【80151】Re:指定のフォルダからテキストの中身を...
発言  マナ  - 18/9/13(木) 21:45 -
引用なし
パスワード
   ▼猿 さん：


例えば FileSystemObject が使えるかもしれません。
使用例はネットで検索してみてください。

ht tp://officetanaka.net/excel/vba/filesystemobject/index.htm
【80152】Re:指定のフォルダからテキストの中身を...
お礼  猿  - 18/9/14(金) 20:56 -
引用なし
パスワード
   ▼マナ さん：
>▼猿 さん：
>
>
>例えば FileSystemObject が使えるかもしれません。
>使用例はネットで検索してみてください。
>
>ht tp://officetanaka.net/excel/vba/filesystemobject/index.

マナさま

ありがとうございます。見てみたのですが、さっぱりわかりませんでした。
【80153】Re:指定のフォルダからテキストの中身を...
発言  マナ  - 18/9/14(金) 21:20 -
引用なし
パスワード
   ▼猿 さん：

他にも参考になるものがないか
きっと探せば見つかると思います

ht　tp://excelmemo.com/vba_7/7_14/
ht　tps://www.239-programing.com/excel-vba/fso/fso028.html
ht　tps://excelwork.info/excel/fsoopenastextstream/
【80154】Re:指定のフォルダからテキストの中身を...
発言  γ  - 18/9/16(日) 18:14 -
引用なし
パスワード
   確認です。
1.ファイルには1行だけ入っているんですか？
2.書き込み先のB列には空欄がランダムにあるんですか？
それとも上から順次書き込んでいけばいいんですか？
3.詰まっているのはどこですか？
　 読み込みはできているんですか？
　 いったん読み込んでから、適切な位置に
　 コピーしても良いし、
　 テキストファイルの読み込みメニューを使えば
　 指定した位置に読むことができます。
【80155】Re:指定のフォルダからテキストの中身を...
回答  猿  - 18/9/16(日) 21:08 -
引用なし
パスワード
   ▼γ さん：
>確認です。
>1.ファイルには1行だけ入っているんですか？
>2.書き込み先のB列には空欄がランダムにあるんですか？
>それとも上から順次書き込んでいけばいいんですか？
>3.詰まっているのはどこですか？
>　 読み込みはできているんですか？
>　 いったん読み込んでから、適切な位置に
>　 コピーしても良いし、
>　 テキストファイルの読み込みメニューを使えば
>　 指定した位置に読むことができます。

γ さま
　お返事、ご質問ありがとうございます。ご回答いたします。
>1.ファイルには1行だけ入っているんですか？
　→はい、１行です。ただし、かなり長い（100文字以上はあります）です。

>2.書き込み先のB列には空欄がランダムにあるんですか？
>それとも上から順次書き込んでいけばいいんですか？

　→上から順次書き込んでい行く感じです。
　　歯抜け的な空欄はありません。

>3.詰まっているのはどこですか？
>　 読み込みはできているんですか？
>　 いったん読み込んでから、適切な位置に
>　 コピーしても良いし、
>　 テキストファイルの読み込みメニューを使えば
>　 指定した位置に読むことができます。
　→お恥ずかしい話、当方素人でありまして、まったくマクロのコードが書
　　けません。できれば、ＶＢＡのコードをご教授いただければ幸いです。
【80156】Re:指定のフォルダからテキストの中身を...
発言  γ  - 18/9/17(月) 9:04 -
引用なし
パスワード
   Sub test()
　　Dim FSO As Object
　　Dim TextFile As Object
　　Dim buf As String
　　Dim f As Object
　　Dim r As Long

　　Set FSO = CreateObject("Scripting.FileSystemObject")

　　r = 4　 '最初の書込先の行番号

　　'フォルダの中のファイルをシートのB列に読み込む
　　For Each f In FSO.GetFolder("C:\Work").Files
　　　　Set TextFile = FSO.OpenTextFile(f.Path)
　　　　buf = TextFile.ReadAll
　　　　Cells(r, 2).Value = Application.Clean(buf)
　　　　r = r + 1
　　Next
　　Set FSO = Nothing
End Sub

私も素人です。
追加依頼は受けかねます。

# ご本人に本当に益するのか、丸投げに回答するにも逡巡がありました。
# 少しでもトライの跡を見せていただいたほうが回答はし易いですね。
# 全く習い始めたということなら教科書を学習したほうがよいと思う。
【80157】Re:指定のフォルダからテキストの中身を...
お礼  猿  - 18/9/17(月) 9:54 -
引用なし
パスワード
   ▼γ さん：
>Sub test()
>　　Dim FSO As Object
>　　Dim TextFile As Object
>　　Dim buf As String
>　　Dim f As Object
>　　Dim r As Long
>
>　　Set FSO = CreateObject("Scripting.FileSystemObject")
>
>　　r = 4　 '最初の書込先の行番号
>
>　　'フォルダの中のファイルをシートのB列に読み込む
>　　For Each f In FSO.GetFolder("C:\Work").Files
>　　　　Set TextFile = FSO.OpenTextFile(f.Path)
>　　　　buf = TextFile.ReadAll
>　　　　Cells(r, 2).Value = Application.Clean(buf)
>　　　　r = r + 1
>　　Next
>　　Set FSO = Nothing
>End Sub
>
>私も素人です。
>追加依頼は受けかねます。
>
># ご本人に本当に益するのか、丸投げに回答するにも逡巡がありました。
># 少しでもトライの跡を見せていただいたほうが回答はし易いですね。
># 全く習い始めたということなら教科書を学習したほうがよいと思う。


γ さま

　ご回答ありがとうございました。感謝いたします。
これから勉強してみます。
【80158】Re:指定のフォルダからテキストの中身を...
回答  猿  - 18/9/19(水) 20:17 -
引用なし
パスワード
   ▼マナ さん：
>▼猿 さん：
>
>他にも参考になるものがないか
>きっと探せば見つかると思います
>
>ht　tp://excelmemo.com/vba_7/7_14/
>ht　tps://www.239-programing.com/excel-vba/fso/fso028.html
>ht　tps://excelwork.info/excel/fsoopenastextstream/
マナさま

ありがとうございます。
見させていただきましたが、要望とおりのコード
は得られませんでした。
できれば、コードを直接教えてもらえないでしょうか。
【80159】Re:指定のフォルダからテキストの中身を...
発言  猿  - 18/9/19(水) 20:20 -
引用なし
パスワード
   ▼猿 さん：
>▼γ さん：
>>Sub test()
>>　　Dim FSO As Object
>>　　Dim TextFile As Object
>>　　Dim buf As String
>>　　Dim f As Object
>>　　Dim r As Long
>>
>>　　Set FSO = CreateObject("Scripting.FileSystemObject")
>>
>>　　r = 4　 '最初の書込先の行番号
>>
>>　　'フォルダの中のファイルをシートのB列に読み込む
>>　　For Each f In FSO.GetFolder("C:\Work").Files
>>　　　　Set TextFile = FSO.OpenTextFile(f.Path)
>>　　　　buf = TextFile.ReadAll
>>　　　　Cells(r, 2).Value = Application.Clean(buf)
>>　　　　r = r + 1
>>　　Next
>>　　Set FSO = Nothing
>>End Sub
>>
>>私も素人です。
>>追加依頼は受けかねます。
>>
>># ご本人に本当に益するのか、丸投げに回答するにも逡巡がありました。
>># 少しでもトライの跡を見せていただいたほうが回答はし易いですね。
>># 全く習い始めたということなら教科書を学習したほうがよいと思う。
>
>
>γ さま
>
>　ご回答ありがとうございました。感謝いたします。
>これから勉強してみます。
γさま

ちなみにですが、教えて頂いたコードでは、だめでした。
テキストの書き込みすらできませんでした。
【80161】Re:指定のフォルダからテキストの中身を...
発言  γ  - 18/9/20(木) 12:25 -
引用なし
パスワード
   実行の仕方に何か誤解があるのでしょう。
断らない限り、私は、正常に動作することを確認してから
投稿しています。
ステップ実行して動作を確認してみては？
【80162】Re:指定のフォルダからテキストの中身を...
回答  猿  - 18/9/20(木) 22:01 -
引用なし
パスワード
   ▼γ さん：
>実行の仕方に何か誤解があるのでしょう。
>断らない限り、私は、正常に動作することを確認してから
>投稿しています。
>ステップ実行して動作を確認してみては？

承知しました。
もう一度確認してみます。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
478 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free