|
▼猿 さん:
>▼γ さん:
>>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
>>
>>私も素人です。
>>追加依頼は受けかねます。
>>
>># ご本人に本当に益するのか、丸投げに回答するにも逡巡がありました。
>># 少しでもトライの跡を見せていただいたほうが回答はし易いですね。
>># 全く習い始めたということなら教科書を学習したほうがよいと思う。
>
>
>γ さま
>
> ご回答ありがとうございました。感謝いたします。
>これから勉強してみます。
γさま
ちなみにですが、教えて頂いたコードでは、だめでした。
テキストの書き込みすらできませんでした。
|
|