Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 22-08-2015
carlos gonzalez carlos gonzalez is offline
Miembro
 
Registrado: may 2005
Posts: 108
Poder: 19
carlos gonzalez Va por buen camino
funcion ExcelApplication1.ActiveWorkbook.SaveAs

Hola amigos buenas.

He estado buscando ya varios días en la web y no he encontrado el parámetro que se debe de cambiar a esta función, para que al guardar un archivo de Excel y si este ya existe no pregunte nada solo lo guarde.
Código Delphi [-]
ExcelApplication1.ActiveWorkbook.SaveAs(rutaArchivo,
                                        EmptyParam,
                                        EmptyParam,
                                        EmptyParam,
                                        EmptyParam,
                                        EmptyParam,
                                        xlnoChange,
                                        EmptyParam,
                                        EmptyParam,
                                        EmptyParam,
                                        EmptyParam,
                                        EmptyParam,
                                        LCID);
Alguien de ustedes conoce la sintaxis para lo que quiero hacer, si alguien sabe como hacerlo se los voy agradecer mucho.

Saludos...

Su amigo charless

Última edición por nlsgarcia fecha: 22-08-2015 a las 07:29:49. Razón: Sintaxis Delphi
Responder Con Cita
  #2  
Antiguo 22-08-2015
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola Carlos.

¿ Que versiónes de Delphi y Excell estas usando ?

Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita
  #3  
Antiguo 22-08-2015
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola de nuevo.

Aunque desconozco si trabajará para las versiones que manejas, creo que podrías intentarlo de este modo:
Código Delphi [-]
...
var
  ExcelApp : OleVariant;
begin
  ExcelApp := CreateOleObject('Excel.Application');
  try
    ExcelApp.DisplayAlerts := False;
    try
      // Acciones de guardado
      // ...
    finally
      ExcelApp.DisplayAlerts := True;
    end;
  finally
    ExcelApp.Quit;
    ExcelApp := UnAssigned;
  end;
end;

Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita
  #4  
Antiguo 22-08-2015
Avatar de nlsgarcia
[nlsgarcia] nlsgarcia is offline
Miembro Premium
 
Registrado: feb 2007
Ubicación: Caracas, Venezuela
Posts: 2.206
Poder: 21
nlsgarcia Tiene un aura espectacularnlsgarcia Tiene un aura espectacular
carlos gonzalez,

Cita:
Empezado por carlos gonzalez
...guardar un archivo de Excel y si este ya existe no pregunte nada solo lo guarde...


Te comento:

1- Ninguno de los parámetros de Workbook.SaveAs Method (Excel) están relacionados con las alertas de Excel.

2- Para evitar las alertas de Excel, debes poner la propiedad DisplayAlerts de Excel en False.

Revisa este código:
Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, ComObj, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
const
   xlOpenXMLWorkbook =  51;

var
   Excel, WrkS, WrkB : OLEVariant;
   Row, Col : Integer;
   Rows, Cols : Integer;
   FileExcel : String;

begin

   FileExcel := ExtractFilePath(ParamStr(0)) + 'TestData.xlsx';

   try
      Excel := GetActiveOleObject('Excel.Application');
   except
      Excel := CreateOleObject('Excel.Application');
   end;

   Excel.DisplayAlerts := False;
   Excel.Visible := False;

   WrkB := Excel.Workbooks.Open(FileExcel);
   WrkS := WrkB.Worksheets[1];

   Cols := WrkS.UsedRange.Columns.Count;
   Rows := WrkS.UsedRange.Rows.Count;

   Randomize;

   for Row:= 1 to Cols do
      for Col:= 1 to Rows  do
         WrkS.Cells[Col,Row] := Random(1000);

   WrkS.SaveAs(FileExcel,xlOpenXMLWorkbook);

   Excel.Quit;
   Excel := Unassigned;
   WrkS := Unassigned;
   WrkB := Unassigned;

end;

end.
El código anterior en Delphi 7 sobre Windows 7 Professional x32, Permite por medio de automatización abrir, actualizar y salvar una hoja de Excel 2010 con valores aleatorios sin mostrar ninguna alerta ni visualizar la hoja durante el proceso.

Revisa esta información:
Espero sea útil

Nelson.

Última edición por nlsgarcia fecha: 22-08-2015 a las 11:42:57.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Función javascript que llama a otra función javascript en otra página jandroruiz HTML, Javascript y otros 4 28-02-2013 12:38:00
Funcion fafita Varios 7 25-01-2008 17:03:40
Problema con ExcelApplication.ActiveWorkbook.SaveAs sitrico Servers 2 17-09-2005 22:37:50
SaveAs con Excel rfernandez Servers 1 21-02-2004 18:57:31
funcion agora18 SQL 1 06-10-2003 08:18:30


La franja horaria es GMT +2. Ahora son las 11:24:14.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi