Домашняя страница Undo Do Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Собрать в таблицу Excel сведения из таблиц Word файла - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, китин  
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Word » Собрать в таблицу Excel сведения из таблиц Word файла
Собрать в таблицу Excel сведения из таблиц Word файла
baxtiyor1916 Дата: Пятница, 11.11.2022, 12:25 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Добрый день.
Имеются сведения в Word файле, в таблице (см. скрин)
Таких таблиц в word-файле несколько, каждый на отдельной странице.
Их нужно собрать в таблицу Excel файла (см. скрин)
Можете помочь с макросом?
К сообщению приложен файл: word_.docx(60.0 Kb) · 9928402.png(95.9 Kb) · 7492556.png(114.1 Kb) · excel_.xlsm(12.1 Kb)
 
Ответить
СообщениеДобрый день.
Имеются сведения в Word файле, в таблице (см. скрин)
Таких таблиц в word-файле несколько, каждый на отдельной странице.
Их нужно собрать в таблицу Excel файла (см. скрин)
Можете помочь с макросом?

Автор - baxtiyor1916
Дата добавления - 11.11.2022 в 12:25
baxtiyor1916 Дата: Понедельник, 14.11.2022, 08:14 | Сообщение № 2
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Спасибо, ответили на другом ресурсе.
Оказывается в Word есть коллекция Tables - это word'овские таблицы.
Так можно пробежаться по каждой ячейке каждой таблицы:
[vba]
Код
Sub jjj()
For Each tbl In ActiveDocument.Tables
    For i = 1 To tbl.Rows.Count
        For k = 1 To tbl.Columns.Count
            Debug.Print Application.CleanString(tbl.Cell(i, k).Range.Text)
        Next
    Next
Next
End Sub
[/vba]
 
Ответить
СообщениеСпасибо, ответили на другом ресурсе.
Оказывается в Word есть коллекция Tables - это word'овские таблицы.
Так можно пробежаться по каждой ячейке каждой таблицы:
[vba]
Код
Sub jjj()
For Each tbl In ActiveDocument.Tables
    For i = 1 To tbl.Rows.Count
        For k = 1 To tbl.Columns.Count
            Debug.Print Application.CleanString(tbl.Cell(i, k).Range.Text)
        Next
    Next
Next
End Sub
[/vba]

Автор - baxtiyor1916
Дата добавления - 14.11.2022 в 08:14
ВладимирС Дата: Вторник, 15.11.2022, 11:48 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 0% ±

Спасибо, ответили на другом ресурсе

Мне, кажется, надо писать на каком.
 
Ответить
Сообщение
Спасибо, ответили на другом ресурсе

Мне, кажется, надо писать на каком.

Автор - ВладимирС
Дата добавления - 15.11.2022 в 11:48
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Word » Собрать в таблицу Excel сведения из таблиц Word файла
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2022 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!