Delphi i excel

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

Moja procedura eksportu grida do excela. Zmodyfikuj do potrzeb.

procedure SendToExcel(Grid :TXStringGrid);
var
 xls, wb, Range : OLEVariant;
 arrData        : Variant;
 Row, Col       : Word;
 i, j           : Word;

begin
 Row := Grid.RowCount;
 Col := Grid.ColCount;

 if Row > 0 then
    begin
     arrData := VarArrayCreate([1, Row, 1, Col], varVariant);
     for i := 1 to Row do
      for j := 1 to Col do
       arrData[i, j] := Grid.Cells[j - 1, i - 1];
    end; // if Row

  xls := CreateOLEObject('Excel.Application');
  wb := xls.WorkBooks.Add;
  Range := wb.WorkSheets[1].Range[wb.WorkSheets[1].Cells[1, 1],
                                  wb.WorkSheets[1].Cells[Row, Col]];
  Range.Value := arrData;
  xls.Visible := True;
end; // SendToExcel

dzięki przetestuje ale dalej mnie gnębi co zapomniałem dopisać, czemu tak prosta sprawa po prostu nie dziala, ten kodzik ma kilka lat i funkcjonuje bez problemu w innym programie.

AS

Strzał w ciemno: masz u Uses ComObj?

mam Uses ComObj, odpaliłem przykład "Oleksy_Adam" i zadziałało,
dzięki Adam

AS

Jeśli chodzi o mnie to poniżej procedure
powinien znaleŹć się var
Patrząc na ten kod, tego właśnie brakuje

TeeM napisał(a)

Jeśli chodzi o mnie to poniżej procedure
powinien znaleŹć się var
Patrząc na ten kod, tego właśnie brakuje

To raz a dwa: w deklaracji zmiennych, Excel ma byc typu OleVariant a nie Variant.

Przeszukujac temat zapisu do Excela z Delphi znalazlem ten i inne watki. Ale we wszystkich odpowiedziach
tworzony jest nowy object (nowy plik Excela)

CreateOleObject('Excel.Application'); 

i dopiero do niego sa zapisywane dane.
Powyzszy kod dostosowalem do swoego programu i dziala, ale mi potrzebny jest cos innego.

Czy mozna jakos zapisywac do istniejacego juz pliku Excela?

Szukalem w helpie cos w stylu

OpenOleObject('plik_excela')

ale nic nie znalazlem.

Czy mozna otworzyc istniejacy plik?

Umiem otworzyc istniejacy plik Excela przez ADO ale nie umiem wtedy zapisywac do
okreslonej komorki. Nigdzie nic na ten temat nie znalazlem.

CreateOleObject('Excel.Application'); tworzy obiekt excel a nie plik!

Zamiast w helpie (btw co ma help delphi do excela??) trzeba było googla zapytać http://www.google.com/search?client=opera&rls=pl&q=delphi+excel+open+file&sourceid=opera&ie=utf-8&oe=utf-8 - już w pierwszym masz

A co do ADO to kolejna komórka to kolejna kolumna w tabelce a między wierszami poruszasz się przez First, Prev, Next, Last

Misiekd napisał(a)

CreateOleObject('Excel.Application'); tworzy obiekt excel a nie plik!

Zamiast w helpie (btw co ma help delphi do excela??) trzeba było googla zapytać

Pisze w Delphi wiec szukam w helpie do Delphi, chyba normalne.

Misiekd napisał(a)

http://www.google.com/search?client=opera&rls=pl&q=delphi+excel+open+file&sourceid=opera&ie=utf-8&oe=utf-8 - już w pierwszym masz

Niestety nie dziala ten sposob. Pojawia sie komunikat
"Łączenie i osadzanie obiektów nie jest dostępne" a potem komunikat
"Aplikacja została uruchomiona lecz nie zarejestrowała klasy factory"
Nie mam pojecia o co chodzi.

Misiekd napisał(a)

A co do ADO to kolejna komórka to kolejna kolumna w tabelce a między wierszami poruszasz się przez First, Prev, Next, Last

Nie bardzo rozumiem. Jak mam w insercie wpisac zeby wstawil w komorke D10???
Jak mi ma pomoc First, Prev itd.?

Wodzu napisał:

To raz a dwa: w deklaracji zmiennych, Excel ma byc typu OleVariant a nie Variant.

wcale nie, ja używam Variant i to wystarcza ;-)

u mnie wygląda to mniej więcej tak:

uses
ComObj

var
    excel, MyWorkBook1 : variant;

begin
       excel := createOleObject('Excel.Application');
       excel.visible := true;
       MyWorkBook1 := CreateOleObject ('Excel.Sheet');
       MyWorkBook1 := Excel.Workbooks.Open('C:\plik.xls');

       excel.worksheets[1].Range['A1'].Value := 'coś tam';


       MyWorkBook1.save;
       MyWorkBook1.close;

       excel.quit;
       excel := Unassigned;
end;

wiem tylko tyle co mi kiedyś Misiekd poradził ;-)

Forsaken napisał:

Nie bardzo rozumiem. Jak mam w insercie wpisac zeby wstawil w komorke D10???
Jak mi ma pomoc First, Prev itd.?

First, Prev itp. stosujesz do tabelki nie do Excela

Taka mała uwaga: w office 2003 zamiast value musi być value2

Oleksy_Adam napisał:

Taka mała uwaga: w office 2003 zamiast value musi być value2

tu też się nie zgadzam ;-) kod który umieściłem powyżej działa bez problemu pod office XP, 2003, 2007 a starszych niestety nie sprawdzałem ;-)

cosmoo napisał(a)

Wodzu napisał:

Forsaken napisał:

Nie bardzo rozumiem. Jak mam w insercie wpisac zeby wstawil w komorke D10???
Jak mi ma pomoc First, Prev itd.?

First, Prev itp. stosujesz do tabelki nie do Excela

Do jakiej tabelki bo ja juz zupelnie stracilem watek? Obrabiam jakies dane i chce je potem wpisac w okreslone miejsca w arkuszu wpisac. Jak to zrealizowac przez ADO? W ogole jak napisac inserta czy
select?
select * from [Arkusz1$]
dziala, ale wyciaga wyszystko od A1 poczawszy.
A jak napisac select wybierajacy wartosci od komorki C10 powiedzmy?
A jak insert???
Insert into nazwa_tabeli(nazwykolumny1, nazwakolumny2...) values (jakaswartosc1, jakaswartosc2)
Co trzeba podac jako nazwe tabeli? Co za nazwy kolumn gdyby powiedzmy mial zacza wstawiac
w komorki D10, D11 itd.
Moze ma ktos jakis kawalek kodu w ktorym byloby to zrealizowane? Bardzo prosze o pomoc.