操纵excel，请求帮助

Question

本人有这方面的问题一堆，希望在qq上指导，必有重谢
qq：1760815

Answer 1

输入'Excel'，搜索，你一定能找到需要的东西的
：）

Answer 2

希望下面的代码对你会有些帮助：procedure TfrmQueryWage.ExporttoExcel(filename:string);
var exl,sheet,SeleRange:variant;
    i,j:integer;         s,t:string;
const titleHeight=2;
begin
   exl:=CreateOLEObject('Excel.Application');
   //exl.visible:=true;
   exl.workbooks.add(xlWBATWorksheet);
   exl.activeWindow.DisplayGridLines:=false;
 sheet:=exl.workbooks[1].worksheets[1];
   sheet.name:='工资明细表';
   for i:=1 to gridWages.ColCount do
 for j:=1 to gridWages.RowCount do
       begin
          sheet.cells[titleHeight+j,i]:=gridWages.Cells[i-1,j-1];
       end;   s:=chr(ord('A')+gridWages.ColCount-1)+inttostr(titleHeight);
   SeleRange:=Sheet.Range['A1',s];
 SeleRange.HorizontalAlignment := xlCenter       ;
 SeleRange.VerticalAlignment := xlCenter  ;
 SeleRange.MergeCells := True ;
   SeleRange.FormulaR1C1 := '工资明细表';
 SeleRange.Font.Name := '宋体'   ;
   SeleRange.Font.FontStyle := '粗体';
 SeleRange.Font.Size := 18           ;
   SeleRange.Font.ColorIndex := 31      ;   s:='A'+inttostr(1);
 t:= chr(ord('A')+gridWages.ColCount-1)+inttostr(gridWages.RowCount+2);
 SeleRange:= Sheet.Range[s,t] ;
 SeleRange.cells.Borders.Item[xlEdgeBottom].LineStyle := xlContinuous ;
   SeleRange.Borders.Item[xlEdgeTop].LineStyle := xlContinuous    ;
   SeleRange.Borders.Item[xlEdgeLeft].LineStyle := xlContinuous    ;
   SeleRange.Borders.Item[xlEdgeRight].LineStyle := xlContinuous   ;
 SeleRange.Borders.Item[xlInsideHorizontal].LineStyle := xlContinuous   ;
 SeleRange.Borders.Item[xlInsideVertical].LineStyle := xlContinuous   ;   exl.visible:=true;
   //sheet.saveas(filename);
   //exl.quit;
end;