varApuLibLec_g := varApuExcObj_g.Workbooks.Open(chrNombArch__p);
varApuHojLec_g := varApuLibLec_g.Worksheets[1];
intLCID______g := LOCALE_USER_DEFAULT;
ovaTemplate__g := xlWBATWorksheet;
wboExcePrinc_ := TExcelWorkbook.Create(Nil);
wshExcePrinc_ := TExcelWorksheet.Create(Nil);
excPrincipal.ConnectKind := ckNewInstance;
excPrincipal.Connect;
wboExcePrinc_.ConnectTo(excPrincipal.Workbooks.Add(ovaTemplate__g, intLCID______g));
wshExcePrinc_.ConnectTo(excPrincipal.Worksheets[1] as _Worksheet);
if chrNombHoja__g = '' then
begin
chrNombHoja__g := 'Hoja';
end;
intContHoja__g := 1;
wshExcePrinc_.Name := chrNombHoja__g+inttostr(intContHoja__g);