| Вопрос: Excel->VB | Добавлено: 29.01.03 07:00 |
Автор вопроса:  Me
|
|
Люди, помогите новичку!! требуется , чтобы при нажатии какой -нить кнопочки в экселе загружался мой проект с определённой формы -допустим, frmSelect Заранее спасибо!! |
| Ответы | Всего ответов: 5 |
|
Номер ответа: 1 Автор ответа: ГАТ Вопросов: 2 Ответов: 117 |
Web-сайт: Профиль | | #1 | Добавлено: 29.01.03 07:28 |
|
Привяжи к кнопке макрос, а в макросе напиши так: frmSelect.Show vbModal |
||
|
Номер ответа: 2 Автор ответа: Me Вопросов: 3 Ответов: 2 |
Профиль | | #2 | Добавлено: 29.01.03 08:08 |
|
|
||
Это всё конечно хорошо, но проблема в том , что экселевский файлик программно запускается из VB с заданными параметрами и каждый раз старая информация в нём затирается, соответственно при очередной загрузке кнопки с макросом уже не будет. |
Номер ответа: 3 Автор ответа:  Goul Вопросов: 0 Ответов: 29 |
Профиль | | #3 | Добавлено: 29.01.03 09:32 |
|
Можно добавлять в Excel временный пункт меню. Вот пример (нужно подключить библиотеки MS Office и MS Excel). Option Explicit Private WithEvents objCommandBar As Office.CommandBarButton Private Sub Form_Load() Dim EA As Excel.Application Dim WB As Excel.Workbook Set EA = New Excel.Application EA.Visible = True Set WB = EA.Workbooks.Add WB.Activate Set objCommandBar = AddCommandBars(EA) End Sub Private Function AddCommandBars(ByRef r_objParent As Object) _ As Office.CommandBarButton Dim objButton As Office.CommandBarButton Dim objExcel As Excel.Application Dim ButtonCaption As String Dim sPosition As String
On Error GoTo Err_h Set objExcel = r_objParent ButtonCaption = "User menu" sPosition = "Tools" Set objButton = objExcel.CommandBars(sPosition).Controls.Add( _ Type:=msoControlButton, Temporary:=True) objButton.BeginGroup = False objButton.Caption = ButtonCaption Set objExcel = Nothing Set AddCommandBars = objButton Exit Function Err_h: MsgBox Err.Description End Function Private Sub objCommandBar_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean) MsgBox "Clicked!" End Sub |
||
|
Номер ответа: 4 Автор ответа: EvgeniICQ: 14051980 Вопросов: 3 Ответов: 11 |
Профиль | | #4 | Добавлено: 30.01.03 21:19 |
|
Подожди, если запускать не файл экселя, а шаблон то все меню и кнопки должны присутствовать |
||
|
Номер ответа: 5 Автор ответа: GoulВопросов: 0 Ответов: 29 |
Профиль | | #5 | Добавлено: 31.01.03 08:12 |
|
На самом деле в этом примере меню добавляется и ко всем окнам Excel, которые открываются после запуска программы - неважно, шаблон открываем или нет. |
||
Страница: 1 |