pb從excel讀資料

2021-05-24 05:52:48 字數 1652 閱讀 8117

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庫的 詳細執行邏輯請檢視...