FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Aqui va el codigo
Bueno, tal como pediste te pongo el codigo a ver si puedes darme una mano. Espero puedas ayudarme y desde ya mil gracias.-
procedure TForm_excel.BitBtn_bajarClick(Sender: TObject); var Excel, Libro: Variant; i: integer; Nombre: string; begin try Guardar_planilla.Execute; if (Guardar_planilla.FileName<>'') then begin Excel:=CreateOleObject('Excel.Application'); Excel.Visible := True; Nombre:=Guardar_planilla.FileName; Excel.DisplayAlerts:=false; //Comienzo a llenar las celdas Excel.WorkBooks.Add(); Excel.WorkBooks[1].WorkSheets[1].Name := 'Reporte'; Libro := Excel.WorkBooks[1].WorkSheets['Reporte']; DM.IBQuery_cob.SQL.Clear; DM.IBQuery_cob.SQL.Add('select * from cobranza where periodo='+intToStr(DM.IBDataSet_periodoID_PERIODO.Value)+'order by fecha'); DM.IBQuery_cob.Open; DM.IBQuery_cob.First; i:=1; while not (DM.IBQuery_cob.Eof) do begin Libro.Cells [i,1] := DM.IBQuery_cobFECHA.Value; Libro.Cells [i,2] := DM.IBQuery_cobCONCEPTO.Value; i:=i+1; DM.IBQuery_cob.Next; end; DM.IBQuery_cob.Close; //Acá es donde salta el error de que no soporta este metodo pero no hallo otro Excel.SaveAs(Nombre,Null,Null,Null,false,false,xlNoChange,xlUserResolution,false,Null,Null,0); end; except Excel.Quit; showmessage('No se pudo crear el Objecto Excel.'); raise; end; end; |
#2
|
||||
|
||||
Cita:
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
#3
|
|||
|
|||
Gracias
Neftali, gracias por la ayuda que me has dado, en ralidad se me soluciono el problema.
Román |
#4
|
|||
|
|||
Hola
Cita:
me podrias ayudar? quiero hacer lo mismo que pero no tengo idea de como hacerlo, hasta ahora con la ayuda del foro solo puedo cargar datos de un archivo .xls en un dbgrid en mi aplicacion, pero lo que quiero hacer es que los datos que tengo en el archivo .xls se almacenen en la tabla cliente que ya tiene definidos los campos (clavecliente,nombre,dir,tel,...), espero ke me puedas hechar una mano uso delphi 6 y sql. estoy utilizando ADO, MIL GRACIAS |
|
|
|