I need help on the coding. I am wondering why i canot import text field into my excel worksheet. Here is my coding. Is it somehitng wrong with my code or what?? Please help me out..thank very much


sub importfile()
workbooks.opentext _
  fileName:="C:\ExcelVBA\Nov2002.txt", _
  origin:=xlWindows, _
  StartRow:=4, _
  DataType:=xlFixedWidth, _
  FieldInfo:=Array(Array(0, 1), Array(8, 1), _
         Array(20, 1), Array(27, 1), Array(42, 1), _
         Array(49, 1)), _
  TrailingMinusNumbers:=True
with ActiveWindow
       .width = 452.25
       .Height = 254.25
end with

Sheets("Nov2002").Select

Sheets("Nov2002").Move _
Before:=Workbooks("Chapter02.xls"), Sheets(1)
Range("A2").Select
Selection.EntireRow.Delete
Range("A1").Select
End Sub

This works for me:

Sub ImportFile()

    Workbooks.OpenText _
        Filename:=Application.GetOpenFilename("Text Files (*.txt), _
        *.txt"), _
        Origin:=xlWindows, StartRow:=4, DataType:=xlFixedWidth, _
        FieldInfo:=Array(Array(0, 1), Array(8, 1), Array(20, 1), _
        Array(27, 1), Array(42, 1), Array(49, 1))

' ' What is this doing?
' With ActiveWindow
' .Width = 452.25
' .Height = 254.25
' End With

    ActiveSheet.Select
    Sheets(ActiveSheet.Name).Move Before:=ThisWorkbook.Sheets(1)

    Range("A2").EntireRow.Delete
    Range("A1").Select

End Sub

thank you..but it's still didnot work for me. It was import a text file into excel sheet but i want to copy that sheet to my workbook that part is stll did not work at all..would you tell me how..
  When i immport text file into excel it will bring up new workbook and creat that file into worksheet's name but i want to copy this worksheet to my original workbook..
 coding was hightline this part...thank you for your help..

ActiveSheet.Select
    Sheets(ActiveSheet.Name).Move Before:=ThisWorkbook.Sheets(1)

    Range("A2").EntireRow.Delete
    Range("A1").Select