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

1. VBA / Excel / Access / Word
2. File Path
3. FreeFile

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