易截截图软件、单文件、免安装、纯绿色、仅160KB

Delphi 5 控制Excel

(一)   使用动态创建的方法  
   
  首先创建   Excel   对象,使用ComObj:  
  var   ExcelApp:   Variant;  
  ExcelApp   :=   CreateOleObject(   'Excel.Application'   );  
   
  1)   显示当前窗口:  
  ExcelApp.Visible   :=   True;  
   
  2)   更改   Excel   标题栏:  
  ExcelApp.Caption   :=   '应用程序调用   Microsoft   Excel';  
   
  3)   添加新工作簿:  
  ExcelApp.WorkBooks.Add;  
   
  4)   打开已存在的工作簿:  
  ExcelApp.WorkBooks.Open(   'C:\Excel\Demo.xls'   );  
   
  5)   设置第2个工作表为活动工作表:  
  ExcelApp.WorkSheets[2].Activate;      
  或    
  ExcelApp.WorksSheets[   'Sheet2'   ].Activate;  
   
  6)   给单元格赋值:  
  ExcelApp.Cells[1,4].Value   :=   '第一行第四列';  
   
  7)   设置指定列的宽度(单位:字符个数),以第一列为例:  
  ExcelApp.ActiveSheet.Columns[1].ColumnsWidth   :=   5;  
   
  8)   设置指定行的高度(单位:磅)(1磅=0.035厘米),以第二行为例:  
  ExcelApp.ActiveSheet.Rows[2].RowHeight   :=   1/0.035;   //   1厘米  
   
  9)   在第8行之前插入分页符:  
  ExcelApp.WorkSheets[1].Rows[8].PageBreak   :=   1;  
   
  10)   在第8列之前删除分页符:  
  ExcelApp.ActiveSheet.Columns[4].PageBreak   :=   0;  
   
  11)   指定边框线宽度:  
  ExcelApp.ActiveSheet.Range[   'B3:D4'   ].Borders[2].Weight   :=   3;  
 


相关文档:

怎么用delphi向网页提交登陆信息

procedure TForm1.Button2Click(Sender: TObject);
var  
o : Olevariant;
begin  
  webbrowser1.Navigate('http://www.163.com');  
  delay(2000);
  o :=   WebBrowser1.OleObject.document.all.item('username',0);
  o.value := 'username';  
  o := W ......

delphi_分隔字符串_多间隔字符

procedure mc_SplitStr(sourStr:String;splitChar:String;desLst:TStringList);
var
  tmpStr:String;
  sValue:String;
  iStart,iPos:Integer;
begin
  try
    desLst.Clear;             //很重要,否则,会一 ......

Delphi 开篇

Delphi
Delphi这是一个windows桌面编程软件,现在版本有很多,主要用的还是Delphi7,7以上的版本都需要装.net
静态调用和动态调用,静态调用就是直接往窗体上托控件,而动态调用就是编写代码调用控件的类实现一些功能。
通常情况下都是这两种方式相结合的使用,随着Delphi的深入,就会发现托控件不是万能的,很多时候都 ......

delphi 三方控件

VCL中的Shape是个很不错的控件,可以选择几种图形,以满足我们的需求,但有时候就是觉得它的可选图形少了一点,比如我们想要一个三角形,它却没有。于是就想到来扩展一下这个控件,名为ShapeEx。其实扩展的功能不多,只是增加了一些图形。而类也并不是继承自TShape,而是继承自TGraphicControl,这样可以让我们彻底看看图形 ......

David I谈Delphi现状与未来

概要
自去年CodeGear被英巴卡迪诺(Embarcadero Technologies)收购后,大家对Delphi的未来发展非常关心。近日,InfoQ中文站有幸对David I进行了独家专访,以了解更多关于Delphi的相关信息。
个人简介
David Intersimone(简称David I),英巴卡迪诺负责开发者关系的副总裁和首席宣传官(Chief Evangelist)。David负 ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号