[pb]從excel匯入資料到datawindow

abcbbc發表於2007-06-11

/////////////////////formula匯出excel或者其他格式的檔案
oleobject oo_data
string ls_name
integer li_ret

oo_data=tab_1.tabpage_prodplan_y.ole_prodplan_y.object
//oo_data.SaveFileDlg(" ",ls_name,li_ret)
oo_data.Write('c:sss.xls',11) //參照FORMULA幫助檔案11是excel


注意是oo_data.SaveFileDlg(" ",ref ls_name,ref li_ret)
ref表示地址 沒有ref的引數在這裡是不能返回值的


//////////////////////[pb]從excel匯入資料到datawindow
因為本想幫貓貓做一個工資列印程式的,只是情況太多樣了. 做了一半發現無法實現.留下一個excel匯入函式,留待以後用. 應該是從哪裡看來得.

string str_savename,named,s_grxh
int excelok,li_net
long li_count,i

oleobject excelserver
excelserver=create oleobject
excelok=excelserver.connecttonewobject("excel.application")

//檢查返回值,以確保已成功地連線到了Excel
if excelok <> 0 then
messagebox("資訊提示","連線EXCEL失敗,請檢查計算機中是否安裝了EXCEL!")
return -1
end if
li_net = GetFileOpenName("選擇檔案", str_savename,named,"xls","Excel檔案(*.xls),*.xls")
if li_net > 0 then
if str_savename = "" then return -1
dw.settransobject(sqlca)
dw.reset()
excelserver.workbooks.open(str_savename)
excelserver.activesheet.cells.copy
li_count = dw.importclipboard(2) //匯入資料
clipboard("")

excelserver.quit()
excelserver.disconnectobject()
destroy excelserver
return 1
else
messagebox('資訊提示','沒有指定匯入檔案!')
return -1
end if

[@more@]

/////////////////////formula匯出excel或者其他格式的檔案
oleobject oo_data
string ls_name
integer li_ret

oo_data=tab_1.tabpage_prodplan_y.ole_prodplan_y.object
//oo_data.SaveFileDlg(" ",ls_name,li_ret)
oo_data.Write('c:sss.xls',11) //參照FORMULA幫助檔案11是excel


注意是oo_data.SaveFileDlg(" ",ref ls_name,ref li_ret)
ref表示地址 沒有ref的引數在這裡是不能返回值的


//////////////////////[pb]從excel匯入資料到datawindow
因為本想幫貓貓做一個工資列印程式的,只是情況太多樣了. 做了一半發現無法實現.留下一個excel匯入函式,留待以後用. 應該是從哪裡看來得.

string str_savename,named,s_grxh
int excelok,li_net
long li_count,i

oleobject excelserver
excelserver=create oleobject
excelok=excelserver.connecttonewobject("excel.application")

//檢查返回值,以確保已成功地連線到了Excel
if excelok <> 0 then
messagebox("資訊提示","連線EXCEL失敗,請檢查計算機中是否安裝了EXCEL!")
return -1
end if
li_net = GetFileOpenName("選擇檔案", str_savename,named,"xls","Excel檔案(*.xls),*.xls")
if li_net > 0 then
if str_savename = "" then return -1
dw.settransobject(sqlca)
dw.reset()
excelserver.workbooks.open(str_savename)
excelserver.activesheet.cells.copy
li_count = dw.importclipboard(2) //匯入資料
clipboard("")

excelserver.quit()
excelserver.disconnectobject()
destroy excelserver
return 1
else
messagebox('資訊提示','沒有指定匯入檔案!')
return -1
end if

來自 “ ITPUB部落格 ” ,連結:http://blog.itpub.net/219138/viewspace-918526/,如需轉載,請註明出處,否則將追究法律責任。

相關文章