OleContainer1.CreateObjectFromFile('*.xls',false);
OleContainer1.Doverb(ovShow);

解决方案 »

  1.   

    看一下Charlie Calvert写的DELPHI4编程技术内幕(中文、英文版都有),里面有几章讲如何使用DELPHI操作EXCEL及WORD,讲的比较详细。
      

  2.   

    delphi5中有servers控件,如何使用,请赐教
      

  3.   

    用Formula One控件,可以直接读入并显示excel格式文件。你具体是要做什么?
      

  4.   

    var 
      v:Variant;
    begin
      v:=CreateOleObject('Excel.Application');
      v.Visible:=False;
      ......
    end;
    对V的操作和对Delphi下一个控件的操作一样,至于Excel的属性,方法你看看VBA就行了。
      

  5.   

    我是想将数据直接用excel输出,在delphi5中加工好,形成excel文件直接打印
      

  6.   

    用上面的方法对Excel操作,就象你直接操作Excel一样的,完全可以实现你的要求的。
      

  7.   

    看来你是用excel做了一个格式复杂的报表,然后在delphi中将报表数据写入excel文件中,再将报表打印出来,对吗?
      

  8.   

    有一个texcelreport的控件不错,不知对阁下是否有帮助
      

  9.   

    给你一段代码,使用TExcelApplication,TExcelWorkBook,TExcelWorkSheet将数据导入Excel中,不知对你是否有帮助,mail:[email protected]
      

  10.   

    trump(大宏)您能给我一些例子吗??
      

  11.   

    wangxd1976(西门吹雪)我试一下,成就给你分 
      

  12.   

    我给你一个通用的程序,他自动显示DBGrid所所连接的Table的的内容。别忘了给我加分。
    在 interface 中加
    uses
    leServer, Excel97
    在 implementation 中加 
    uses ComObj;
    Procedure TBRForm.ExcelActionExecute(Sender: TObject);
    var
      i,j: Integer;
      sheet: Variant;
       XLApp: Variant;
    begin
      XLApp:= CreateOleObject('Excel.Application');
      XLApp.Visible:= True;
      XLApp.WorkBooks.Add(xlWBatWorkSheet);
      XLApp.WorkBooks[1].WorkSheets[1].Name:='进销存';
      sheet:= XLApp.Workbooks[1].WorkSheets['进销存'];   with DBGrid1.DataSource.DataSet do
       begin
         for i:= 0 to FieldCount-1 do  sheet.Cells[1,i+1]:= Fields[i].DisplayLabel;
         j:=1;
         First;
         while not Eof do
         begin
           j:=j+1;
           for i:= 0 to FieldCount-1 do
             sheet.Cells[j,i+1]:= Fields[i].AsString;
             Next;
            end;
         end;
    end;
      

  13.   

    GanShiZhen(Gan)写得差不多吧,如果XLApp.Visible:= False;那就可以在后台操作了
      

  14.   

    我想问各位大侠,Save的参数是什么?
    我不知道里面的一个参数。