Доброго времени суток. Никак не получается считать данные из файла. Суть задачи простая, но у меня возникли проблемы с функцией EOF(). Если в коде вместо нее указать число (точное количество строк в файле), то проблем нет. Если бы длина файла была бы константой - не проблема, но в будущем длина его будет меняться как в большую так и в меньшую сторону. Собственно, сам код:
[vba]Код
Sub TestSub()
Dim mo As Integer
mo = FreeFile
Dim mass() As String
ReDim mass(15)
path = "D:\staff.txt"
Open path For Input As #mo
For i = 1 To EOF(mo) Step 1
Line Input #mo, mass(i)
Cells(i + 2, 1) = mass(i)
Next
Close #mo
End Sub
[/vba]
Помогите, пожалуйста разобраться.