| Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате |
| Форум программистов > Программирование, связанное с MS Office > перемещение макроса |
| Автор: Stolzen 13.7.2007, 17:13 |
| Вобщем, задача такая: Пользователь тыкает кнопку "Install", модуль и форма копируются из моей книги в книгу personal.xls Как это реализовать??? |
| Автор: Naghual 13.7.2007, 17:21 |
| Так как написано - никак. Проще скопировать содержимое Персонал в свою книгу. |
| Автор: Stolzen 13.7.2007, 17:47 | ||||
В том-то и дело, что нужно не копированием Каждый раз объяснять, как копировать и т.д. затруднительно
Все-таки решение должно быть... |
| Автор: Дмит 13.7.2007, 19:01 |
| Проще наверное сделать отдельную установочную прогу (книгу). Можно например и так: ActiveWorkbook.SaveCopyAs Application.StartupPath & "\" & ActiveWorkbook.Name просто положить Вашу (активную) книгу в папку Startup, не трогая Personal. Макросы и форма будут доступны. |
| Автор: Stolzen 14.7.2007, 12:52 |
| Спасибо, сейчас попробую!! Добавлено через 10 минут и 32 секунды Ну скопировал. Получается, что теперь моя книга каждый раз открывается при запуске Экселя... Что делать? |
| Автор: Дмит 14.7.2007, 17:53 |
| То, что и требовалось - макросы и формы доступны. Personal тоже запускается при старте Excel. Если Вам не нужна видимость книги, то её лучше сделать надстройкой. |
| Автор: Stolzen 14.7.2007, 19:35 | ||
Можно, пожалуйста, по-подробнее? Спасибо |
| Автор: Дмит 16.7.2007, 18:25 |
| Например, так: ThisWorkbook.IsAddin = True ThisWorkbook.SaveCopyAs Application.StartupPath & "\" & ThisWorkbook.Name ThisWorkbook.IsAddin = False Книга просто будет скрыта. Предупреждаю - код корявый. Лучше смотри литературу о надстройках (*.xla), их создании и правильной установке. |
| Автор: Stolzen 16.7.2007, 22:00 |
| ОК, попробую Добавлено через 5 минут и 3 секунды Спасибо, работает! Книга действительно невидимая. Даже если ее просто так щас запускать  |
