[delphi xe3]: utilizzare excel

[karug64]

Salve a tutti.
Avrei la necessità di interagire, all'interno del mio programma, con excel (già installato sul mio pc).

Ho cercato su internet soluzioni, così sono riuscito a aprire il file xls

var   Cols: integer;   Rows: integer;   Excel, XLSheet: Variant;   failure: Integer;  
begin // compila ISP0
    Excel:=CreateOleObject('Excel.Application');
    Excel.Visible:=False;
    Excel.WorkBooks.Open(L_vispi.Caption);

ma mi fermo qui !!

Infatti, volendo selezionare un foglio specifico del file xls non riesco a trovare soluzioni.
Ed inoltre dovrei

1) leggere il contenuto di una cella
2) scrivere un nuovo valore nella cella
3) allineare a dx o sx una cella

Potete aiutarmi ?

[denis76]

Se usi ADO puoi gestire un foglio excel come fosse un database, ogni foglio è una tabella e vale la sintassi sql.

[karug64]

Intanto grazie per l'mmediata risposta.
No. Non utilizzo ADO.
Scrivo sul foglio dati rivenienti da elaborazioni che effettuo leggendo dei file txt.

Grazie

[franzauker2.0]

Originariamente inviato da karug64
0)Infatti, volendo selezionare un foglio specifico del file xls non riesco a
1) leggere il contenuto di una cella
2) scrivere un nuovo valore nella cella
3) allineare a dx o sx una cella

Potete aiutarmi ?

0) Sheet := XLApp.Workbooks[1].Worksheets['foglio'];
1) s:=sheet.cells[3,2];
2) Sheet.cells[3,2]:='valore';
3) Sheet.Cells[3, 2].HorizontalAlignment := xlright;

[karug64]

Originariamente inviato da franzauker2.0
0) Sheet := XLApp.Workbooks[1].Worksheets['foglio'];

Il problema è proprio qui !!! Avevo trovato una riga analoga, ma ho errore su

Worksheets

undeclared identifier 'Worksheets'

Originariamente inviato da franzauker2.0
1) s:=sheet.cells[3,2];
2) Sheet.cells[3,2]:='valore';
3) Sheet.Cells[3, 2].HorizontalAlignment := xlright;

ovviamente queste istruzioni non ho potuto provarle....

Grazie

[franzauker2.0]

Originariamente inviato da karug64
Il problema è proprio qui !!! Avevo trovato una riga analoga, ma ho errore su

Worksheets

undeclared identifier 'Worksheets'

Devi aprire un file Excel che contiene GIA' il foglio "foglio"

  XLApp := CreateOleObject('Excel.Application');
  XLApp.Visible := false;
  XLApp.Workbooks.Open('c:\file.xls');
  XLApp.Workbooks[1].Worksheets[1].Name := 'foglio';
  Sheet := XLApp.Workbooks[1].Worksheets['foglio'];

Et voilà.

[karug64]

Originariamente inviato da franzauker2.0
Devi aprire un file Excel che contiene GIA' il foglio "foglio"

  XLApp := CreateOleObject('Excel.Application');
  XLApp.Visible := false;
  XLApp.Workbooks.Open('c:\file.xls');
  XLApp.Workbooks[1].Worksheets[1].Name := 'foglio';
  Sheet := XLApp.Workbooks[1].Worksheets['foglio'];

Et voilà.

MI sfugge qualcosa (come da firma ):

procedure TForm3.Elabora1Click(Sender: TObject);
var
XLApp: Variant;

begin  
L_v.Caption  := 'D:\bd1\file_supporto\Vi.xls';
try
XLApp := CreateOleObject('Excel.Application');
except  
on E : Exception do
begin
MessageDlg('Errore nella creazione dell''istanza Microsoft Excel.', mtError, [mbOK], 0);
 exit;
 end; 
XLApp.Visible := True; 
// provo ad aprire excel   
try 
 XLApp.WorkBooks.Open(L_vispi.Caption);
 XLApp.Workbooks[1].Worksheets[1].Name := 'Foglio1';
 Sheets := XLApp.Workbooks[1].Worksheets['mecojoni'];
except   
on E : Exception do  
 begin
  MessageDlg('Errore nell''apertura del file '+ L_vispi.caption , mtError, [mbOK], 0);     Exit;    
end; 
end;

Ho errore su Worksheets e Name ...

Cosa mi sfugge ?

Grazie

[karug64]

Aggiorno.
Il codice proposto funziona.
L'unica cosa che non va è la selezione del foglio.
Questa istruzione:

Sheets := XLApp.Workbooks[1].Worksheets['foglio'];

non seleziona il foglio (che esiste).

Grazie

[karug64]

Mi rispondo da solo:

risolto cosi' :

XLApp.Workbooks[1].Worksheets['foglio'].select;

[MItaly]

Ahem... magari evitiamo esempi di codice di contenuto così edificante - non siamo al bar, non è particolarmente professionale ( ) e a molti dà fastidio.