| Предыдущая тема :: Следующая тема |
| Автор |
Сообщение |
Прошка
Зарегистрирован: 16.04.2007
Сообщения: 1
|
 Добавлено: Пн Апр 16 2007 19:38 Заголовок сообщения: ПОМОГИТЕ Visual Basic Excel макрос для загрузки txt |
 |
|
Люди расскажите помогите нужен макрос в Excel для загрузки текстового файла с разделителями.
я понимаю что загрузить можно и без макроса
блин просто срочно надо |
|
| Вернуться к началу |
|
 |
критикан
Зарегистрирован: 18.02.2005
Сообщения: 247
|
| Добавлено: Вт Апр 17 2007 09:22 Заголовок сообщения: а что? справка недоступна? или покушал мало? |
|
|
а что? следующие
open
input/write
get/put
close
действия отменены? или справка недоступна? или покушал мало? |
|
| Вернуться к началу |
|
|
ULiX
Зарегистрирован: 18.04.2007
Сообщения: 3
Откуда: Комсомольск-на-Амуре
|
| Добавлено: Ср Апр 18 2007 13:14 Заголовок сообщения: |
|
|
| Цитата: | | я понимаю что загрузить можно и без макроса |
Правильно понимаешь.
А теперь включи запись макроса:
Сервис\Макрос\Начать запись
И проделай всю операцию загрузки (импорта) текстового файла с теми параметрами, которые тебе нужны. По окончанию процесса останови запись макроса. Далее просмотри, что там записалось на автомате. убери ненужный хлам, оставь только необходимое, добавь изменяемые параметры, если нужно, и макрос готов. |
|
| Вернуться к началу |
|
|
Sauronius
Зарегистрирован: 09.01.2007
Сообщения: 2
|
| Добавлено: Чт Май 24 2007 14:06 Заголовок сообщения: |
|
|
Dim MyArray(800) As String ' массив всех строк из файла
kvo_s_f = 1 ' количество строк прочитанных из файла
Open "file.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, TextLine ' Read line into variable.
MyArray(kvo_s_f) = TextLine
kvo_s_f = kvo_s_f + 1
Loop
Close #1
В результате у тя есть массив в котором все строки файла, и количество строк |
|
| Вернуться к началу |
|
|
|
FAQ 
Поиск 
Пользователи 
Группы
Регистрация
Профиль 
Войти и проверить личные сообщения 
Вход 
