在PB中如何使Excel的单元格合并、居中？？？

最好能提供Excel的函数、属性以供PB的OLE调用，谢谢   ：） 问题点数：66、回复次数：2Top

1 楼xirumin（吃好喝好）回复于 2002-06-05 17:06:12 得分 66

OLEObject   xl,   xlApp,   xlbook,   xlsheet  
   
  xl   =   Create   OLEObject  
   
  int   ret  
  //ret   =   xl.ConnectToObject("c:\book.xls",   "Excel.Sheet"   )     //打开一个已存在的工作表  
  ret   =   xl.ConnectToNewObject(   "Excel.Sheet"   )     //建一个新的工作表  
  if   ret   <   0     then  
  MessageBox("Connect   to   Excel   Failed   !",string(ret))  
        return  
  end   if  
   
  xlApp   =   xl.Application  
   
  xlbook   =   xlapp.Workbooks[1]  
  xlsheet   =   xlbook.Worksheets[1]  
   
  xlsheet.cells[1,1]   =   "人员花名册"     //标题  
  xlsheet.cells[1,1].HorizontalAlignment   =   3  
  xlsheet.cells[1,1].VerticalAlignment   =   3  
  xlsheet.cells[1,1].Font.Size   =   20  
  xlsheet.range("a1:e1").Merge()  
   
  //以下设置表头  
  xlsheet.Rows(2).HorizontalAlignment   =   3  
  xlsheet.Rows(2).Font.Bold   =   true  
   
  xlsheet.cells[2,1]   =   "编号"  
  xlsheet.Columns(1).ColumnWidth   =   4  
  xlsheet.Columns(1).HorizontalAlignment   =   3  
   
  xlsheet.cells[2,2]   =   "姓名"  
   
  xlsheet.cells[2,3]   =   "部门"  
   
  xlsheet.cells[2,4]   =   "工作日期"  
  xlsheet.Columns(4).ColumnWidth   =   10  
  xlsheet.Columns(4).NumberFormatLocal   =   "yyyy-mm-dd"  
   
  xlsheet.cells[2,5]   =   "身份证号"  
  xlsheet.Columns(5).ColumnWidth   =   20  
  xlsheet.Columns(5).NumberFormatLocal   =   "@"     //本文格式  
   
  long   m,   n,   ll_rowcount  
  ll_rowcount   =   dw_1.RowCount()  
   
  //从   Datawindow   取值给   Excel   sheet  
  For   m   =   1   to   5  
  For   n   =   1   to   ll_rowcount    
            xlsheet.cells[n+2,m]   =   dw_1.object.data[n,m]      
        Next  
  Next  
   
  string   ls_range  
  ls_range   =   "A2:E"   +   Trim(string(ll_rowcount   +   2))  
  //画表格线  
  xlsheet.range(ls_range).borders(1).linestyle   =   1  
  xlsheet.range(ls_range).borders(2).linestyle   =   1  
  xlsheet.range(ls_range).borders(3).linestyle   =   1  
  xlsheet.range(ls_range).borders(4).linestyle   =   1  
   
  xlApp.Visible   =   true     //显示Excel,如果直接打印输出可设为false  
  xlApp.Caption   =   "PB调用Excel打印"  
   
  xlsheet.PrintPreview()     //打印预览  
  //xlsheet.PrintOut()     //直接打印  
   
  xlbook.Saved   =   false     //true     //放弃存盘  
   
  xl.close()  
  xl.DisConnectObject()  
  Destroy   xl  
  Top

2 楼lzp_lrp（lzp）回复于 2002-06-05 17:42:11 得分 0

你在EXCEL中录制宏，然后再编辑一下宏，那里面有对对象的引用方法，虽然是VB的但PB中也差不多Top

相关问题

• excel
• xl
• ret
• sheet
• 工作表

• 帖主：youhwa
• xirumin

• PowerBuilder类图书
• PowerBuilder类源码下载