从excel导入数据到datawindow
2008-08-25 14:06
323 查看
[pb]从excel导入数据到datawindow
===========================================================
作者: abcbbc(http://abcbbc.itpub.net)
发表于:2007.06.11 16:50
分类: IT新技术
出处:http://abcbbc.itpub.net/post/31127/294061
---------------------------------------------------------------
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
===========================================================
作者: abcbbc(http://abcbbc.itpub.net)
发表于:2007.06.11 16:50
分类: IT新技术
出处:http://abcbbc.itpub.net/post/31127/294061
---------------------------------------------------------------
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
相关文章推荐
- 控制多个datawindow数据合并成一个excel导出【PB】
- 如何从Excel中把数据导入到SharePoint List(Import Excel data to SharePoint List)
- 【软件自动化测试-QTP实战技能 9】== 从外部excel中读出数据导入到qtp的data中
- 控制多个datawindow数据合并成一个excel导出【PB】
- 将Jquery EasyUI中DataGird的数据导入Excel中
- 如何从Excel中把数据导入到SharePoint List(Import Excel data to SharePoint List)
- VB.Net机房收费系统(三层)——将datagirdview 控件数据导入Excel
- pb将datawindow数据导出EXCEL
- 保存datawindow数据到excel中
- [Step By Step]使用SAP Business Objects Data Services将Excel数据导入到SAP HANA中
- 将datagirdview里的数据导入到Excel中(C#)
- 如何从Excel中把数据导入到SharePoint List(Import Excel data to SharePoint List)
- winform DataGridView的数据导入Excel
- C# DataSet数据导入Excel 修正版- .net FrameWork 4.0以上
- phpexcel导入excel处理大数据
- 将Excel中的数据导入到SQL Server 2000数据库中
- 通过excel模板批量导入数据实现过程总结
- asp.net/c#代码实现excel to mssql数据导入
- win64使用PLSQL工具导入Excel数据
- 用javascript将数据导入Excel