ITPub博客

首页 > Linux操作系统 > Linux操作系统 > 我的pb 读取 Execl函数

我的pb 读取 Execl函数

原创 Linux操作系统 作者:coolhe 时间:2009-09-25 09:35:33 0 删除 编辑

//====================================================================
// 事件: n_utility.of_exp_execl()
//--------------------------------------------------------------------
// 描述: 写Execl
//--------------------------------------------------------------------
// 参数:
//  value datawindow adw 
//--------------------------------------------------------------------
// 返回:  integer
//--------------------------------------------------------------------
// 作者: LiuLei  日期: 2009年09月25日
//--------------------------------------------------------------------
// Copyright (c) 2008-2020 RiziSoft, All rights reserved.
//--------------------------------------------------------------------
// 修改历史:
//
//====================================================================
string ls_filename
int i
ls_filename  =  "C:\alt_report\wf_alt_report.xls" 
if  FileExists(ls_filename)  then  FileDelete(ls_filename)  
OleObject  Loo_Excel 
Loo_Excel=create  oleobject 
if Loo_Excel.ConnectToNewObject("Excel.Application")  <>  0  then 
 messagebox('提示','系統未安裝Excel,無法運行此操作!') 
 return  -1
end  if  

 Loo_Excel.Application.Workbooks.Add() 
 Loo_Excel.Application.Workbooks(1).worksheets(1) 
 Loo_Excel.Application.Visible  =  True 
 Loo_Excel.Application.ScreenUpdating  =  false  
 
 //'正在處理表頭......' 
 Loo_Excel.Range("A1:AB1").Select 
 Loo_Excel.Selection.MergeCells   =  True 
 Loo_Excel.Selection.HorizontalAlignment  =  3 
 Loo_Excel.Selection.VerticalAlignment  =  3 
 Loo_Excel.Selection.Font.Bold  =  True 
 Loo_Excel.Selection.Font.Size  =  14 
 Loo_Excel.Selection.RowHeight  =  28.50 
 Loo_Excel.ActiveCell.FormulaR1C1  =  adw.describe("ls_title"+".text") 
 ///写标头 
 Loo_Excel.application.workbooks(1).worksheets(1).cells(3,  1  ).value  =  "排單號碼"  
 //  dw_2.describe("po_no"+".name"+"_t.text")  
 Loo_Excel.application.workbooks(1).worksheets(1).cells(3,  2  ).value  =  "客人款號" 
 Loo_Excel.application.workbooks(1).worksheets(1).cells(3,  3  ).value  =   adw.describe("cust_nam_t.text")   
 ///内容 
 for  i=1  to  adw.rowcount() 
     Loo_Excel.application.workbooks(1).worksheets(1).cells(3+i,  1).value  =   string(  adw.object.po_no[i]  ) 
 next 
 
 Loo_Excel.application.ActiveWorkbook.SaveAs(ls_filename) 
 Loo_Excel.Application.ScreenUpdating  =  True 
 Loo_Excel.DisconnectObject() 

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

上一篇: Execl 参考
请登录后发表评论 登录
全部评论

注册时间:2009-04-14

  • 博文量
    118
  • 访问量
    554078