Writing data from text file to excel using VBScript

I am reading a file and need to out put all lines of the file to a separate row within in excel. Can some one help. currently I'm only getting the last row. Dim objFSO, strTextFile, strData, strLine, arrLines CONST ForReading = 1 'name of the text file strTextFile = "C:\Documents and Settings\SClark\Desktop\4010ControlOutput.txt" 'Create a File System Object Set objFSO = CreateObject("Scripting.FileSystemObject") 'Open the text file - strData now contains the whole file strData = objFSO.OpenTextFile(strTextFile,ForReading).ReadAll 'Split the text file into lines arrLines = Split(strData,vbCrLf) Set objExcel = CreateObject("Excel.Application") objExcel.Visible = True objExcel.Workbooks.Add intRow = 2 objExcel.Cells(1, 1).Value = "4010 Control" 'Step through the lines For Each strLine in arrLines strLineArray = Split(strLine,".TXT") strLine = Trim(strLineArray(0)) &".TXT" ' wscript.echo strLine objExcel.Cells(intRow, 1).Value = strLine Next intRow = intRow + 1 'Cleanup Set objFSO = Nothing

• › Need a batch file to import text file to excel sheet. HELP!!
• › Batch Help: Extracting data from text File
• › how to convert a text file to excel file?
• › How to extract data from text file with complex structure?
• › Extracting data from text file
• › Batch file to extract data from text file
• › [Solved] Pull string by line # from text file to var