Загрузка данных из текстового файла

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Загрузка данных из текстового файла (Макросы/Sub)

antonio2040

Дата: Четверг, 13.03.2014, 16:25 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 14

Репутация: 0 ±

Замечаний: 20% ±

Excel 2010

Доброго времени суток. Никак не получается считать данные из файла. Суть задачи простая, но у меня возникли проблемы с функцией 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]

Помогите, пожалуйста разобраться.

Ответить

Hugo

Дата: Четверг, 13.03.2014, 17:26 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3254

Репутация: 707 ±

Замечаний: 0% ±

2019

[vba]

Код

Sub TestSub()

     Dim mo As Long
     mo = FreeFile

     Path = "D:\staff.txt"

     Open Path For Input As #mo

     Do While Not EOF(mo)
         i = i + 1
         Line Input #mo, x
         Cells(i + 2, 1) = x
     Loop

     Close #mo

End Sub

[/vba]

excel@nxt.ru
webmoney: E265281470651 Z422237915069

Ответить

antonio2040

Дата: Понедельник, 17.03.2014, 15:26 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 14

Репутация: 0 ±

Замечаний: 20% ±

Excel 2010

Спасибо

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Загрузка данных из текстового файла (Макросы/Sub)

Страница 1 из 1
1