|
こんにちは。かみちゃん です。
>まず一個目のテキストファイル全文をコピーアンドペーストでシートに貼り付け、
>間を空けずにすぐ下のセルに二個目のテキストファイル全文を貼り付け、
>また次のテキストファイルを間を空けずにすぐ下のセルに貼り付け…
>
>を繰り返させたい
とりあえず、以下のような感じでできると思います。
Sub Sample()
Dim FSO As Object
Dim Fl As Object
Dim buf As String
Dim vntData As Variant
Set FSO = CreateObject("Scripting.FileSystemObject")
For Each Fl In FSO.GetFolder(ThisWorkbook.Path).Files
'拡張子がTXTの場合
If UCase(FSO.GetExtensionName(Fl.Path)) = "TXT" Then
With FSO.GetFile(Fl.Path).OpenAsTextStream
buf = .ReadAll
vntData = Split(buf, vbCrLf)
Cells(Rows.Count, 1).End(xlUp).Offset(1) _
.Resize(UBound(vntData)) = Application.Transpose(vntData)
.Close
Erase vntData
End With
End If
Next
'スペース区切り
Columns("A:A").TextToColumns Range("A1"), xlDelimited, True, True, False, True, True, True
End Sub
|
|