BorlandTalk.com

Stefan · Guest

I used the following Lines of code in Delphi5 that worked fine to open
multiple sheets in my workbook, but now I have started going over to
delphi 7 and now I get an OLE error 800A03EC when the line with the
#'s is executed at runtime.

Any body have a clue what the problem is?

where
bookBS: TExcelWorkbook;
excelBS: TExcelApplication;
sheetBSH: TExcelWorksheet;
sheetBSL: TExcelWorksheet;

begin
LCID := GetUserDefaultLCID;

excelBS.Connect;
excelBS.Visible[LCID] := true;

bookBS.ConnectTo(excelBS.Workbooks.Add(xlWBATWorksheet, LCID));
sheetBSL.ConnectTo(bookBS.Worksheets[1] as _Worksheet);
sheetBSL.Name := NewModel.Name + '-Low';

sheetBSH.ConnectTo(bookBS.Sheets.Add(1, 1, 1, xlWBATWorksheet, LCID)
as _Worksheet); ## --- error when this line executes

sheetBSH.Name := NewModel.Name + '-High';
....
end;