我的pb 讀取 Execl函式

coolhe發表於2009-09-25

//====================================================================
// 事件: 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/,如需轉載,請註明出處,否則將追究法律責任。

相關文章