Этот баннер — требование Роскомнадзора для исполнения 152 ФЗ.
«На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика. Продолжая использовать сайт, вы даёте согласие с использованием данных технологий».
Политика конфиденциальности
|
|
|
Отловить ошибку (Или что то вроде ...)
|
|||
|---|---|---|---|
|
#18+
Есть программа которая выводит данные в Excel. Проблема состоит в том что если выполнение кода не доходит до строчек mprint.visible=.t. mprint.activeworkbook.save то Excel зависает в памяти машины (и приследующем открытии файла спрашивает "заменить ли существующий файл *.xlс") (очень мешает при отладке проги) Вопросы 1.Как избежать такой проблемы (выше сказаной) 2.Как выгрузить Excel из памяти (???) 3.Как перехватить ход программы если возникла кокая либо ошибка ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 08.04.2004, 13:53 |
|
||
|
Отловить ошибку (Или что то вроде ...)
|
|||
|---|---|---|---|
|
#18+
Смотря, как создавать объект Excel. Я делаю так. Создаю класс на основе Custom и в нем работатю с Excel (класс содержит объект oExcelApp). Код: plaintext Класс легко цепляется к объекту _Screen (AddObject). В методе Destroy класса прописать выход из Excel (_Screen.oExcel.oExcelApp.Quit). При закрытии программы (по кнопке "Стоп" в обработчике ошибок, по On ShutDown, по штатному выходу) уничтожать все объекты _Screen (RemoveObject). ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 08.04.2004, 14:21 |
|
||
|
Отловить ошибку (Или что то вроде ...)
|
|||
|---|---|---|---|
|
#18+
А перехват программы по какой-либо ошибке это On Error Do ErrorHandler With ... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 08.04.2004, 14:23 |
|
||
|
Отловить ошибку (Или что то вроде ...)
|
|||
|---|---|---|---|
|
#18+
<<<<< Смотря, как создавать объект Excel. Я делаю так. Создаю класс на основе Custom и в нем работатю с Excel (класс содержит объект oExcelApp). This.oExcelApp = CreateObject("Excel.Application") Класс легко цепляется к объекту _Screen (AddObject). В методе Destroy класса прописать выход из Excel (_Screen.oExcel.oExcelApp.Quit). При закрытии программы (по кнопке "Стоп" в обработчике ошибок, по On ShutDown, по штатному выходу) уничтожать все объекты _Screen (RemoveObject). >>> Это пример кода куда вставлять This.oExcelApp = CreateObject("Excel.Application") Я не когда не работал с класами mprint=createobject("excel.application") name_xls="c:\jurnal6\bufer.xls" mprint.workbooks.open(name_xls) mprint.rows("4:1500").delete DO WHILE NOT EOF() with mprint .cells(str,2).value=bufer.bs .cells(str,3).value=bufer.nn .cells(str,4).value=nc.nm .cells(str,5).value=bufer.cena .cells(str,6).value=bufer.kl .cells(str,7).value=nsi.nm .cells(str,8).value=bufer.dsh .cells(str,9).value=a1 ENDWITH skip str=str+1 ENDDO mprint.visible=.t. mprint.cells(3,1).select mprint.activeworkbook.save ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 08.04.2004, 14:30 |
|
||
|
Отловить ошибку (Или что то вроде ...)
|
|||
|---|---|---|---|
|
#18+
MSDN по Define Class. Но, вкратце, так: class_libr.PRG Код: plaintext 1. 2. 3. 4. 5. 6. 7. 8. 9. Перед запуском подключаем файл с классом. Код: plaintext 1. 2. 3. 4. 5. 6. 7. Процедура выхода (вешай на все, что может выйти из программы) Код: plaintext 1. 2. 3. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 08.04.2004, 16:26 |
|
||
|
|

start [/forum/topic.php?fid=41&msg=32474070&tid=1596841]: |
0ms |
get settings: |
13ms |
get forum list: |
20ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
61ms |
get topic data: |
9ms |
get forum data: |
2ms |
get page messages: |
41ms |
get tp. blocked users: |
1ms |
| others: | 270ms |
| total: | 425ms |

| 0 / 0 |
