Buenas, estoy pasando dantos desde delphi a excel, mediante ole con el siguiente codigo (Es un codigo de prueba):
Código Delphi
[-]uses
...ComObj, OleServer;
procedure TForm1.Button1Click(Sender: TObject);
var
ExcelApp: OLEVariant;
fichero: string;
begin
ExcelApp := CreateOleObject('Excel.Application');
try
fichero:=ExtractFilePath(ParamStr(0))+'Plantilla.xls';
ExcelApp.Workbooks.Open(fichero);
ExcelApp.cells.item[7,'I']:=strtoint(Edit1.Text);
ExcelApp.cells.item[8,'I']:=20;
ExcelApp.Worksheets[1].PrintOut;
finally
if not VarIsEmpty(ExcelApp) then
begin
ExcelApp.Quit;
ExcelApp := Unassigned;
end;
end;
end;
Me pasa los datos, me recalcula las celdas, me lo imprime y me lo cierra correctamente, pero.. me sale la ventana de "Desear guardar los cambios realizados en Plantilla.xls" del Excel, dandome als opciones de si, no y cancelar. Como hago para que acepte automaticamente la de "No", puesto que mi documento de excel es una plantilla para imprimir, y no quiero que se guarden nunca los datos.
Saludos, y muchas gracias