//打开工作Excel
Procedure TExcelApi.OpenExcel();
Begin  If m_FileName = '' Then Exit;  //Try
  ExcelApplication1 := TExcelApplication.Create(Application);
  ExcelWorkbook1 := TExcelWorkbook.Create(Application);
  ExcelWorksheet1 := TExcelWorksheet.Create(Application);  ExcelApplication1.workBooks.Open(m_FileName, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 0)
  //except
  //  Application.Messagebox('打开Excel文档出错!', '系统提示', MB_ICONERROR + mb_Ok);
  //  Abort;
  //end;
End;
//创建工作表
Procedure TExcelApi.CreateWorkSheet();
Var
  Temp_Worksheet: _worksheet;
  temp:olevariant;
Begin
  Try
      ExcelWorkBook1.Activate;
     temp:=null;
    Temp_Worksheet := ExcelWorkBook1.Worksheets.Add(EmptyParam,EmptyParam, EmptyParam, EmptyParam, 0) As _worksheet;    //为何这行出错    ExcelWorksheet1.ConnectTo(Temp_Worksheet);  Except
    ShowMessage('Failure');
  End;
End;在添加WorkSheet的时候总出错,即添加不了工作表,各位有什么办法?

解决方案 »

  1.   

    用這個就沒有你上面的問題.你可以連續的倒不會出問題的.
     application.ProcessMessages;
     // try
      excelapplication1:=TExcelapplication.Create(self);
      ExcelWorkbook1:=TExcelWorkbook.Create(self);
      Excelworksheet1:=TExcelWorksheet.Create(self);
      try 
      Excelapplication1.Visible[0]:=true;
      try
      ExcelWorkBook1.ConnectTo(Excelapplication1.Workbooks.Add(EmptyParam,0));
      Except
        raise Exception.Create('鏈接到Excel文件出錯,可能是沒有安裝Excel文件');
      end;
      ExcelWorkSheet1.ConnectTo(ExcelWorkBook1.Worksheets[1] as _WorkSheet);
      ExcelWorksheet1.Cells.Item[1,1]:='工號';
      ExcelWorksheet1.Cells.Item[1,2]:='姓名';
      ExcelWorksheet1.Cells.Item[1,3]:='卡號';
      ExcelWorksheet1.Cells.Item[1,4]:='部門名';
      ExcelWorksheet1.Cells.Item[1,5]:='扣款';
      with ExcelWorkSheet1.QueryTables.Add(adoquery2.Recordset,ExcelWorkSheet1.Range['A2', EmptyParam], EmptyParam) do
      begin
        FieldNames:=false;
        refresh(false);
      end;
      finally
      Excelapplication1.Free;
      ExcelWorkbook1.Free;
      ExcelWorksheet1.Free;
      end;
      

  2.   

    用OLE把dbgrid内容输出到excel简单,方法如下:
    procedure CopyDbDataToExcel(Target:TDbgid);
    var
      iCount,jCount:Integer;
      XLApp:Variant;
      Sheet: Variant;
      Target:TDBGrid;
    begin
      Screen.Cursor := crHourGlass;
      if not VarIsEmpty(XLApp) then
      begin
        XLApp.DisplayAlerts  := False;
        XLApp.Quit;
        VarClear(XLApp);
      end;
      //通过ole创建Excel对象  
      Try
        XLApp := CreateOleObject('Excel.Application');
      Except
        Screen.Cursor := crDefault;
        Exit;
      end;
      
      XLApp.WorkBooks.Add[XLWBatWorksheet];
      XLApp.WorkBooks[1].WorkSheets[1].Name := '测试工作薄';
      Sheet := XLApp.Workbooks[1].WorkSheets['测试工作薄'] ;
      if Not Target.DataSource.DataSet.Active then
      begin
        Screen.Cursor := crDefault;
        Exit;
      end;
      Target.DataSource.DataSet.first;
      
      for iCount := 0 to Target.Columns.Count -1 do
      begin
            Sheet.cells[1 ,iCount+1] := Target.Columns.Items[iCount].Title.Caption;
      end;
      jCount:=1;
      While Not Target.DataSource.DataSet.Eof do
      begin
         for iCount := 0 to Target.Columns.Count -1 do
         begin
            Sheet.cells[jCount+1 ,iCount+1] := Target.Columns.Items[iCount].Field.AsString;
         end;
         Inc(jCount);
         Target.DataSource.DataSet.Next;
      end;
      XlApp.Visible := True;
      Screen.Cursor := crDefault;
    end;
                                     word:=createoleobject('word.application');
      word.visible:=true;
      word.documents.open('e:\abc.doc',false);
      word.activedocument.range(0,0);
      word.activedocument.tables.add(word.activedocument.range,2,3);
      word.activedocument.sellection.insertrowsbelow(1);
      

  3.   

    7、控制EXCEL
    全面控制 Excel 
    首先创建 Excel 对象,使用ComObj:
    var ExcelID: Variant;
    ExcelID := CreateOleObject( 'Excel.Application' );
    1) 显示当前窗口:
    ExcelID.Visible := True;
    2) 更改 Excel 标题栏:
    ExcelID.Caption := '应用程序调用 Microsoft Excel';
    3) 添加新工作簿:
    ExcelID.WorkBooks.Add;
    4) 打开已存在的工作簿:
    ExcelID.WorkBooks.Open( 'C:\Excel\Demo.xls' );
    5) 设置第2个工作表为活动工作表:
    ExcelID.WorkSheets[2].Activate;  
    或 
    ExcelID.WorksSheets[ 'Sheet2' ].Activate;
    6) 给单元格赋值:
    ExcelID.Cells[1,4].Value := '第一行第四列';
    7) 设置指定列的宽度(单位:字符个数),以第一列为例:
    ExcelID.ActiveSheet.Columns[1].ColumnsWidth := 5;
    8) 设置指定行的高度(单位:磅)(1磅=0.035厘米),以第二行为例:
    ExcelID.ActiveSheet.Rows[2].RowHeight := 1/0.035; // 1厘米
    9) 在第8行之前插入分页符:
    ExcelID.WorkSheets[1].Rows[8].PageBreak := 1;
    10) 在第8列之前删除分页符:
    ExcelID.ActiveSheet.Columns[4].PageBreak := 0;
    11) 指定边框线宽度:
    ExcelID.ActiveSheet.Range[ 'B3:D4' ].Borders[2].Weight := 3;
    1-左    2-右   3-顶    4-底   5-斜( \ )     6-斜( / )
    12) 清除第一行第四列单元格公式:
    ExcelID.ActiveSheet.Cells[1,4].ClearContents;
    13) 设置第一行字体属性:
    ExcelID.ActiveSheet.Rows[1].Font.Name := '隶书';
    ExcelID.ActiveSheet.Rows[1].Font.Color  := clBlue;
    ExcelID.ActiveSheet.Rows[1].Font.Bold   := True;
    ExcelID.ActiveSheet.Rows[1].Font.UnderLine := True;
    14) 进行页面设置:
    a.页眉:
        ExcelID.ActiveSheet.PageSetup.CenterHeader := '报表演示';
    b.页脚:
        ExcelID.ActiveSheet.PageSetup.CenterFooter := '第&P页';
    c.页眉到顶端边距2cm:
        ExcelID.ActiveSheet.PageSetup.HeaderMargin := 2/0.035;
    d.页脚到底端边距3cm:
        ExcelID.ActiveSheet.PageSetup.HeaderMargin := 3/0.035;
    e.顶边距2cm:
        ExcelID.ActiveSheet.PageSetup.TopMargin := 2/0.035;
    f.底边距2cm:
        ExcelID.ActiveSheet.PageSetup.BottomMargin := 2/0.035;
    g.左边距2cm:
        ExcelID.ActiveSheet.PageSetup.LeftMargin := 2/0.035;
    h.右边距2cm:
        ExcelID.ActiveSheet.PageSetup.RightMargin := 2/0.035;
    i.页面水平居中:
        ExcelID.ActiveSheet.PageSetup.CenterHorizontally := 2/0.035;
    j.页面垂直居中:
        ExcelID.ActiveSheet.PageSetup.CenterVertically := 2/0.035;
    k.打印单元格网线:
        ExcelID.ActiveSheet.PageSetup.PrintGridLines := True;
    15) 拷贝操作:
    a.拷贝整个工作表:
        ExcelID.ActiveSheet.Used.Range.Copy;
    b.拷贝指定区域:
        ExcelID.ActiveSheet.Range[ 'A1:E2' ].Copy;
    c.从A1位置开始粘贴:
        ExcelID.ActiveSheet.Range.[ 'A1' ].PasteSpecial;
    d.从文件尾部开始粘贴:
        ExcelID.ActiveSheet.Range.PasteSpecial;
    16) 插入一行或一列:
    a. ExcelID.ActiveSheet.Rows[2].Insert;
    b. ExcelID.ActiveSheet.Columns[1].Insert;
    17) 删除一行或一列:
    a. ExcelID.ActiveSheet.Rows[2].Delete;
    b. ExcelID.ActiveSheet.Columns[1].Delete;
    18) 打印预览工作表:
    ExcelID.ActiveSheet.PrintPreview;
    19) 打印输出工作表:
    ExcelID.ActiveSheet.PrintOut;
    20) 工作表保存:
    if not ExcelID.ActiveWorkBook.Saved then
       ExcelID.ActiveSheet.PrintPreview;
    21) 工作表另存为:
    ExcelID.SaveAs( 'C:\Excel\Demo1.xls' );
    22) 放弃存盘:
    ExcelID.ActiveWorkBook.Saved := True;
    23) 关闭工作簿:
    ExcelID.WorkBooks.Close;
    24) 退出 Excel:
    ExcelID.Quit;
      

  4.   

    ExcelApplication1.Connect;
       ExcelApplication1.Visible[0] := true;
       ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Add(null,0));
       ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Worksheets as _Worksheet);
    你这样看能 不能看的见