pb從excel讀資料。
實現通過pb來讀取excel中某一行某一列的資料。
讀excel的**:
ole1.workbooks.open(ls_pathname,0,0)
ole1.visible = true
//獲取excel單元格資料
ls_cell = ole1.workbooks[1].worksheets[1].cells(ll_rowno,ll_colno).value
各位可否通過乙個例項進行說明呢?
謝謝了!
試試看
這個是用pb自帶的例子改的
integer result
oleobject myoleobject
myoleobject = create oleobject
result = myoleobject.connecttoobject("現有的excel檔名")
if result = 0 then
end if
myoleobject.disconnectobject()
destroy myoleobject
上面的寫的太倉促 你可以看這個就可以了
//從excel檔案獲得資料
//建立從excel表獲取資料的通道
oleobject ole1
ole1= create oleobject
if result<>0 then
messagebox("提示!","連線excel表出錯,請重新選擇")
return
end if
//操作員選擇要匯入資料的excel檔案
ll_rtn = getfileopenname(開啟檔案,ls_pathname,ls_filename,xls,excel檔案(*.xls),*.xls)
if ll_rtn<>1 then
messagebox("提示!","連線excel表出錯,請重新選擇")
return
end if
ole1.workbooks.open(ls_pathname,0,0)
ole1.visible = true
ll_rowno=1 『列
ll_colno=1 』行
do while ole1.workbooks[1].worksheets[1].cells(ll_rowno,1).value
『判斷是否有資料
do while ole1.workbooks[1].worksheets[1].cells(ll_rowno,ll_colno).value
『取資料
ls_cell = string(ole1.workbooks[1].worksheets[1].cells(ll_rowno,ll_colno).value)
s_cpxx[ll_rowno,ll_colno]=ls_cell
ll_colno=ll_colno+1
loop
ll_rowno=ll_rowno+1
loop
ole1.visible = false
『關閉
ole1.workbooks.close()
『銷毀
destroy ole1
C語言 從檔案讀資料
早年練手作品,學生成績管理 include include include 結構體 struct student stud struct student 1 stud 1 10 子主調函式 zzhs 資料錄入 lx printf clssno.no.name score1 score2 score3...
從資料庫中讀資料建立選單
unit unit1 inte ce uses windows,messages,sysutils,variants,classes,graphics,controls,forms,dialogs,menus,db,adodb,stdctrls type pmenurecord tmenurecor...
cobar指定從讀副本上讀資料
下午花了一點時間看了一下cobar的源 無奈cobar的文件寫的臺稀稀拉拉了,只能看源 了 在cobar服務端的schema中配置了兩個datasource,一主一從,在執行sql的時候可以通過cobar的hint語法,在查詢的時候指定是從叢庫上讀取資料 預設是走master庫的 詳細執行邏輯請檢視...