Create Text File using VBA

Question

Private Sub Update()

    Dim myFileSystemObject As FileSystemObject
    Dim myFile As Object

    Set myFileSystemObject = New FileSystemObject

    Set myFile = myFileSystemObject.CreateTextFile("C:\Error.txt")

    myFile.WriteLine "Error"

    myFile.Close
    Set myFileSystemObject = Nothing

End Sub

I am getting the Error below:

Compiler Error: Expected : expression

Tried lot many things but not working

A simply search would have given you relevant answers. stackoverflow.com/questions/2198810/… — Pankaj Jaju
– Pankaj Jaju, Commented Dec 13, 2016 at 12:15
in his code he wants to use Early Binding, while your link shows an example of late binding — Shai Rado
– Shai Rado, Commented Dec 13, 2016 at 12:18
you are using early binding, therefore you need to set reference to the Microsoft Scripting Runtime library — Shai Rado
– Shai Rado, Commented Dec 13, 2016 at 12:19
new to vba, could you please explain how can i set reference to the Microsoft Scripting Runtime library — GAURAV CHHABRA
– GAURAV CHHABRA, Commented Dec 13, 2016 at 12:49
@PankajJaju - simple search was done, and the link you shared i have tried that code as well same error — GAURAV CHHABRA
– GAURAV CHHABRA, Commented Dec 13, 2016 at 12:53

Andrew Truckle · Accepted Answer · 2016-12-13 13:02:48Z

3

There is another way you can do it:

Dim hFile As Long

hFile = FreeFile

Open strFile For Output As #hFile

Print #hFile, "Line of text"

Close #hFile

This way you avoid needed to use the FileSystemObject.

answered Dec 13, 2016 at 13:02

Andrew Truckle

19.5k17 gold badges93 silver badges232 bronze badges

Sign up to request clarification or add additional context in comments.

Comments

KyloRen · Accepted Answer · 2016-12-13 12:56:59Z

1

Try this code, it will create the object for you and you can add data to the file as you need and then save it.

Private Sub Update()

    Dim fSo As Object
    Dim myFile As Object


       Set fSo = CreateObject("Scripting.FileSystemObject")

       Set myFile = fSo.CreateTextFile("c:\sample.txt", True)

       myFile.WriteLine "Error"

    myFile.Close
    Set fSo = Nothing

End Sub

edited Dec 13, 2016 at 12:56

answered Dec 13, 2016 at 12:53

KyloRen

2,7715 gold badges33 silver badges64 bronze badges

3 Comments

KyloRen Over a year ago

no problem, don't forget to mark solved it it helped you.

GAURAV CHHABRA Over a year ago

how can i do that, new to website.

Andrew Truckle Over a year ago

You click the "tick" :)

Collectives™ on Stack Overflow

Create Text File using VBA

2 Answers 2

Comments

3 Comments

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

Comments

3 Comments

Your Answer

Sign up or log in

Post as a guest

Linked

Related