Этот баннер — требование Роскомнадзора для исполнения 152 ФЗ.
«На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика. Продолжая использовать сайт, вы даёте согласие с использованием данных технологий».
Политика конфиденциальности

Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
|
14.11.2006, 17:39
|
|||
|---|---|---|---|
|
|||
Снова и снова Excel |
|||
|
#18+
Пишу как сказано здесь Dim objExcel As Excel.Application Dim objBook As Excel.Workbook Dim objSheet As Excel.Worksheet Dim FileName As String Dim I As Integer FileName = "123.xls" objExcel = New Excel.Application objBook = objExcel.Workbooks.Add objSheet = objBook.ActiveSheet System.Runtime.InteropServices.Marshal.ReleaseComObject(objSheet) objSheet = Nothing objBook.SaveAs(FileName) objBook.Close() System.Runtime.InteropServices.Marshal.ReleaseComObject(objBook) objBook = Nothing objExcel.Quit() System.Runtime.InteropServices.Marshal.ReleaseComObject(objExcel) objExcel = Nothing GC.Collect() В результате процесс "Excel" все равно остается висеть. Что делать? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
15.11.2006, 13:45
|
|||
|---|---|---|---|
|
|||
Снова и снова Excel |
|||
|
#18+
Спасибо, уже нашел GC.Collect() надо было запускать из той же процедуры, из которой вызывается запуск Excel т.е. Sub proc_1() proc_2() GC.Collect() end sub Sub proc_2() открываем Excel и работаем с ним end sub ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|

start [/forum/topic.php?fid=18&mobile=1&tid=1387562]: |
0ms |
get settings: |
4ms |
get forum list: |
9ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
29ms |
get topic data: |
6ms |
get forum data: |
2ms |
get page messages: |
21ms |
get tp. blocked users: |
1ms |
| others: | 206ms |
| total: | 282ms |

| 0 / 0 |
