Портится ListView при импорте формы

[Annushka]

Экспортирую форму из одного файла (файла1) и импортирую в другой (файл2). На форме Listview с несколькими колонками (заполняются в UserForm_Initialize из другого файла).
Запускаю форму на файле2, получаю listview, все колонки которого заполнены значениями из первой колонки (а значений из других колонок нет).
Сверила свойства в формах на обоих файлах. Одинаково все!
Подскажите, пожалуйста, где еще смотреть? Что могло испортиться?
Спасибо

[Avtopic]

А код какой в UserForm_Initialize?

[Annushka]

Код: Выделить всё

Private Sub UserForm_Initialize()
   
    Dim Name_main As String
    Name_main = ActiveWorkbook.Name
    Dim i As Integer
    Dim nom_tochka As Integer
    Dim nom_tire As Integer
    Dim name_list As String
    nom_tochka = InStrRev(Name_main, ".")
    nom_tire = InStrRev(Name_main, "-")
    name_list = Mid(Name_main, nom_tire + 1, (nom_tochka - nom_tire - 1))
   
    Workbooks.Open Filename:=ActiveWorkbook.Path & "\Dod_1_plan_2006_" & name_list & ".xls"
   
    ListView1.View = lvwReport
    For i = 11 To Worksheets(1).Cells.SpecialCells(xlCellTypeLastCell).Row
       If Worksheets(1).Range("A" & i).Value <> "" Then
           With ListView1.ListItems.Add
               .Text = Worksheets(1).Range("A" & i).Value
               .SubItems(1) = Worksheets(1).Range("D" & i).Value
               .SubItems(2) = Worksheets(1).Range("I" & i).Value
               .SubItems(3) = Worksheets(1).Range("B" & i).Value
               .SubItems(4) = Worksheets(1).Range("E" & i).Value
               .SubItems(5) = Worksheets(1).Range("F" & i).Value
           End With
        End If
    Next i
    Windows("Dod_1_plan_2006_" & name_list & ".xls").Activate
    ActiveWindow.Close

    Application.EnableEvents = False
    Workbooks.Open Filename:=ActiveWorkbook.Path & "\Form 2-K-" & name_list & ".xls"
    ListView2.View = lvwReport
    For i = 6 To ActiveSheet.UsedRange.Rows.Count
        If Worksheets(1).Range("A" & i).Value <> "" Then
           With ListView2.ListItems.Add
               .Text = Worksheets(1).Range("A" & i).Value
               .SubItems(1) = Worksheets(1).Range("B" & i).Value
               .SubItems(2) = Worksheets(1).Range("C" & i).Value
               .SubItems(3) = Worksheets(1).Range("D" & i).Value
               .SubItems(4) = Worksheets(1).Range("E" & i).Value
               .SubItems(5) = Worksheets(1).Range("F" & i).Value
               .SubItems(6) = Worksheets(1).Range("G" & i).Value
               .SubItems(7) = Worksheets(1).Range("H" & i).Value
               .SubItems(8) = Worksheets(1).Range("I" & i).Value
           End With
        End If
    Next i
    Windows("Form 2-K-" & name_list & ".xls").Activate
    ActiveWindow.Close SaveChanges:=False
    Application.EnableEvents = True

    Windows(Name_main).Activate
     
     Me.ListView1.SelectedItem = Me.ListView1.ListItems(1)
     Me.ListView1.SelectedItem.EnsureVisible

End Sub


[Annushka]

Нашла!

В Tools\References нужно было подключить Microsoft Windows Common Controls.