Ver Mensaje Individual
  #1  
Antiguo 20-05-2014
ELANDETA ELANDETA is offline
Registrado
NULL
 
Registrado: dic 2013
Posts: 8
Reputación: 0
ELANDETA Va por buen camino
Problema Automatizar Calc de Open Office con Delphi

Buenas a todos,

Hace dias me asignaron pasar una consulta de una tabla a una hoja de Calc ya con un formato previo, logre insertar los valores
pero ahora me doy cuenta que en los campos Numeros y Fecha se le esta colocando una comilla Simple Delante lo cual no deja aplicar el formato.

Necesito su ayuda ya que es una consulta de mas de 5000 registro y no me imagino tener que quitar esas comillas de forma manual. Solo Imaginense es un archivo que hay que generarlo dos o tres veces por Semana si le digo eso al usuario final de que tendra que quitar esa comilla, !!Seguro me coje Odio a Muerte!!!!

aqui le muestro un Fragmento del Codigo
===================================================================
Código Delphi [-]
procedure TdmOpenOffice.abrirArchivo(nombreArchivo: string; visualizar: Boolean);
Var
    Url: string;
    ooParams: variant;
begin
     ooParams := VarArrayCreate([0, 0], varVariant);
     ooParams[0] := ooCreateValue('Hidden', Not visualizar); // çç not Visible);
     Url := 'file:///' + extractFilePath(nombreArchivo) + Copy(nombreArchivo, LastDelimiter('\', nombreArchivo )+1, Length(nombreArchivo));;
     Documento := Escritorio.loadComponentFromURL(Url, '_blank', 0, ooParams);
     Hoja := Documento.getSheets.getByIndex(0);
end;



Procedure TdmOpenOffice.escribirEnCelda(celda: string; Valor: Variant);
Var
    oCelda : Variant;
begin
    oCelda:= Hoja.getCellRangeByName(celda);
    oCelda.setString(VarToStr(valor)); //Insertamos un texto
end;

Espero que alguien pueda ayudarme con este Problemita. Desde ya Mucha Gracias..

Última edición por Casimiro Notevi fecha: 21-05-2014 a las 10:04:45.
Responder Con Cita