Hi,

I have a requirement of importing a text file which contains data in
tabular format into excel. I am able to do the same with below code.
Does anyone has a better alternative as I am facing issues of
sometimes the data moving into different columns resulting in wrong
data with the below code :


columnheadings=Array("Item Name","Buyer","Qty")
startrow=18
Call UdfImporttxtFiletoExcel
("c:\recontextfile.txt","c:\recontextfile.xls",columnheadings,startro
w)
Public function UdfImporttxtFiletoExcel
(txtFilename,excelFilename,columnheadings,startrow)
Set ExcelObj = CreateObject("Excel.Application")
ExcelObj.DisplayAlerts = False
ExcelObj.Workbooks.Add
ExcelObj.Visible = true
ExcelObj.Workbooks.OpenText txtFilename,,startrow,1
ExcelObj.Columns("A:A").select
ExcelObj.selection.TextToColumns,2
xlcolum=1
For arRow=0 to ubound(columnheadings)
ExcelObj.Cells(1,xlcolum) = columnheadings
(arRow)
xlcolum=xlcolum+1
next
Set NewSheet = ExcelObj.Sheets.Item(1)
ExcelObj.Rows("1:1").Select
ExcelObj.Selection.Font.Bold=True
ExcelObj.Rows("1:65000").Select
ExcelObj.Selection.Font.size=8
ExcelObj.ActiveWorkbook.SaveAs excelFilename,1
ExcelObj.ActiveWorkbook.close
Set ExcelObj = Nothing
end function


e.g. My text file contains
Item Name Buyer Qty
-------------- ---------- ----------
15-3292-01 Yellig, Thomas 25
15-3292-01 Yellig, Thomas john 50

Sometimes the function will force the Buyer name : Yellig, Thomas
john to trespass into the 3rd column in excel so the Qty will be
pasted in 4th column.

Has anyone got a workaround for importing txt files into xls or a
resolution for above issue?

Regards,
Ganesh