Delphi操作Excel(Use Oel)

  Use ComObj:

procedure TorderMore1.BitBtn2Click(Sender: TObject);
var
  xlsFile:WideString;
  var ExcelApp: Variant;
begin
  SaveDialog1.FileName: =  MyQuery3.FieldValues[ ' orderno ' ]  +   ' .xls ' ;
   if  SaveDialog1.Execute then
  begin
    xlsFile: = ExtractFilePath(application.ExeName) + ' xlsorder_detail.xls ' ;
    ExcelApp : =  CreateOleObject( ' Excel.Application ' );
    ExcelApp.WorkBooks.Open(xlsFile);
    ExcelApp.ActiveWorkBook.SaveAs(SaveDialog1.FileName);
    ExcelApp.Cells[ 2 ].Value : =  ExcelApp.Cells[ 2 ].Value  +  VarToStr(MyQuery3.FieldValues[ ' orderno ' ]);
     if  not ExcelApp.ActiveWorkBook.Saved then
      ExcelApp.ActiveWorkBook.Save;
    ExcelApp.Visible : =  True;
     // ExcelApp.ActiveWorkBook.Close;
     // ExcelApp.Quit;
    ExcelApp: = unassigned;
  end;
end;

操作图片

                ExcelApp.ActiveSheet.Pictures.Insert(tmpJpg).Select; //当前选择
                ExcelApp.Selection.ShapeRange.IncrementLeft(1);//左移一空位 (Right) 
                ExcelApp.Selection.ShapeRange.IncrementTop(1);//上移一空位 (Bottom)
                ExcelApp.Selection.ShapeRange.LockAspectRatio := True; //更改图片大小
                ExcelApp.Selection.ShapeRange.Height := 58.5;
                ExcelApp.Selection.ShapeRange.Width := 99.75;
                ExcelApp.Selection.ShapeRange.Rotation := 0;
                ExcelApp.ActiveSheet.Rows[Row].RowHeight := ExcelApp.Selection.ShapeRange.Height+2;//更改行距