Importing from Notepad to Excel Sheet

Replies to This Discussion

Permalink Reply by MohanKumar S on June 5, 2012 at 9:09am

Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oTxtFile = oFSO.OpenTextFile("E:\sample.txt", 1)

Do Until oTxtFile.AtEndOfStream

   Redim Preserve arrFileLines(i)
   arrFileLines(i) = oTxtFile.ReadLine
   i = i + 1  

Loop

oTxtFile.Close

Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
Set objWorkbook = objExcel.Workbooks.Open("E:\sample.xlsx")
Set objWorksheet = objWorkbook.Worksheets("sheet1")
objWorksheet.Activate
objExcel.Application.Visible = True  
j = 1
For i = 0 To ubound(arrFileLines)
    k = 1
    txt = split(arrFileLines(i)," ") 
    objExcel.Cells(j, k).Value = txt(0)
    k = k + 1
    objExcel.Cells(j, k).Value = txt(1)
    j = j + 1       
Next
objExcel.Application.Quit

• ▶ Reply

Permalink Reply by Nagaraju.Velde on June 5, 2012 at 4:13pm

Thanks mohan...

• ▶ Reply

Permalink Reply by Nagaraju.Velde on June 6, 2012 at 7:52am

Hi Mohan,

           Can u Explain below lines:   

                                    Redim Preserve arrFileLines(i)
   arrFileLines(i) = oTxtFile.ReadLine
   i = i + 1  

AND

 j = 1
For i = 0 To ubound(arrFileLines) 
    k = 1
    txt = split(arrFileLines(i)," ") 
    objExcel.Cells(j, k).Value = txt(0)
    k = k + 1
    objExcel.Cells(j, k).Value = txt(1)
    j = j + 1        

• ▶ Reply