Flexible Separators and Delimiters : FreeFile « File Path « VBA / Excel / Access / Word






Flexible Separators and Delimiters

 
     Sub WriteStringsWithDelimiters()
         Dim sLine As String
         Dim sFName As String    'Path and name of text file
         Dim iFNumber As Integer    'File number
         Dim lRow As Long     'Row number in worksheet

         Const sVS As String = ";"   'Variable separator character
         Const sTD As String = """"  'Text delimiter character
         Const sDD As String = "#"    'Date delimiter character

         sFName = "C:\Delimited.txt"
         iFNumber = FreeFile
         Open sFName For Output As #iFNumber
         lRow = 2
         Do
             With Sheet1
               sLine = sDD & format(.cells(lRow, 1), "yyyy-mmm-dd") & sDD & sVS
               sLine = sLine & sTD & .cells(lRow, 2) & sTD & sVS
               sLine = sLine & sTD & .cells(lRow, 4) & sTD & sVS
               sLine = sLine & format(.cells(lRow, 6), "0.00")
             End With
             Print #iFNumber, sLine
             lRow = lRow + 1
         Loop Until IsEmpty(Sheet1.cells(lRow, 1))
         Close #iFNumber
     End Sub

 








Related examples in the same category

1.Examples of the VBA Open Statement
2.An Example Using Write # and Input #
3.Text Files and File Dialog
4.Writing to Text Files Using Print
5.Reading Data Strings
6.uses the delimiter characters to decide the data type of each item and treat it appropriately:
7.Handling Files with Low-Level File Handling