[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

[@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/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/219138/viewspace-918526/