Re: Importing to Excel

Dave,

Here are some relevant code snips:

To add as a worksheet instead of as a new file:

           Worksheets.Add after:=Worksheets(Worksheets.Count)
           ActiveSheet.Name = "a new sheet"

Now to parse:

Sub LoadTheSheet()

   Dim strLastLine As String, strLineIn As String

   Range("A1").Select
   Application.ScreenUpdating = False
   intRowNo = 0
   Open pvarFileToOpen(pintCounter) For Input As #1

       Line Input #1, strLineIn
           intRowNo = intRowNo + 1
           Cells(intRowNo, 1).Value = strLineIn
       strLastLine = strLineIn
   Loop

   ParseColumns

End Sub

'------------------------------------------------------------------------------
'   ParseColumns - Split the Data in the One Column into Several.
'------------------------------------------------------------------------------
Sub ParseColumns()

   Dim arrColumns As Variant

       Array(110, 1), Array(120, 1))

       fieldinfo:=arrColumns
   Selection.Columns("a:p").AutoFit
   Range("a1").Select

End Sub

Bill