Samples available in the links,
http://support.microsoft.com/kb/213816
http://www.exceluser.com/explore/questions/vba_textcols.htm
Thanks,
http://codecollege.blogspot.com/
hi you can try the following procudre
Sub ImportFile()
Dim targetBook As Workbook Dim SourceBook As Workbook Dim TargetCell As Range Application.ScreenUpdating = False Set targetBook = ActiveWorkbook Set TargetCell = ActiveCell ReturnValue = Application.Dialogs(xlDialogOpen).Show("*.log") Dim ReturnValue As Boolean If ReturnValue = False Then Exit Sub Set SourceBook = ActiveWorkbook Range(Range("A1"), Range("A1").SpecialCells(xlLastCell)).Copy targetBook.Activate TargetCell.PasteSpecial Paste:=xlValues SourceBook.Close FalseEnd Sub