Ndr3w
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Dim Vse(1 To 100000) As aInfo
Private Sub CommandButton1_Click()
On Error Resume Next
Close
Open "d:\1.txt" For Input As #1
Dim col
While Not EOF(1)
col = col + 1
Line Input #1, Vse(col).Kompany
Line Input #1, Vse(col).Adress
Line Input #1, Vse(col).e_mail
Line Input #1, Vse(col).Phone
Line Input #1, Vse(col).propusk
Wend
Debug.Print col
Close #1
Label1 = col
For i = 1 To col
' If Mid(Vse(i).Kompany, 1, 1) <> Chr(22) Then Лист1.Cells(i, 1) = Vse(i).Kompany Else Лист1.Cells(i, 1) = Mid(Vse(i).Kompany, 2, Len(Vse(i).Kompany) - 1)
Лист1.Cells(i, 1) = Vse(i).Kompany
Лист1.Cells(i, 2) = Vse(i).Adress
Лист1.Cells(i, 3) = Vse(i).e_mail
Лист1.Cells(i, 4) = Vse(i).Phone
Next i
End
End Sub |
