|
>複数のテキストファイルを特定の1つのセルに
では、マクロ実行ブックと同一フォルダーに保存しているテキストを、
任意に選んで開き、Sheet1.A1セルに改行しながら全てのデータを
入れていく。というコードにしてみます。
Sub Test2()
Dim MyF As Variant
Dim TR As Range
Dim i As Integer
Dim FSO As Object, MyTxt As Object
Dim Buf As String
MyF = Application _
.GetOpenFileName("テキストファイル(*.txt),*.txt", , , , True)
If Not IsArray(MyF) Then Exit Sub
Set TR = Worksheets("Sheet1").Range("A1")
'↑特定のセルを参照
Set FSO = CreateObject("Scripting.FileSystemObject")
For i = LBound(MyF) To UBound(MyF)
Set MyTxt = FSO.OpenTextFile(MyF(i))
Buf = MyTxt.ReadAll
TR.Value = TR.Value & Buf & vbLf
MyTxt.Close
Next i
Set TR = Nothing: Set FSO = Nothing
End Sub
テキストにあるデータは、1・2行程度なら大丈夫ですが、それ以上だと
保証できません。
|
|