Форум вопросов и ответов

Форум вопросов и ответов (https://www.otvetnemail.ru/)
-   Новый архив 3 (https://www.otvetnemail.ru/novyj-arhiv-3-813/)
-   -   Отработка макросов при открытии документа (https://www.otvetnemail.ru/novyj-arhiv-3-813/otrabotka-makrosov-pri-otkrytii-dokumenta-308297/)

Guest 30.09.2011 00:04

Отработка макросов при открытии документа
 
Есть такой вот макросFunction FindByKey(Sheetname,keycol,key,col) Dim Doc as Object Dim Sheet as Object Dim SearchDesc as Object Dim Found as Object Dim CellAdr as Object Dim oCell as Object Doc = StarDesktop.CurrentComponent Sheet = Doc.Sheets.getByName(Sheetname) SearchDesc = Sheet.createSearchDescriptor() SearchDesc.SearchString = key Found = Sheet.findAll(SearchDesc) FindByKey="" Dim i As Integer for i=0 to Found.getCount()-1 CellAdr = Found(i).getCellAddress if (CellAdr.Column=keycol) then oCell=Sheet.getCellByPosition(col,CellAd r.Row) FindByKey=oCell.getString endif nextEnd FunctionОн ищет значения в другом листе. При открытии документа вылетает ошибка, из-за доступа к еще не созданному листу. Кто такое как борет?


Часовой пояс GMT, время: 00:40.


© www.otvetnemail.ru - Форум вопросов и ответов.