![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#12
|
|||
|
|||
[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 |
|
|
![]() |
|