logo ASAP Utilities

Excel tip: Write data to a textfile

Date: 5 september 2001

The following code will write data to a text file. If the file doesn't exist yet, it will be automaticly created. The original text will be replaced every time the code is run.


Copy-paste friendly code:
Sub WriteToTextFile()
' writes data to a text file
' if the file does not exists, it will be created.
      Dim iFileNumber                        As Long
      Dim strData                            As String
      Dim strFileName                        As String

      iFileNumber = FreeFile()
      strData = "Test data"            'the text written in the file
      strFileName = "C:\test.txt"      ' the text file
      Open strFileName For Output As #iFileNumber
      Print #iFileNumber, strData
      Close #iFileNumber
End Sub



« back
Share this page:
Home Sitemap Search List of all utilities Printer friendly page ^ Back to Top
© 1999-2017 - - - - The Netherlands

Connect with us and receive our tips that show you how to benefit from the tools in ASAP Utilities at:
Follow us on TwitterFollow us on Facebook