ITPub博客

首页 > Linux操作系统 > Linux操作系统 > Execl 参考

Execl 参考

原创 Linux操作系统 作者:coolhe 时间:2009-09-25 09:34:02 0 删除 编辑
  Ole_object.Workbooks.add//新建一个Excel文件  
  Ole_object.Workbooks.Open("FileName")//打开一个已存在Excel文件  
  Ole_object.ActiveWorkBook.Sheets("SheetName").Select//选择文件中一个工作表  
  Ole_object.Application.Run("MacroName")//运行宏  
  Ole_object.Application.Visible=TRUE//Excel文件可见  
  Ole_object.Application.ScreenUpdating=true//设置可见属性  
  ②格式设置  
  Ole_object.ActiveSheet.Columns("A:U").AutoFit//列宽自动调整  
  Ole_object.ActiveSheet.Columns("A:Z").ColumnWidth=6.75//列宽  
  Ole_object.ActiveSheet.Rows("1:100").RowHeight=12//行高  
  Ole_object.Application.StandardFont="ArialNarrow";//设置字体  
  Ole_object.Application.StandardFontSize="8"//设置字号  
  Ole_object.ActiveSheet.Font.Size="8"//设置字号  
  Ole_object.ActiveSheet.Font.Bold=True//粗体  
  Ole_object.ActiveSheet.Font.Italic=True//斜体  
  Ole_object.ActiveSheet.Font.Underline=True//下划线  
  Ole_object.ActiveSheet.Font.StrikeThrough=True//删除线  
  Ole_object.ActiveSheet.HorizontalAlignment=3//水平:4靠右;3居中;2靠左  
  Ole_object.ActiveSheet.VerticalAlignment=2//垂直:3靠下;2居中;1靠上  
  Ole_object.ActiveSheet.cells(2,1).font.name=’黑体’//设置字体  
  Ole_object.ActiveSheet.cells(2,1).font.size=25//设置字体大小  
  ③工作区域操作:  
  Ole_object.ActiveSheet.Range("A1:Z10").Property=value//设置一个工作区域内的属性值  
  Ole_object.ActiveSheet.Range("A1:Z10").Merge//合并单元格  
  Ole_object.ActiveSheet.Range("A1:Z10").WrapText=False//自动换行禁止  
  Ole_object.ActiveSheet.Range("A1:Z10").Borders(b_type).Weight=i_val//b_type:1左边界;2右边界;3上边界;4下边界;5左上倾斜;6  
   
  右上倾斜(以上为对单元格的操作)7左边界;8上边界;9下边界;10右边界;11内部垂直边界;12内部水平边界(以上为对区域的操  
   
  作)//i_val:0无边界线;然后1,2,3。。。依次边界线加粗  
  Ole_object.ActiveSheet.Range("A1:Z10").Borders(b_type).linestyle=1//1与7—细实、2—细虚、4—点虚、9—双细实线  
  ④赋值操作  
  Ole_object.ActiveSheet.range("A1:Z10").Cells.value=“姓名”  
  Ole_object.ActiveSheet.range("A1:Z10").Cells.value=1  
  Ole_object.ActiveSheet.range("A1:Z10").Cells.value=“2003-01-01”  
  Ole_object.ActiveSheet.Range("A1:Z10").Cells(1,2).value=“年龄”//区域内一个单元格的赋值  
  Ole_object.ActiveSheet.Range("A1:Z1").Cells(1,1).value=“SUM(RC[-9]:RC[-1])”

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/3090/viewspace-615520/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论

注册时间:2009-04-14

  • 博文量
    118
  • 访问量
    554152