Lazarus
Other Languages => Italian => Topic started by: nicola69 on January 07, 2013, 04:40:39 pm
-
Buon giorno
Ho la necessita di fare una applicazione che legga file in formato 2010.
La soluzione che ho intenzione di usare è quella di OLE.
Ho fatto questa piccola applicazione:
rocedure TForm1.Button1Click(Sender: TObject);
Var XLApp,XLSHEET: OLEVariant;
lastrow : integer;
begin
XLApp := CreateOleObject('Excel.Application'); // requires comobj in uses
try
XLApp.Visible := False; // Hide Excel
XLApp.DisplayAlerts := False;
if not OpenDialog1.Execute then exit;
XLApp.Workbooks.Open(OpenDialog1.FileName);
XLSHEET := XLApp.Workbooks.Sheets(0).Select;
lastrow:= XLSHEET.Range('A65536').End(xlUp).Row;
finally
end;
Il compilatore va in errore su XLSHEET.Range('A65536').End(xlUp).Row;
dicendomi
unit1.pas(48,38) Fatal: Syntax error, "identifier" expected but "END" found
Non essendoci altri modi gratuiti per interagire con file excel 2010 su fpc , qualche anima buona mi può dire come posso eludere l'errore oppure aggirarlo
Grazie
-
Riesci a postare un esempio?!
Ti consiglio di postare in italiano su www.lazaruspascal.it