Доброе время суток, смотрел кучу тем для вывода в электронную книгу, но так и не смог ни чего сделать с проблемой!
проблема такая, иногда зависает Excel при запуске, и спрашивает вопрос о сохранении, хотя использую команду DisplayAlerts = .f.,
Можете пожалуйста подсказать куда его вставлять, посмотрел кучу примеров!
примеры как пробовал!
Пример 1:
[code]With LoExcel
.Workbooks.Open(alltrim(PublPoiskBlank)+"Blank.xls")
.Sheets("Лист1").Copy
.Windows("Blank.xls").Activate
.ActiveWindow.Close
.UserControl =.t.
.DisplayAlerts =.f.
.IgnoreRemoteRequests = .T.
ENDWITH
WITH LoExcel
.RANGE("A1").SELECT
.WindowState = 3
.ScreenUpdating = .T.
.Visible = .T.
.IgnoreRemoteRequests = .F.
ENDWITH
Release LoExcel
[/code]
Пример 2:
[code]With LoExcel
.Workbooks.Open(alltrim(PublPoiskBlank)+"Blank.xls")
.Sheets("Лист1").Copy
.Windows("Blank.xls").Activate
.ActiveWindow.Close
.DisplayAlerts =.f.
ENDWITH
WITH LoExcel
.RANGE("A1").SELECT
.WindowState = 3
.ScreenUpdating = .T.
.Visible = .T.
ENDWITH
Release LoExcel
[/code]
Пример 3:
[code]With LoExcel
.Workbooks.Open(alltrim(PublPoiskBlank)+"Blank.xls")
.DisplayAlerts =.f.
.Sheets("Лист1").Copy
.DisplayAlerts =.f.
.Windows("Blank.xls").Activate
.DisplayAlerts =.f.
.ActiveWindow.Close
.DisplayAlerts =.f.
ENDWITH
WITH LoExcel
.RANGE("A1").SELECT
.WindowState = 3
.ScreenUpdating = .T.
.Visible = .T.
ENDWITH
Release LoExcel
[/code]