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. http://stackoverflow.com/questions/2198810/creating-and-writing-lines-to-a-file — Pankaj Jaju, Dec 13 '16 at 12:15
in his code he wants to use Early Binding, while your link shows an example of late binding — Shai Rado, Dec 13 '16 at 12:18
you are using early binding, therefore you need to set reference to the **_Microsoft Scripting Runtime_** library — Shai Rado, Dec 13 '16 at 12:19
new to vba, could you please explain how can i set reference to the Microsoft Scripting Runtime library — GAURAV CHHABRA, Dec 13 '16 at 12:49
@PankajJaju - simple search was done, and the link you shared i have tried that code as well same error — GAURAV CHHABRA, Dec 13 '16 at 12:53
@gaurav - it's in the VBA editor menus, Tools -> References... then put a checkmark next to `Microsoft Scripting Runtime` in the list. Now you can use F2 to look at the various objects and methods in that library. — Peter Hull, Dec 13 '16 at 13:14

score 3 · Answer 1 · answered Dec 13 '16 at 13:02

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 '16 at 13:02

Andrew Truckle

17,769
16
66
164

KyloRen · Accepted Answer · 2016-12-13T12:56:59.520

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 '16 at 12:56

answered Dec 13 '16 at 12:53

KyloRen

2,691
5
29
59

no problem, don't forget to mark solved it it helped you. – KyloRen Dec 13 '16 at 12:57
how can i do that, new to website. – GAURAV CHHABRA Dec 13 '16 at 13:03
You click the "tick" :) – Andrew Truckle Dec 13 '16 at 13:04

Create Text File using VBA

2 Answers2