ExcelWB1.ConnectTo(ExcelApp1.ActiveWorkbook); - довольно странная манипуляция.
Я бы вообще отказался от использования ExcelWB1 (точнее от TExcelWorkbook).
Код: Выделить всё
var
ExcelWB1: ExcelWorkBook;
Sheet: Variant;
........
ExcelApp1.Connect;
ExcelApp1.Workbooks.Add('Test', 0);
ExcelWB1:=ExcelApp1.ActiveWorkbook;
Sheet:=ExcelWB1.ActiveSheet;
........
//А в конце
ExcelApp1.DisplayAlerts[0] := ...;
ExcelApp1.Quit;
ExcelApp1.Disconnect;
//Но никак не наоборот!
Попробуйте также:
ConnectionKind:=ckNewInstance и AutoQuit:=true;
Кроме того, ошибки могут возникать при запуске под отладчиком. Т.е. не нажимайте F9 в Delphi для запуска, а только компилируйте проект, а запускайте готовое приложение.
А еще объясните, что такое
WaitFormUnit.WaitFormForm.Visible := false;
Application.ProcessMessages;
ExcelWB1.ConnectTo(ExcelApp1.ActiveWorkbook); - довольно странная манипуляция.
Я бы вообще отказался от использования ExcelWB1 (точнее от TExcelWorkbook).
[code]
var
ExcelWB1: ExcelWorkBook;
Sheet: Variant;
........
ExcelApp1.Connect;
ExcelApp1.Workbooks.Add('Test', 0);
ExcelWB1:=ExcelApp1.ActiveWorkbook;
Sheet:=ExcelWB1.ActiveSheet;
........
//А в конце
ExcelApp1.DisplayAlerts[0] := ...;
ExcelApp1.Quit;
ExcelApp1.Disconnect;
//Но никак не наоборот!
[/code]
Попробуйте также:
ConnectionKind:=ckNewInstance и AutoQuit:=true;
Кроме того, ошибки могут возникать при запуске под отладчиком. Т.е. не нажимайте F9 в Delphi для запуска, а только компилируйте проект, а запускайте готовое приложение.
А еще объясните, что такое
[quote]WaitFormUnit.WaitFormForm.Visible := false;
Application.ProcessMessages; [/quote]