ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Программное копирование макроса
7 сообщений из 7, страница 1 из 1
Программное копирование макроса
    #34943555
nifrit
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nifrit
Гость
Доброго времени суток.
Суть такова. Необходимо сделать что-бы некие данные выгружались из Word в Excell... ну это сделано.
Ситуация : приходит новый документ Word, в него надо как-то засунуть макрос (.bas, хотя без разницы) и запустить на выполнение. Такое же действие надо выполнить и для Excell.
Решил сделать через некие ворота. То есть конечный пользователь открывает файл - тыкает на кнопку и выбирает файл в который надо загрузить макрос.
Нужны идеи....
На форуме нашел что-то подобное... но не смог применить..
Код: plaintext
1.
2.
3.
Dim cm As CodeModule
    Set cm = ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_StdModule).CodeModule
    cm.AddFromFile ()
    Application.Run ()

Подскажите пути решения и наиболее подходящие для этого функции и свойства...
Вариант пусть пользователь заходит в редактор и импортирует модуль - не подходит.. не тот уровень конечного пользователя..

И еще вопросик... как узнать сколько страниц в документе Word? что бы цикл повторялся это число раз?

И еще по коду.... в
Код: plaintext
AddFromFile ()
мы пишем то откуда надо загружать? А что мы пишем в
Код: plaintext
Application.Run ()
?
...
Рейтинг: 0 / 0
16.11.2007, 05:40:34
| Ответить | Цитировать | Написать  
Программное копирование макроса
    #34943829
vbapro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vbapro
Участник
зачем импортировать, автоматизируй из другой программы, например смотри Из другой программы выбрать открытый файл Эксель . а с копированием кода много проблем встретишь, начиная от антивирусников, заканчивая ошибок добавления кода в модуль..
...
Рейтинг: 0 / 0
16.11.2007, 09:53:18
| Ответить | Цитировать | Написать  
Программное копирование макроса
    #34944080
nifrit
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nifrit
Гость
То есть если я открою документ через
Код: plaintext
Application.Dialogs(xlDialogOpen).Show
а затем использую
Код: plaintext
GetObject()
то я смогу в этом документе выполнить макрос документа "хозяина"? То есть того через который я его открыл? Просто пользователю приходит документ из которого надо выдрать данные данные через макрос. Естественно в присланном документе макроса нет.
...
Рейтинг: 0 / 0
16.11.2007, 11:02:50
| Ответить | Цитировать | Написать  
Программное копирование макроса
    #34944187
vbapro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vbapro
Участник
сначала подключись к приложению (GetObject), потом делай с ним что хочешь. Примеры на форуме есть
...
Рейтинг: 0 / 0
16.11.2007, 11:29:45
| Ответить | Цитировать | Написать  
Программное копирование макроса
    #34950514
nifrit
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nifrit
Гость
Спасибо. Разобрался. Думал будет сложнее. GetObject удобная вешь.

У меня еще 3 мелких вопросика:
удаляю из документа все макросы (руками) а он все равно при запуске спрашивает об отключении макросов. Как вычистить их окончательно? Не программно, а ручками. Видимо что-то где-то сидит.

Удаляю из Excell листы при помощи макроса.
Код: plaintext
ActiveWindow.SelectedSheets.Delete

Выскакивает вопрос о подтверждении удаления. Как это обойти? Листов довольно много.

И как узнать сколько страниц в документе Word? Страницы однотипные и это надо для счетчика цикла.

Премного благодарен за оказанную помощь
...
Рейтинг: 0 / 0
20.11.2007, 04:36:50
| Ответить | Цитировать | Написать  
Программное копирование макроса
    #34950608
кладовщик
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
кладовщик
Участник
nifritСпасибо. Разобрался. Думал будет сложнее. GetObject удобная вешь.

У меня еще 3 мелких вопросика:
удаляю из документа все макросы (руками) а он все равно при запуске спрашивает об отключении макросов. Как вычистить их окончательно? Не программно, а ручками. Видимо что-то где-то сидит.

А сам модуль удалили?
nifrit
Удаляю из Excell листы при помощи макроса.
Код: plaintext
ActiveWindow.SelectedSheets.Delete

Выскакивает вопрос о подтверждении удаления. Как это обойти? Листов довольно много.

Application.displayAlerts=False
...
Рейтинг: 0 / 0
20.11.2007, 08:19:56
| Ответить | Цитировать | Написать  
Программное копирование макроса
    #34950910
f
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
f
Участник
Посмотри
...
Рейтинг: 0 / 0
20.11.2007, 10:36:47
| Ответить | Цитировать | Написать  
7 сообщений из 7, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Программное копирование макроса
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=34943829&tid=2181874]:
 0ms
get settings:
 9ms
get forum list:
 19ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 64ms
get topic data:
 15ms
get forum data:
 4ms
get page messages:
 63ms
get tp. blocked users:
 2ms
others: 210ms
total:  394ms
созд. / загр.: 394ms
x
x
Закрыть


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