armando,
Cita:
...tengo que exportar un catalago a excel de activos fijos que incluyen foto...como le hago para exportar las fotos...
|
Revisa este código:
Código Delphi
[-]
implementation
Uses ComObj;
procedure TForm1.Button1Click(Sender: TObject);
const
XlFileFormat = 51;
var
Excel, WrkS : Variant;
FileExcel : String;
FileImage : String;
begin
FileExcel := ExtractFilePath(Application.ExeName) + 'TestImage.xlsx';
FileImage := ExtractFilePath(Application.ExeName) + 'Image-1.jpg';
try
Excel := CreateOleObject('Excel.Application');
Excel.DisplayAlerts := False;
Excel.Visible := False;
Excel.Workbooks.Open(FileExcel);
WrkS := Excel.Worksheets[1];
WrkS.Shapes.Addpicture(FileImage, False, True, 70, 10, 100, 100);
WrkS.Pictures.Insert(FileImage);
WrkS.Cells[1, 1].Value := 'Dato-1';
WrkS.Cells[2, 1].Value := 'Dato-2';
WrkS.Cells[3, 1].Value := 'Dato-3';
WrkS.SaveAs(FileExcel,XlFileFormat);
finally
Excel.Quit;
Excel := Unassigned;
WrkS := Unassigned;
end;
end;
El código anterior permite
insertar datos e imágenes en una hoja de cálculo por medio de Automatización en Excel. El código fue probado en
Delphi 7 con
Excel 2010.
Revisa estos links:
Espero sea útil
Nelson.