我的pb 讀取 Execl函式
//====================================================================
// 事件: 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/,如需轉載,請註明出處,否則將追究法律責任。
相關文章
- 【PB】有關日期函式函式
- linux下execl函式的使用和比較Linux函式
- 精讀《函式快取》函式快取
- 常用的PB時間函式彙總函式
- 練習 讀取函式裡的值函式
- 讀取工藝路線的函式函式
- C#讀取Rss功能函式C#函式
- 【引用】 PB絕對有用的未公開函式函式
- PB讀取Excel檔案內容的方法(轉帖)Excel
- 用api函式讀取硬碟的序列號 (轉)API函式硬碟
- C語言fgetc()函式:讀檔案函式(由檔案中讀取一個字元)C語言函式字元
- SparkSQL -- 02 【SparkSQL檔案的讀取與落地,和Hive的整合,內建函式,自定義函式】SparkSQLHive函式
- 殭屍程式,孤兒程式,wait,exit,execl等函式使用要點AI函式
- 拯救不會函式的我!!函式
- PB快取資料指南快取
- javascript函式讀取變數作用域簡單介紹JavaScript函式變數
- API讀取寫入 ini檔案內容的方法函式詳解API函式
- 課時19:函式:我的地盤聽我的函式
- php取整函式ceil,floor,round,intval函式的區別PHP函式
- 快取函式的簡單使用快取函式
- 取漢字全拼的SQL函式SQL函式
- 關於Oracle取整的函式Oracle函式
- 臨時讀原始碼的函式原始碼函式
- 我的PB程式資料庫升級程式資料庫
- Mysql字串擷取函式MySql字串函式
- 新版字元擷取函式字元函式
- OT的C函式是如何實時讀取資料庫的網站配置的?函式資料庫網站
- 讀寫日誌函式函式
- 從標準輸入流中讀取並執行shell指定函式函式
- 那些年我封裝的 JS 函式封裝JS函式
- 我的MYSQL學習心得(6) : 函式MySql函式
- 簡單的檔案快取函式快取函式
- 視窗屬性的獲取函式函式
- 用前面建立的函式獲取物件函式物件
- Sql 操作 ExeclSQL
- 【TcaplusDB知識庫】PB表 C++ 示例程式碼-讀取資料C++
- linux系統程式設計之程式(五):exec系列函式(execl,execlp,execle,execv,execvp)使用Linux程式設計函式
- php字串擷取函式,支援中文擷取PHP字串函式