Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как в excel вставить данные из txt-файлов? / 10 сообщений из 10, страница 1 из 1
05.06.2014, 10:11
    #38662250
MaxxaM
MaxxaM
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в excel вставить данные из txt-файлов?
Есть таблица в excel, которую надо заполнить данными из 10-ти txt-файлов.
В каждом текстовом файле нужно произвести поиск, взять найденное значение
и вствить в соответствующую ячейку таблицы excel.

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

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

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


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

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


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