 |
|
Модераторы: Akina |
 
|
|
Как добавить в книгу Excel макрос, Создаю книгу, там должен быть макрос 
| lek |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 31 Регистрация: 30.11.2003 Репутация: нет Всего: нет |
Подскажите, как при создании книги в Excel добавить туда макрос? Книга создаётся с помощью vb
Это сообщение отредактировал(а) lek - 30.8.2004, 12:38 |
|||
|
||||
Загрузка ...
| valex13 |
|
|||
 Бывалый  Профиль Группа: Участник Сообщений: 243 Регистрация: 29.1.2003 Где: Иркук. область, г . Иркутск Репутация: 1 Всего: 1 |
А ты попробуй создать книгу на основе шаблона. А в шаблоне занеси макрос!
|
|||
|
||||
| aleonov |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 8 Регистрация: 15.9.2004 Репутация: нет Всего: нет |
Все очень просто, выбираешь в меню Севис->Макрос-> Начать Запись =) Далее что-то делаешь, а в это время в макросе все записывается. Далее если хочешь там же Редактор Васика открываешь и пишешь код какой хочешь.
Удачи  |
|||
|
||||
| lek |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 31 Регистрация: 30.11.2003 Репутация: нет Всего: нет |
Разобрался через пару дней после вопроса
Может кому-то понадобится...Dim VBComp As VBComponent Dim VBCodeMod As CodeModule Set VBComp = wBookDst.VBProject.VBComponents.Add(vbext_ct_StdModule) VBComp.name = "ProgModule" Set VBCodeMod = wBookDst.VBProject.VBComponents("ProgModule").CodeModule With VBCodeMod .InsertLines 1, "Sub auto_open()" .InsertLines 2, " Dim i As Integer, xList As Integer" .InsertLines 3, " Dim fCount As Boolean, cCount as Integer" .InsertLines 4, " fCount = False" .InsertLines 5, " cCount=45" .InsertLines 6, " Dim curBalance As Double, lastBalance As Double, tmp As Double" ............... ............... ............... .InsertLines 33, " wBook.Sheets(" & Chr(34) & "ñâîä" & Chr(34) & ").Range(" & Chr(34) & "C41" & Chr(34) & ").Value = lastBalance" .InsertLines 34, "End Sub" End With Надо включть в макросах-безопасность "Доверять доступ к Visual Basic Project", иначе ругаться будет |
|||
|
||||
| cardinal |
|
|||
 Инженер Профиль Группа: Экс. модератор Сообщений: 6003 Регистрация: 26.3.2002 Где: Германия Репутация: 19 Всего: 99 |
lek, слушай, мне понравилось...
А на VB такое прокатит интересно? Никто не сталкивался? -------------------- Немецкая оппозиция потребовала упростить натурализацию иммигрантов В моем блоге: Разные истории из жизни в Германии "Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино". А. и Б. Стругацкие |
|||
|
||||
| Guest |
|
|||
|
Unregistered |
так это и написано на vb6
|
|||
|
||||
| lek |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 31 Регистрация: 30.11.2003 Репутация: нет Всего: нет |
это был я
|
|||
|
||||
| cardinal |
|
|||
|
Инженер Профиль Группа: Экс. модератор Сообщений: 6003 Регистрация: 26.3.2002 Где: Германия Репутация: 19 Всего: 99 |
Это же VBA? Или я торможу?
-------------------- Немецкая оппозиция потребовала упростить натурализацию иммигрантов В моем блоге: Разные истории из жизни в Германии "Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино". А. и Б. Стругацкие |
|||
|
||||
| lek |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 31 Регистрация: 30.11.2003 Репутация: нет Всего: нет |
это vb, экзешник раз в месяц трудится для формирования нового файла экселя и переноса туда остатков из текущего месяца
|
|||
|
||||
| cardinal |
|
|||
|
Инженер Профиль Группа: Экс. модератор Сообщений: 6003 Регистрация: 26.3.2002 Где: Германия Репутация: 19 Всего: 99 |
А VBComponent например где описан? Я что-то пролестнул MSDN и ничего не нашел...
 -------------------- Немецкая оппозиция потребовала упростить натурализацию иммигрантов В моем блоге: Разные истории из жизни в Германии "Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино". А. и Б. Стругацкие |
|||
|
||||
| lek |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 31 Регистрация: 30.11.2003 Репутация: нет Всего: нет |
MSDN не люблю читать
но вот вроде оно VBComponent Object вообще когда искал по теме, то нашёл это, им и пользовался |
|||
|
||||
|
|
| Правила форума "VB6" | |
|
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina. |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | VB6 | Следующая тема » |
[ Время генерации скрипта: 0.0899 ] [ Использовано запросов: 22 ] [ GZIP включён ]
Реклама на сайте Информационное спонсорство
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |