How can I copy text out of a text file

Hi Adrian

Thanks for getting in touch. Apologies for the delay in answering while we researched your query.

You will need to use the FileStreamObject. To work with this in the VBE go to Tools > Options > References. Check the box next to Microsoft Scripting Runtime and click OK.

Then you can use the following code snippets as examples of how you can read and write text files.

Sub CreateFile()

Dim fso As New FileSystemObject

Dim ts As TextStream

Set ts = fso.CreateTextFile("C:\MyFile.txt", True)

ts.WriteLine ("First line of text")
ts.WriteLine ("second line of text")

ts.Close
End Sub

Sub ReadFile()

Dim fso As New FileSystemObject
Dim ts As TextStream

Set ts = fso.OpenTextFile("C:\MyFile.txt", ForReading)

Dim ThisLine As String
Dim i As Integer
i = 0
Do Until ts.AtEndOfStream
ThisLine = ts.ReadLine
i = i + 1
Debug.Print "Line " & i, ThisLine
Loop

ts.Close
End Sub

I hope this helps.

Kind regards

Gary Fenn
Microsoft Office Specialist Trainer

Tel: 0207 987 3777
Best STL - https://www.stl-training.co.uk
98%+ recommend us

London's leader with UK wide delivery in Microsoft Office training and management training to global brands, FTSE 100, SME's and the public sector