Ver Mensaje Individual
  #25  
Antiguo 30-12-2004
SEBAC_28 SEBAC_28 is offline
Registrado
 
Registrado: dic 2004
Posts: 5
Reputación: 0
SEBAC_28 Va por buen camino
[quote=Anabel]Hola

quizas el siguiente ejemplo te pueda ayudar, es utililizando el componente TExcelAplication, del palette Servers.

Receta:

Ingredientes en delphi:
1)TForm of course
2)TQuery
3)SaveDialog
5)TExcelapplication
6)bitButton
7)dbGrid


procedure TForm1.bbtnExportToExcelClick(Sender: TObject);
var
LineNumber, LCID : Integer;
LineString : string;
begin
with SaveDialog1 do
begin
FileName :='';
Filter:= 'Excel files|*.XLS;All Files|*.*';
DefaultExt := 'XLS';
Title := 'Exporting to Excel';
if execute then
begin
query1.Open;

Estoy teniendo algunos problemitas con lo anterior :
1- porque no declaran las variables: FileName ,Filter,DefaultExt,Title¿seran que son pertenecientes al objeto SaveDialog1?
2- ¿Me tengo que crear en el form los objetos descritos desde 2 a 7 inclusive? de los citados al principio
3- de ser asi lo ejecuto y en la linea query1.Open; se produce una excepcion con el mensaje Query1: No SQL statement available ¿como lo puedo solucionar?
Si alguien me puede dar una mano muy agradecido
Seba
Responder Con Cita