VBA - Flat Text Import Changes

We have a mission critical spreadsheet that imports a lot of flat text from a design program and then brings it in to this spreadsheet.
We recently updated the design software, which we do once a year and have done so in my 12 years here. This year, they made a change to a file where it placed the header of a column of text in a different place. Now, our program will not import it correctly. It is the PART column...
Old text file:

Attachment 30446

New Text File:
Attachment 30447


So as you can see, they moved PART to the lower left.
Not being an expert in VBA, I am struggling to find exactly where I need to modify the code to bring it in properly..
This is the section of VBA code where I do think the selections are made but nothing specifies PART in the code...perhaps it is part of the Array? The file is called CZE_DET.OUT.

Code:

---

SubIMPORT_CZEOUT()
    Dim aryJobs() As String
    Dim strComb As String
    Dim strDir As String
    Dim i As Integer
    Dim j As Integer
    Dim k As Integer
    Sheets("CEE ORDER").Visible = True
    Sheets("CZE_DET").Visible = True
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
    Sheets("CEE ORDER").Select
    For i = 1 To colAllBuildings.Count
        strDir = Dir$(colAllBuildings.Item(i) & "\CZE_DET.OUT")
        If strDir <> "" Then
              Workbooks.OpenText Filename:=colAllBuildings.Item(i) & "\CZE_DET.OUT", Origin:=xlWindows, _
              StartRow:=7, DataType:=xlFixedWidth, _
              FieldInfo:=Array(Array(0, 9), Array(5, 1), Array(9, 9), Array(10, 1), _
              Array(13, 9), Array(14, 1), Array(15, 9), Array(16, 1), Array(18, 1), _
              Array(28, 9), Array(35, 9), Array(47, 9), Array(54, 1), Array(57, 1), _
              Array(62, 1), Array(67, 1), Array(72, 1))
              Range("A1:L" & CStr(Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row)).Select
              Selection.Copy
              Windows(strShipperName).Activate ' This line does not work, for NO reason!
'            Windows(1).ActivatePrevious
              Sheets("CZE_DET").Select
              Range("A1").Select
              If Range("A1").Value <> "" Then
                  ActiveSheet.Range("A65536").End(xlUp).Select
                  ActiveCell.Offset(1, 0).Select
              End If
              Selection.PasteSpecial Paste:=xlValues
              Selection.Sort Key1:=Range("A12"), Order1:=xlAscending, Orientation:=xlTopToBottom
              Windows("CZE_DET.OUT").Activate
              ActiveWindow.Close
          End If
      Next

---

Any suggestions?

Can you post an example workbook and text file?

Quote:

---

Originally Posted by Bob Phillips

Can you post an example workbook and text file?

---

There are the old and newer CZE_DET.OUT files... https://pinnaclestructures365-my.sha...n6kOg?e=0oyh2k

The workbook may be harder to post as it attaches an XLA file with the bulk of the VBA code to it from a network share...and the XLA file is protected by a password...so may save it as a different file/name.

Quote:

---

Originally Posted by garak0410

There are the old and newer CZE_DET.OUT files... https://pinnaclestructures365-my.sha...n6kOg?e=0oyh2k

The workbook may be harder to post as it attaches an XLA file with the bulk of the VBA code to it from a network share...and the XLA file is protected by a password...so may save it as a different file/name.

---

I tried to remove the password from the XLA file and it wouldn't let me...so I can post modules if needed.

From the analysis of the presented code snippet, it seems that the problem should not lie in the CZE_DET.OUT files. The import of the old version as well as the new one runs correctly. The "Part" header is irrelevant here, since the data from the CZE_DET.OUT files are taken from line No. 7, i.e. the header is omitted.
In the presented code, the following is highlighted:

Code:

---

Windows(strShipperName).Activate ' This line does not work, for NO reason!

---

If, in fact, an error arises on this line then there are two possibilities: either there is no workbook whose name is stored in the strShipperName variable or this workbook is not open. The second possibility is that the window name is not assigned to the strShipperName variable. We should infer that this assignment is in another procedure, which unfortunately we do not see, just as we do not see the assignment to the colAllBuildings collection. Without knowing the rest of the code, it is difficult to answer what should be corrected in the code.

Artik