[pb]從excel匯入資料到datawindow
/////////////////////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
/////////////////////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/,如需轉載,請註明出處,否則將追究法律責任。
相關文章
- 從EXCEL匯入資料到SQL SERVERExcelSQLServer
- Python批量匯入Excel資料到MySQLPythonExcelMySql
- Excel的資料匯入到PB的DW中Excel
- 用Perl從oracle匯出百萬級資料到excelOracleExcel
- 利用Excel匯入資料到SAP C4CExcel
- 如何從網頁中匯入外部資料到Excel2003網頁Excel
- PHP匯出大量資料到excel表格PHPExcel
- 使用Excel匯入資料到SAP Cloud for Customer系統ExcelCloud
- Java 匯入資料到Excel並提供檔案下載介面JavaExcel
- SQLServer匯出匯入資料到MySQLServerMySql
- Vue匯出資料到Excel電子表格VueExcel
- 【Mysql】匯出資料到excel檔案中MySqlExcel
- java 從EXCEL匯入到資料庫JavaExcel資料庫
- 從Excel到匯入MYSQL資料庫ExcelMySql資料庫
- 使用mysqlimport匯入資料到mysqlMySqlImport
- 從Excel匯入sql serverExcelSQLServer
- C#快速匯出百萬級資料到Excel方法C#Excel
- SQL通過bcp匯出資料到excel檔案SQLExcel
- 匯入網頁資料到 Google Sheet網頁Go
- 使用sqlldr匯入文字資料到oracleSQLOracle
- Timesten匯入資料到Cache Group
- SSIS中匯入Excel資料到資料庫的一個常見小問題Excel資料庫
- asp.net中利用NPOI匯出資料到excel中ASP.NETExcel
- 使用load data匯入資料到mysqlMySql
- java 從EXCEL匯入到系統JavaExcel
- Excel 表匯入資料Excel
- Oracle 資料匯入ExcelOracleExcel
- excel導資料到PostgresqlExcelSQL
- 從CSV檔案匯入資料到Analytics Cloud裡建立模型和StoryCloud模型
- 採用importtsv匯入外部資料到hbase中ImportTTS
- EasyPoi, Excel資料的匯入匯出Excel
- Excel表的一些資料應用(從txt文字匯出,匯入到Excel表)薦Excel
- NCF 如何匯入Excel資料Excel
- excel 匯入sqlyog資料庫ExcelSQL資料庫
- 匯入excel 資料時間Excel
- 匯入表的部分資料到測試環境
- 資料庫SQL Server DAC 匯入匯出資料到SQL Azure問題資料庫SQLServer
- vue excel匯入匯出VueExcel