


Public Function ReadData(Filename As String, combo As ComboBox)
On Error Resume Next
Dim fileno As Integer
Dim getvalues() As String
Dim Counter As Integer
Counter = 0
fileno = FreeFile
Open Filename For Input As fileno
Do Until EOF(fileno)
Counter = Counter + 1
ReDim Preserve getvalues(Counter)
Line Input #fileno, getvalues(Counter)
Loop
Close fileno
Dim j As Integer
For j = 1 To UBound(getvalues)
combo.AddItem getvalues(j)
Next j
End Function
Сейчас этот форум просматривают: SemrushBot и гости: 15