|
Вывод данных в Excel
|
||
|---|---|---|
Участник
Откуда: Северная столица!? (Питер)
Сообщения: 1 385 |
||
|
Как бы всё хорошо: Данные вывожу в нужном формате, макросы активизируются,....НО! нужно создать в Excelе на панели инструментов "Новое меню", в котором будут присутствовать кнопки с запуском макросов. Как это сделать!? В справке команд не нашел. Получается только назначение новой кнопки и/или меню. НО ОНИ пустые - ни названия, ни задания на выполнение макросов. Кто решал подобную проблемьу ОТЗОВИТЕСЬ, ГОРНИСТЫ или пошлите, плз по ссылочке...
Stepler (щёлк-щёлк!!)  |
||
| 13.11.2003, 09:11 |
|
|
|
Вывод данных в Excel
|
||
|---|---|---|
Участник
Откуда: Северная столица!? (Питер)
Сообщения: 1 385 |
||
|
В том-то и дело, я делаю (естественно после входа в Excel и т.п.):
Const menuname = "Отрыть Форму" Private Sub Workbook_AddinInstall() On Error GoTo errors: Dim num As Integer num = Application.CommandBars("Worksheet Menu Bar").Controls.Count num = num + 1 Dim a As CommandBarControl Set a = Application.CommandBars("Worksheet Menu Bar").Controls.Add(Type:=msoControlPopup, Before:=num) a.Caption = menuname Dim help As CommandBarControl Set help = Application.CommandBars("Настраиваемое всплывающее меню1").Controls.Add(Type:=msoControlButton, Before:=1) help.Caption = "Помощь" help.OnAction = "Help" Dim comms As CommandBarControl Set comms = Application.CommandBars("Настраиваемое всплывающее меню1").Controls.Add(Type:=msoControlButton, Before:=2) comms.Caption = "Штатное расписание" comms.OnAction = "Сокращение" Exit Sub End Sub Но ошибка выдается сразу после строки определения help.Caption = "Помощь" Stepler (щёлк-щёлк!!) |
||
| 13.11.2003, 09:50 |
|
|
|
Вывод данных в Excel
|
||
|---|---|---|
Участник
Откуда: Северная столица!? (Питер)
Сообщения: 1 385 |
||
|
Дело не в этом, Я уже пробовал обзывать и "а" и "Отрыть форму", но результат тот же - игнорирование написанной строки и переход после строки
Set help = Application.CommandBars("Настраиваемое всплывающее меню1").Controls.Add(Type:=msoControlButton, Before:=1) сразу в конец .... Stepler (щёлк-щёлк!!) |
||
| 13.11.2003, 10:22 |
|
|
|
Вывод данных в Excel
|
||
|---|---|---|
Участник
Откуда: Северная столица!? (Питер)
Сообщения: 1 385 |
||
|
Я проверил "вручную", оказывается Excel воспринимает какждый раз как разное меню: то " Настраиваемое всплывающее меню6627700 ", то " Настраиваемое всплывающее меню6864500 ", т.е. придется ставить логичиский перебор меню, но как заранее узнать, как Excel его обзывает?
Stepler (щёлк-щёлк!!) |
||
| 13.11.2003, 10:36 |
|
|
