Access ASP SQL Server VBA NET - Форумы по проектированию

LEADERSOFT.ru Разработка на заказ программ и сайтов

Форумы по информационным технологиям

Начало

Forums

Регистрация | Вход

Форумы

Поиск

Список форумов

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: Панель ин...

Тема: Панель инструментов для Excel

15.06.2007 21:04:15

All

4316 сообщения

Тема: Панель инструментов для Excel

Как находясь в ACCESS создать программно для Excel панель инструментов с кнопками, подчеркиваю, не выходя из ACCESS.
Созданная панель инструментов, должна появится при активизации Excel объекта в форме ACCESS.

P.S. Общий раздел по формам
Автор: cab от 0:00:00 Источник ...

15.06.2007 21:04:15

All

4316 сообщения

RE: Панель инструментов для Excel

1. Как запустить Excel из Access описано в документации или смотрите ниже.
Set app = New Excel.Application
app.Workbooks.Open "test.xls"
app.WindowState = xlMinimized
app.Visible = True

2. Как создать панель "Новая панель" в Excel показано в этом коде. Макрос можно запустить из Excel (для теста) или Access, замените Application на app
Sub Макрос1()
Application.CommandBars.Add(Name:="Новая панель").Visible = True
Selection.Copy
Application.CommandBars("Standard").Controls(9).Copy Bar:=Application. _
CommandBars("Новая панель")
Application.CommandBars("Standard").Controls(10).Copy Bar:=Application. _
CommandBars("Новая панель")
Application.CommandBars("Новая панель").Controls.Add Type:=msoControlButton, _
ID:=2520, Before:=3
End Sub

P.S. Общий раздел по формам
Автор: Expert от 0:00:00 Источник ...

15.06.2007 21:04:16

All

4316 сообщения

RE: Панель инструментов для Excel