Сисопыч
Дата: 11.04.2002 06:12:55
Мне надо было сделать отчет в ексел:
Dim xlApp As New Excel.Application
'откроем шаблон
xlApp.Workbooks.Open "D:\Сводка\SVODKA.XLS"
xlApp.Visible = True 'вывод листа на экран
'сводка по производству за сутки
xlApp.Worksheets(1).Select
СводкаАнгл xlApp.Worksheets(1) ' в этой функции я заполняю листик данными из рекордов
'сохранение копии книги в папке C:\Сводка\Дискета
xlApp.Workbooks("SVODKA").SaveCopyAs "D:\Сводка\Дискета\SVODKA-" & Day(КакаяДата()) & "-" & Month(КакаяДата())& ".xls"
xlApp.Workbooks("SVODKA").Saved = True ' это чтоб не переспрашивала при закрытии
xlApp.Quit
Set xlApp = Nothing 'просто подстраховался
DmitryM
Дата: 19.09.2002 12:59:59
Перебрасывая данные в Excel, в финале прописываю xlApp.Quit
set xlApp = nothing.
На всех машинах работает нормально, а у заказчика Excel остается висеть в процессах и пока его по трем клавишам не истребишь висит все
В чем может быть причина?