Write to text file in VBA

Question

I am trying to print a file after opening it to a file I create with the VBA. The part I am stuck at is writing to the file. Here is what I have so far.

Sub test()
Dim myFile As String
Dim testFile As String
Dim intChoice As Integer
Dim fs, f

myFile = Application.GetSaveAsFilename & "kml"

Open myFile For Output As #1

Application.FileDialog(msoFileDialogOpen).AllowMultiSelect = False
intChoice = Application.FileDialog(msoFileDialogOpen).Show
If intChoice <> 0 Then
    testFile = Application.FileDialog( _
        msoFileDialogOpen).SelectedItems(1)
End If


Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.OpenTextFile(testFile)

Print #1, f

Close #1

End Sub

David Zemens · Accepted Answer · 2014-05-29 17:02:13Z

2

Read the textstream line-by-line and print as needed. Do this in a loop.

Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.OpenTextFile(testFile)

Do While Not f.AtEndOfStream
    Print #1, f.ReadLine
Loop

Set f = Nothing
Set fs = Nothing

Or, you may be able to omit the loop and simply do Print #1, f.ReadAll.

answered May 29, 2014 at 17:02

David Zemens

53.8k12 gold badges86 silver badges132 bronze badges

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

1 Comment

David Zemens Over a year ago

Excellent. Yes I had not tested the actual Print statement (I used Debug.Print to put it in the console, so I wasn't sure if ReadAll would work although I figured it probably would. Cheers!

Andy G · Accepted Answer · 2014-05-29 16:57:14Z

1

The simplest way to print a text file (in Windows) is to send it to Notepad with the "/p" switch. This will send it to the default printer.

Shell "Notepad /p C:\Users\Andrew\Documents\test.txt"

It appears that you are running this code from Excel. In which case you could also open the text-file in Excel and print it from there.

answered May 29, 2014 at 16:57

Andy G

19.4k5 gold badges49 silver badges70 bronze badges

1 Comment

David Zemens Over a year ago

+1 for a neat trick :) but I don't think it answers the question (poor choice of words on OP's part, no worries!)

Collectives™ on Stack Overflow

Write to text file in VBA

2 Answers 2

1 Comment

1 Comment

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

1 Comment

1 Comment

Your Answer

Sign up or log in

Post as a guest

Linked

Related