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

Вход

Регистрация

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

 

= Мир MS Excel/Очистка ячеек таблицы Word из vba кода Excel - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, китин  
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Word » Очистка ячеек таблицы Word из vba кода Excel (Макросы/Sub)
Очистка ячеек таблицы Word из vba кода Excel
aequit Дата: Суббота, 21.03.2015, 10:25 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 29
Репутация: 2 ±
Замечаний: 0% ±

Excel 2010
Здравствуйте! Есть таблица Word, в каждой ячейке своя закладка. В эти закладки копируются данные из ячеек Excel и документ сохраняется.
Как сделать очистку определённых (не всех) ячеек таблицы Word перед каждым новым копированием туда значений из ячеек Excel (закладки должны сохраниться)?
Сейчас после каждого срабатывания макроса к содержимому ячеек таблицы Word прибавляется новое, а старое не стирается :(
К сообщению приложен файл: testtabl.docx (10.5 Kb) · testm.xlsm (17.5 Kb)
 
Ответить
СообщениеЗдравствуйте! Есть таблица Word, в каждой ячейке своя закладка. В эти закладки копируются данные из ячеек Excel и документ сохраняется.
Как сделать очистку определённых (не всех) ячеек таблицы Word перед каждым новым копированием туда значений из ячеек Excel (закладки должны сохраниться)?
Сейчас после каждого срабатывания макроса к содержимому ячеек таблицы Word прибавляется новое, а старое не стирается :(
Автор - aequit
Дата добавления - 21.03.2015 в 10:25
Gustav Дата: Суббота, 21.03.2015, 12:13 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2748
Репутация: 1137 ±
Замечаний: 0% ±

начинал с Excel 4.0, видел 2.1
Измените подход принципиально. Закладки не нужны. Адресуйтесь прямо к ячейкам таблицы Word:
[vba]
Код
ActiveDocument.Tables(1).Cell(2,1).Range.Text = "текст 4"
[/vba]
ну или в вашем контексте:
[vba]
Код
wdDoc.Tables(1).Cell(2,1).Range.Text = Workbooks(MainBooks).Worksheets(MainSheets).Range("A4").Text
[/vba]

МОИ: Ник, Tip box: 41001663842605
 
Ответить
СообщениеИзмените подход принципиально. Закладки не нужны. Адресуйтесь прямо к ячейкам таблицы Word:
[vba]
Код
ActiveDocument.Tables(1).Cell(2,1).Range.Text = "текст 4"
[/vba]
ну или в вашем контексте:
[vba]
Код
wdDoc.Tables(1).Cell(2,1).Range.Text = Workbooks(MainBooks).Worksheets(MainSheets).Range("A4").Text
[/vba]
Автор - Gustav
Дата добавления - 21.03.2015 в 12:13
aequit Дата: Суббота, 21.03.2015, 12:30 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 29
Репутация: 2 ±
Замечаний: 0% ±

Excel 2010
Да, идеальный вариант hands Работает как нужно! Просто много примеров попадается с закладками, а прямую адресацию пока не встречал.
 
Ответить
СообщениеДа, идеальный вариант hands Работает как нужно! Просто много примеров попадается с закладками, а прямую адресацию пока не встречал.
Автор - aequit
Дата добавления - 21.03.2015 в 12:30
krosav4ig Дата: Воскресенье, 22.03.2015, 08:58 | Сообщение № 4
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация: 989 ±
Замечаний: 0% ±

Excel 2007,2010,2013
aequit, держите еще один вариант, без перебора ячеек
К сообщению приложен файл: 6398604.xlsm (22.4 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Воскресенье, 22.03.2015, 09:11
 
Ответить
Сообщениеaequit, держите еще один вариант, без перебора ячеек
Автор - krosav4ig
Дата добавления - 22.03.2015 в 08:58
aequit Дата: Среда, 25.03.2015, 10:13 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 29
Репутация: 2 ±
Замечаний: 0% ±

Excel 2010
krosav4ig, Спасибо, Ваш вариант посолиднее конечно, но и посложнее yes
 
Ответить
Сообщениеkrosav4ig, Спасибо, Ваш вариант посолиднее конечно, но и посложнее yes
Автор - aequit
Дата добавления - 25.03.2015 в 10:13
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Word » Очистка ячеек таблицы Word из vba кода Excel (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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