Witam mam taki kawałek kodu:
procedure TForm1.do_excela;
Excel: Variant;
i,j:integer;
begin
try
Button6.Visible:=False;
Excel:=CreateOleObject('Excel.Application'); // Otwarcie nowego Excela
Excel.WorkBooks.Add; // Stworzenie skoroszytu
for i:=1 to dl_tabeli do
Begin
for j:=1 to 7 do Excel.Cells[i,j].Value:=StringGrid2.Cells[j-1,i-1];
end;
Excel.Cells[dl_tabeli+1,1].Value:='Suma ';
Excel.Cells[dl_tabeli+1,3].Value:= Edit2.Text;
Excel.Cells[dl_tabeli+2,1].Value:='Suma sztuk';
/// Excel.Cells[dl_tabeli+2,3].Value:= edit3.Text;
//Excel.Cells[1,1].Value:='5as '; // Zapis danej do komórki Excela
Excel.ActiveWorkbook.SaveAs('C:\Marian\'+ DateToStr(Date)+'.xls'); // Zapis do pliku
Excel.Quit;
finally
ShowMessage('Tworzę nowy arkusz exela');
Button6.Visible:=true;
end;
end;
W poprzedniej aplikacji działa bez zastrzeżeń a teraz mam komunikat Unknown directive :'Excel"
Undeklared identifier : 'Excel'
Programik pisałem trochę dawno temu i nie pamietam co brakuje, może ktoś zechciałby mi pomóc.
Dzięki AS