Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Чтение данных из txt-файла из Excel? / 4 сообщений из 4, страница 1 из 1
06.12.2006, 14:16:19
    #34180526
Domninsky
Domninsky
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чтение данных из txt-файла из Excel?
Народ подскажите как из под VBA в Excel читать данные из текстового файла?
Есть задачка импорта данных из текстового документа в Excel, но форматирование документа немного кривое поэтому простое открытие этого файла не дает нужных результатов.

Видимо придется считывать данные из него последовательно.

Спасибо!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.12.2006, 14:45:11
    #34180648
vbapro
vbapro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чтение данных из txt-файла из Excel?
смотрите help по Open или по FileSystemObject
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.12.2006, 16:15:49
    #34181039
vkodor
vkodor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чтение данных из txt-файла из Excel?
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Sub pri()
    Open "c:\data\textfile.txt" For Input As # 1 
    LineCt =  0 
    Do While Not EOF( 1 )
    Line Input # 1 , LineOfText
    Range("A1").Offset(LineCt,  0 ) = UCase(LineOfText)
    LineCt = LineCt +  1 
    Loop
    Close # 1 
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.12.2006, 18:03:07
    #34181366
Domninsky
Domninsky
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чтение данных из txt-файла из Excel?
vkodor
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Sub pri()
    Open "c:\data\textfile.txt" For Input As # 1 
    LineCt =  0 
    Do While Not EOF( 1 )
    Line Input # 1 , LineOfText
    Range("A1").Offset(LineCt,  0 ) = UCase(LineOfText)
    LineCt = LineCt +  1 
    Loop
    Close # 1 
End Sub


вот это дело Спасибо!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Чтение данных из txt-файла из Excel? / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 331ms
Закрыть
start [/forum/topic.php?fid=61&tablet=1&tid=2183803]:
 0ms
get settings:
 7ms
get forum list:
 11ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 45ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 44ms
get tp. blocked users:
 1ms
others: 207ms
total:  331ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]