Delphi - Pregunta sobre Excel y Delphi

 
Vista:

Pregunta sobre Excel y Delphi

Publicado por Ariel (61 intervenciones) el 03/11/2005 19:58:43
Hola

Alguien me podria ayudar con esto, plis!!
me da un error al tratar de abrir un libro excel, ya existente
puesto a q lo utilizocomo una matriz.

mExcel - TExcelApplication
WB - TExcelWorkBook
WS - TExcelWorksheet

var
I:integer;
Rango1:String;
Lcid:Integer;
Filename, SaveChanges: OleVariant;

Begin

Screen.Cursor:=crHourGlass;

Lcid:=GetUserDefaultLCID;
mExcel.Visible[lcid]:=True;

Filename := ruta + 'RepFrance.xls';

//- esto me da error-
wb.ConnectTo(
mexcel.Workbooks.Open(filename,false,false,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam, EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,lcid)
);

ws.ConnectTo(wb.Sheets['FormOrder']as _Worksheet);

WS.Activate(LCID);

mexcel.ScreenUpdating[lcid]:=false;

ws.Range['G11','G11'].value2:=Memo8.Lines.Text;
ws.Range['G12','G12'].value2:=FrmMenu.Edit2.Text;

SaveChanges:=true;
try
wb.Close(SaveChanges,RutaExcel,emptyparam,lcid);
mexcel.ScreenUpdating[lcid]:=true;
except On EOleException do
begin
SaveChanges:=False;
wb.Close(SaveChanges);
end;
end;

ws.Disconnect;
wb.Disconnect;
mexcel.Quit;
mexcel.Disconnect;

Screen.Cursor:=crDefault;
end;
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder