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

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

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

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

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

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

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

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

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

Application.displayAlerts=False
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.11.2007, 10:36:47
    #34950910
f
f
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программное копирование макроса
Посмотри
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Программное копирование макроса / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 339ms
Закрыть
start [/forum/topic.php?fid=61&tablet=1&tid=2181874]:
 0ms
get settings:
 5ms
get forum list:
 12ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 86ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 31ms
get tp. blocked users:
 1ms
others: 191ms
total:  339ms
x
x
Закрыть


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