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;
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


0