| Вопрос: Кнопку в Excel из Access.... как? | Добавлено: 12.09.02 10:36 |
Автор вопроса:  Tsar | Web-сайт: www.vbnet.ru
|
|
Хочу добавить кнопку из аксеса в эксель получается только саму кнопку а как добавить процедуру по кнопке?..... |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  MAGNUS Вопросов: 12 Ответов: 430 |
Профиль | | #1 | Добавлено: 12.09.02 14:24 |
|
Когда обьявляешь переменную для кнопки от добавляй WithEvents dim WithEvents MyButton as Excel.Button У тебя появятся события для нее как и для всех нормальных контролей и как ни странно там будет и ... Click!! Вот его и дави! Удачи! |
||
! 
но это уже и так понятно.|
Номер ответа: 2 Автор ответа: Tsar Вопросов: 2 Ответов: 2 |
Web-сайт: Профиль | | #2 | Добавлено: 12.09.02 17:42 |
|
так не получается... вот то что касается того как я кнопку хочу вставить...: Function ToExcel() Dim strSQL$, i&, strPathToMan$, strFileToMan$ Dim qdf As QueryDef strSQL = "SELECT FROM ORDER BY WITH OWNERACCESS OPTION;" If CurrentDb.OpenRecordset(strSQL).RecordCount = 0 Then Exit Function Set qdf = CurrentDb.CreateQueryDef("ToRep", strSQL) Set qdf = Nothing DoCmd.TransferSpreadsheet acExport, _ acSpreadsheetTypeExcel5, "ToRep", "c:\report\report101.xls", True, , 0 DoCmd.DeleteObject acQuery, "ToRep" Dim strTitle$, strSubj$
Dim xlApp As Object, xlBook As Object, xlSheet As Object Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Open("c:\report\report101.xls") Set xlSheet = xlBook.Worksheets(1)
xlSheet.Activate
xlSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _ , DisplayAsIcon:=False, Left:=5, Top:=30, Width:=69, Height:=44.25 _ ).select xlBook.Save xlSheet.Application.Quit End Function ??? |
||
Страница: 1 |