convert excel to pipe delimited text file

Font.Bold = True End If ' Borders on all cells. Value = Trim(strToken) ' Bold first row If intRow = 1 Then. ' Define constants Const cExcel7 = 51 Const xlContinuous = 1 Const xlEdgeBottom = 9 Const xlEdgeLeft = 7 Const xlEdgeRight = 10 Const xlEdgeTop = 8 ' Create file system object Set objFSO = CreateObject('Scripting.FilesystemObject') ' Files to work woth strInputFile = objFSO.GetAbsolutePathname('input.txt') strOutputFile = objFSO.GetAbsolutePathname('output.xlsx') ' Read text file into array With objFSO.OpenTextFile(strInputFile, 1) arrInput = Split(.ReadAll, vbNewLine) End With ' Start Excel, create a new worksheet Set objExcel = CreateObject('Excel.Application') objExcel.Visible = False Set objSheet = (1) ' Initialize row index intRow = 0 ' Process each line of input file For Each strInput in arrInput ' Skip all blank lines If strInput '' Then ' Start a new row in Excel, start at first column intRow = intRow + 1 intCol = 0 ' Parse input text line arrTokens = Split(strInput, '|') ' Add each value to Excel sheet For Each strToken In arrTokens intCol = intCol + 1 With objSheet.Cells(intRow, intCol).

Convert excel to pipe delimited text file