DELPHI 5不能打开ＥＸＣＥＬ２０００？？？？！！！！！

我中ＤＥＬＰＨＩ５中写代码：EXCELAPPLICATION1.CONNECT;就是打不开ＥＸＣＥＬ２００表？ 问题点数：20、回复次数：5Top

1 楼killer2008（现代汉语词典）回复于 2002-11-12 13:40:44 得分 15

可以使用OLE控制EXCEL  
  //首先先定义变量  
    XLApp,   WorkSheet:Variant;  
  //创建OLE对象（使用当前路径）  
          xlApp   :=   CreateOleObject('Excel.Application');  
          xlApp.Workbooks.Open(GetCurrentDir+'\TempResult.xls');  
          WorkSheet   :=   xlApp.WorkBooks[1].WorkSheets[1];  
  //使用VBA中的对象方法设置你想要设置的，举例来说  
  1。设置EXCEL的表格合并  
    WorkSheet.Range[WorkSheet.Cells[1,1],WorkSheet.Cells[1,2]].MergeCells:=   True;  
  2。设置EXCEL的边框线  
  WorkSheet.Cells[1,1].Borders.LineStyle   :=1;  
  3。存入到指定的路径（这里只使用当前路径）  
  xlApp.WorkBooks[1].SaveAs(GetCurrentDir+'\avc.xls');  
  这里仅举了几个EXCEL属性设置的例子，通过这种方法我们可以轻松利用程序控制EXCEL。  
   
   
   
  procedure   TForm1.Button1Click(Sender:   TObject);  
  var  
      excel_sheet:variant;  
      i,j:integer;  
  begin  
      try  
          excel_sheet:=CreateOleObject('Excel.Application');  
      except  
          showmessage('无法启动   MS   Excel');  
          exit;  
      end;  
      Excel_sheet.WorkBooks.Open('D:\1.xls');  
      Excel_sheet.Cells[20,16].Value:='234';  
   
        Excel_sheet.WorkBooks[1].SaveAs('d:\2.xls');  
        Excel_sheet.WorkBooks.Close;  
      Excel_sheet.quit;  
      close;  
  end;Top

2 楼blueshu（学习Oracle9i）回复于 2002-11-12 13:52:00 得分 2

myexcelapp:=createoleobject('excel.application');  
      myexcelapp.visible:=true;  
      myexcelapp.workbooks.add;Top

3 楼lybdata（天下）回复于 2002-11-12 13:52:04 得分 3

ExcelApplication1.Connect;  
          ExcelApplication1.Visible[0]:=True;  
          ExcelApplication1.Caption   :=   '第一油矿图表调用';  
          ExcelApplication1.Workbooks.Open   ('e:\...\...',  
          EmptyParam,EmptyParam,EmptyParam,EmptyParam,  
          EmptyParam,EmptyParam,EmptyParam,EmptyParam,  
          EmptyParam,EmptyParam,EmptyParam,EmptyParam,0);  
          excelapplication1.ActiveCell.Cells.Itemrow,7].value:=...;  
  Top

4 楼Nizvoo（）回复于 2002-11-12 13:53:43 得分 0

你还差一句^_^  
   
  没有显示的Top

5 楼lybdata（天下）回复于 2002-11-15 08:22:39 得分 0

不好意思了，至于显示还用写么？太简单了，是用delphi控件，都有提示，下面不用我说了吧Top

相关问题

• excel
• application
• emptyparam
• excelapplication
• myexcelapp
• workbooks
• worksheet
• xlapp
• sheet
• createoleobject

• 帖主：xiangyun123
• killer2008
• blueshu
• lybdata

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载