Friendsnippets

1. Write to a textfile

   view plain - save this

   .

   1 Sub WriteToATextFile(s As String)
   2 MyFile = ActiveWorkbook.Path & "\graph.dot"
   3 'set and open file for output
   4 fnum = FreeFile()
   5 Open MyFile For Output As fnum
   6 'write project info and then a blank line. Note the comma is required
   7 Print #fnum, s
   8 Close #fnum
   9 End Sub
   

   Posted by qrist0ph to visual basic .net excel ... saved by 1 person ... 0 comments ... 1 month, 4 weeks

Pages : 1