ReSQL.ru
     
powered by simpleCommunicator - 2.0.39     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как в excel вставить данные из txt-файлов?
10 сообщений из 10, страница 1 из 1
Как в excel вставить данные из txt-файлов?
    #38662250
MaxxaM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MaxxaM
Гость
Есть таблица в excel, которую надо заполнить данными из 10-ти txt-файлов.
В каждом текстовом файле нужно произвести поиск, взять найденное значение
и вствить в соответствующую ячейку таблицы excel.

Направьте, пожалуйста, на путь истинный. С VBA не работал никогда, но здесь наверное его надо использовать?
...
Рейтинг: 0 / 0
05.06.2014, 10:11
| Ответить | Цитировать | Написать  
Как в excel вставить данные из txt-файлов?
    #38662371
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
MaxxaMнаверное его надо использовать?можно, конечно обойтись доступом к текстовым файлам через ODBC, если они соответствуют формату, который можно объявить базой данных, а в общем случае да - VBA
...
Рейтинг: 0 / 0
05.06.2014, 11:42
| Ответить | Цитировать | Написать  
Как в excel вставить данные из txt-файлов?
    #38662385
капитанская дочка
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
капитанская дочка
Участник
MaxxaM,

если txt со структурой типа CSV то ADO, если нет то можно с FSO извратиться или тот же ADODB.Stream, но ты с VBA не дружишь, вряд ли тебе это поможет, а писать все за тебя чет не охота
...
Рейтинг: 0 / 0
05.06.2014, 11:50
| Ответить | Цитировать | Написать  
Как в excel вставить данные из txt-файлов?
    #38662411
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
я имел ввиду, что можно было бы обойтись без программирования, если удастся подключить текстовые файлы как источники данных, в противном случае - программирование
...
Рейтинг: 0 / 0
05.06.2014, 12:09
| Ответить | Цитировать | Написать  
Как в excel вставить данные из txt-файлов?
    #38662599
MaxxaM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MaxxaM
Гость
Начал писать на VBA. Более или менее научился искать в txt-файлах в кодировке 1251,
а как искать в тектовом файле, который в кодировке 866?
...
Рейтинг: 0 / 0
05.06.2014, 14:25
| Ответить | Цитировать | Написать  
Как в excel вставить данные из txt-файлов?
    #38662655
капитанская дочка
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
капитанская дочка
Участник
MaxxaM,

показывай че навоял
...
Рейтинг: 0 / 0
05.06.2014, 14:53
| Ответить | Цитировать | Написать  
Как в excel вставить данные из txt-файлов?
    #38662676
MaxxaM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MaxxaM
Гость
Пока так:
Sub Test1()
Open "D:\max\excel\file.txt" For Input As #1
Dim s, t As String
While Not EOF(1)
Line Input #1, s
If InStr(s, "îñò") Then
MsgBox s
End If
Wend
Close #1
End Sub

Нахожу все строки в файле (win 1251), кот. содержат "ост".
Как сделать тоже, когда файл в 866 кодировке?
...
Рейтинг: 0 / 0
05.06.2014, 15:02
| Ответить | Цитировать | Написать  
Как в excel вставить данные из txt-файлов?
    #38662734
MaxxaM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MaxxaM
Гость
Решил проблему поиска в файлах 866 кодировки:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Private Declare Function OemToChar Lib "user32" Alias "OemToCharA" (ByVal lpszSrc As String, ByVal lpszDst As String) As Long

Sub Test1()
  Dim src, dst As String
  Open "D:\max\excel\file.txt" For Input As #1
  While Not EOF(1)
    Line Input #1, src
    dst = Space(Len(src))
    OemToChar src, dst
    If InStr(dst, "Òåñт") Then
      MsgBox dst
    End If
  Wend
  Close #1
End Sub


Может кто подскажет, а зачем тут строка
Код: vbnet
1.
dst = Space(Len(src))
...
Рейтинг: 0 / 0
05.06.2014, 15:57
| Ответить | Цитировать | Написать  
Как в excel вставить данные из txt-файлов?
    #38662759
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
MaxxaMМожет кто подскажет, а зачем тут строка
Код: vbnet
1.
dst = Space(Len(src))


Это создание приёмника(получателя).

Вот здесь расписано, как сделать запрос из Excel в текстовый файл.
http://exceluser.com/formulas/msquery-excel-text-files.htm
...
Рейтинг: 0 / 0
05.06.2014, 16:26
| Ответить | Цитировать | Написать  
Как в excel вставить данные из txt-файлов?
    #38663151
MaxxaM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MaxxaM
Гость
Мне это не подходит, т.к. текстовые файлы не особо структурирваны и их нельзя рассматривать как
"text files in a folder as relational tables in a database".
...
Рейтинг: 0 / 0
06.06.2014, 08:38
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как в excel вставить данные из txt-файлов?
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru             Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=38662411&tid=2173991]:
 0ms
get settings:
 10ms
get forum list:
 15ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 29ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 44ms
get tp. blocked users:
 1ms
others: 291ms
total:  411ms
созд. / загр.: 411ms
x
x
Закрыть


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