Harmonogram_Lista.Clear

Private Sub UserForm_Initialize()


Dim Ilosc_prze As Long
Dim tabl(1 To 3)
Harmonogram_Lista.Column = tabl 'ilość kolumn zgodnie wymiarem tablicy
Dim TESTER_plik As String

If LenB(Dir$(Przeglad_TESTEROW)) Then
  'Close #1
      Open Przeglad_TESTEROW For Input As #1 'Otwiera plik z koordynatami labeli
        Ilosc_prze = 0
         
         Do Until EOF(1)
                Line Input #1, data
                data = Replace(data, """", "")
                dane = Split(data, ",")
               With Harmonogram_Lista
                .AddItem
                .List(Ilosc_prze, 0) = dane(0)
                .List(Ilosc_prze, 1) = dane(1)
                .List(Ilosc_prze, 2) = dane(2)
                Ilosc_prze = Ilosc_prze + 1
               End With
             
           Loop
           
             
         Close #1
Else
MsgBox Sheets("jezyk").Cells(683, 1).Value, vbCritical, Sheets("jezyk").Cells(633, 1).Value
End If

info = "Na liście znajduje się" & " " & Ilosc_prze & " " & "testerów"
End Sub