ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Выгрузка в Excel и закрытие процессов
7 сообщений из 7, страница 1 из 1
Выгрузка в Excel и закрытие процессов
    #34060137
Фотография AngelOKES
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AngelOKES
Участник
Доброго всем дня!!!

У меня возник такой вопрос, необходимо выгрузить данные в Excel.
Но это не проблема, проблема состоит в том, что мне необходимо выгрузить около 40 разных файлов. Это у меня тоже получаеться.

Проблема состоит в том что все эти 40 выгрузок висят в процессах и вырубать их приходиться руками.

Что типа oExcelObject.Quit() не получаеться.
...
Рейтинг: 0 / 0
17.10.2006, 14:04
| Ответить | Цитировать | Написать  
Выгрузка в Excel и закрытие процессов
    #34060226
ДП
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ДП
Гость
+ release oExcelObject
...
Рейтинг: 0 / 0
17.10.2006, 14:24
| Ответить | Цитировать | Написать  
Выгрузка в Excel и закрытие процессов
    #34060416
AleksMed
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AleksMed
Участник
1. Выгрузил
2. Сохранил (Workbook.SaveAs)
3. Вышел (ExcelApp.Quit)
...
Рейтинг: 0 / 0
17.10.2006, 15:11
| Ответить | Цитировать | Написать  
Выгрузка в Excel и закрытие процессов
    #34062208
Фотография AngelOKES
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AngelOKES
Участник
sele q1
scan
if msub_sname<>sub_sname
if msub_sname<>'Ðàéíî íå âûáðàí'
oExcelSheet.Range("A1").Select
oExcelWorkbook.SaveAs("t:\Documents\200610\test\Ñâåðêà 9 ìåñ. Ðåäàêöèÿ Ñáûòà ("+alltrim(msub_sname)+").xls")

Вот вроде все стоит, но процессы остаються

oExcelSheet.Application.Quit
oExcelObject.Quit()
release oExcelObject

mNomer=2
endif
msub_sname=sub_sname
oExcelObject = CREATEOBJECT('Excel.Application')
oExcelWorkbook = oExcelObject.Application.Workbooks.Open("c:\energo\sverka.xlt")
oActiveExcelSheet = oExcelWorkbook.Worksheets("otchet").Activate
oExcelSheet = oExcelWorkbook.Worksheets("otchet")
WAIT WINDOW "Ïîäîæäèòå, èäåò ôîðìèðîâàíèå ôàéëà " + CHR(13) + "" + CHR(13) + ;
"Èìïîðò äàííûõ â Excel." + CHR(13) + "" NOWAIT
oExcelSheet.Rows("1:1").Font.Name = "Arial"
oExcelSheet.Rows("1:1").Font.FontStyle = "Bold"
oExcelSheet.Rows("1:1").Font.Size = 8
oExcelSheet.Columns(3).WrapText = .T.
oExcelSheet.Columns(4).WrapText = .T.
oExcelSheet.Columns(5).WrapText = .T.
oExcelSheet.Columns(6).WrapText = .T.
oExcelSheet.Columns(8).WrapText = .T.
oExcelSheet.Columns(8).NumberFormat = "@"
oExcelSheet.Columns(10).NumberFormat = "#,##0.00"
oExcelSheet.Columns(11).NumberFormat = "#,##0.00"
oExcelSheet.Columns(12).NumberFormat = "#,##0.000"
oExcelSheet.Columns(13).NumberFormat = "#,##0"
endif
oExcelSheet.Cells(mNomer,1).value=nd
oExcelSheet.Cells(mNomer,2).value=point_id
oExcelSheet.Cells(mNomer,3).value=np
oExcelSheet.Cells(mNomer,4).value=nampris
oExcelSheet.Cells(mNomer,5).value=mPriz1
oExcelSheet.Cells(mNomer,6).value=mPriz2
oExcelSheet.Cells(mNomer,7).value=tarif_tens
oExcelSheet.Cells(mNomer,8).value=zav_nom
oExcelSheet.Cells(mNomer,9).value=kft_t
oExcelSheet.Cells(mNomer,10).value=pokazs
oExcelSheet.Cells(mNomer,11).value=pokazn
oExcelSheet.Cells(mNomer,12).value=procent
oExcelSheet.Cells(mNomer,13).value=vsekvt2
mNomer=mNomer+1
endscan
...
Рейтинг: 0 / 0
18.10.2006, 07:13
| Ответить | Цитировать | Написать  
Выгрузка в Excel и закрытие процессов
    #34062238
Jura.K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jura.K
Участник
А если вынести
oExcelObject = CREATEOBJECT('Excel.Application')
за пределы SCAN

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
oExcelObject = CREATEOBJECT('Excel.Application') 
SCAN
   oExcelWorkbook = oExcelObject.Application.Workbooks.Open("c:\energo\sverka.xlt")
   IF && проверка каких то условий
     oExcelWorkbook.SaveAs("t:\Documents\200610\test\Ñâåðêà 9 ìåñ.  
        Ðåäàêöèÿ     Ñáûòà ("+alltrim(msub_sname)+").xls")
   ENDIF
   oExcelWorkbook.Close()
ENDSCAN
oExcelWorkbook=.NULL.
oActiveExcelSheet=.NULL.
oExcelSheet=.NULL.
oExcelObject.Quit
Да и у Вас не освобождаются переменные oExcelWorkbook,oActiveExcelSheet,oExcelSheet
наверно поэтому oExcelObject не закрывается
...
Рейтинг: 0 / 0
18.10.2006, 08:04
| Ответить | Цитировать | Написать  
Выгрузка в Excel и закрытие процессов
    #34062239
Фотография Aleksey-K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Aleksey-K
Участник
1. Может осталась ссылка на EXCEL (копия переменной oExcelObject )
2. Может EXCEL кривой или VFP ? Какая версия EXCEL и VFP ?
С уважением, Алексей
...
Рейтинг: 0 / 0
18.10.2006, 08:04
| Ответить | Цитировать | Написать  
Выгрузка в Excel и закрытие процессов
    #34062287
Фотография AngelOKES
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AngelOKES
Участник
Спасибо наконец-то разобрался:

oExcelWorkbook=.NULL.
oActiveExcelSheet=.NULL.
oExcelSheet=.NULL.
oExcelObject.Quit

Теперь все работает!
...
Рейтинг: 0 / 0
18.10.2006, 08:53
| Ответить | Цитировать | Написать  
7 сообщений из 7, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Выгрузка в Excel и закрытие процессов
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&fpage=229&tid=1590551]:
 0ms
get settings:
 8ms
get forum list:
 15ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 47ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 31ms
get tp. blocked users:
 1ms
others: 246ms
total:  366ms
созд. / загр.: 366ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]