проблемы с экспортом в эксель

[DjAnubis]

сваял с помощью друга прогу. кидает данные в эксель. два года пользуюсь. внезапно перестало экспортировать (сегодня 18 файликов обработал, началось на 19-ом). выдает ошибку, что Нельзя установить свойство SheetsInNewWorkbook класса Application.

Пробовал переустановить офис - не помогло.

Код

var
Excel, WorkBook, Sheet: Variant;
i,j,Count,RC:Integer;
SaveTo:string;
begin
btnIntoExcel.Enabled:=False;
if SaveDialog1.Execute then SaveTo:=SaveDialog1.FileName;
Excel := CreateOleObject('Excel.Application');
Excel.SheetsInNewWorkbook :=1;
WorkBook := Excel.WorkBooks.Add;
Excel.Visible:=True;
WorkBook := Excel.WorkBooks.Item[1];
Sheet := Workbook.Sheets.Item[1];
Count:=Form2.Tag;
RC:=Form2.StringGrid1.RowCount-1;
Sheet.Range[Sheet.Cells[1,1],Sheet.Cells[Count,3]].ClearContents;
Sheet.Range[Sheet.Cells[1,1],Sheet.Cells[Count,2]].NumberFormat:= '@';
Sheet.Range[Sheet.Cells[1,3],Sheet.Cells[Count,3]].NumberFormat:='# ##0,00';
for i:=1 to RC do
for j:=1 to 2 do
begin
Application.ProcessMessages;
Sheet.Cells.Item[i,j].Value2:=Form2.StringGrid1.Cells[j,i];
end;
for i:=1 to RC do
begin
Application.ProcessMessages;
Sheet.Cells.Item[i,3].Value2:=StrToFloat(Form2.StringGrid1.Cells[3,i]);
end;
Excel.DisplayAlerts:=False;
Excel.ActiveWorkbook.SaveAs(SaveTo);
Excel.Quit;
Excel:=Unassigned;

[BookkeeperW]

Попробуй прочитать вот здесь

[DjAnubis]

Спасибо, мне не тяжело перевести бейсик на паскаль, но там описывается проблема копирования листа, а у меня проблема его создания

[DjAnubis]

наверное проблема была с лицензией. поставил другой офис 2003 и всё взлетело.

[BookkeeperW]

спасибо!
будем иметь ввиду...

[DjAnubis]

Цитата: Excel.SheetsInNewWorkbook :=1; WorkBook := Excel.WorkBooks.Add;

Я из поменял местами и мне выдало что у лицензии сошёл срок, только так и догадался. Так что ANTI MSOPA не всегда подходит