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

Вход

Регистрация

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

 

= Мир MS Excel/объединение процедур - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » объединение процедур (Макросы/Sub)
объединение процедур
Hitzkopf Дата: Вторник, 15.10.2019, 16:56 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Добрый день нашел макрос по заполнению файла ворд данными из эксель, но для полной адаптации надо удалить пустые строки из таблицы ворд. В получившемся файле ворд решил эту задачу через "макрос1" но при попытке подключить его в модуль "imacro" что то не получается
может кто нибудь сможет разобраться и помочь
Файлы прилагаю
К сообщению приложен файл: 5067956.xlsb (63.2 Kb) · 6583442.docx (34.8 Kb)
 
Ответить
СообщениеДобрый день нашел макрос по заполнению файла ворд данными из эксель, но для полной адаптации надо удалить пустые строки из таблицы ворд. В получившемся файле ворд решил эту задачу через "макрос1" но при попытке подключить его в модуль "imacro" что то не получается
может кто нибудь сможет разобраться и помочь
Файлы прилагаю
Автор - Hitzkopf
Дата добавления - 15.10.2019 в 16:56
RAN Дата: Вторник, 15.10.2019, 17:07 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Ваш "Макрос1" ничего про Word не знает.
Вставьте код вашего "Макрос1" вместо строки (или после)
[vba]
Код
'Call Макрос1 вызываем макрос для удаления строк имеющих "y"
[/vba]
и замените переменные Word на их значения, ибо Excel их тоже не знает
wdFindContinue = 1
wdFormatXMLDocument = 12

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеВаш "Макрос1" ничего про Word не знает.
Вставьте код вашего "Макрос1" вместо строки (или после)
[vba]
Код
'Call Макрос1 вызываем макрос для удаления строк имеющих "y"
[/vba]
и замените переменные Word на их значения, ибо Excel их тоже не знает
wdFindContinue = 1
wdFormatXMLDocument = 12
Автор - RAN
Дата добавления - 15.10.2019 в 17:07
Hitzkopf Дата: Суббота, 19.10.2019, 03:47 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Цитата RAN, 15.10.2019 в 17:07, в сообщении № 2 ()
Вставьте код вашего "Макрос1" вместо строки (или после)
'Call Макрос1 вызываем макрос для удаления строк имеющих "y"

а если просто убрать кавычку? или я не прав?
Цитата RAN, 15.10.2019 в 17:07, в сообщении № 2 ()
и замените переменные Word на их значения, ибо Excel их тоже не знает
wdFindContinue = 1
wdFormatXMLDocument = 12

а вот тут все тяжело :(, заменить заменил но процедура не работает, если можно покажите участок кода с этой заменой. а у Вас вообще это заработало?
 
Ответить
Сообщение
Цитата RAN, 15.10.2019 в 17:07, в сообщении № 2 ()
Вставьте код вашего "Макрос1" вместо строки (или после)
'Call Макрос1 вызываем макрос для удаления строк имеющих "y"

а если просто убрать кавычку? или я не прав?
Цитата RAN, 15.10.2019 в 17:07, в сообщении № 2 ()
и замените переменные Word на их значения, ибо Excel их тоже не знает
wdFindContinue = 1
wdFormatXMLDocument = 12

а вот тут все тяжело :(, заменить заменил но процедура не работает, если можно покажите участок кода с этой заменой. а у Вас вообще это заработало?
Автор - Hitzkopf
Дата добавления - 19.10.2019 в 03:47
Hitzkopf Дата: Суббота, 19.10.2019, 06:04 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
есть еще такая версия кода, но тоже не могу собрать чтоб работало :(
К сообщению приложен файл: iMacro.bas (2.7 Kb)
 
Ответить
Сообщениеесть еще такая версия кода, но тоже не могу собрать чтоб работало :(
Автор - Hitzkopf
Дата добавления - 19.10.2019 в 06:04
Мир MS Excel » Вопросы и решения » Вопросы по VBA » объединение процедур (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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