PB 导入和导出Excel

导入：

<span style="font-size:18px;">Stringls_path,ls_name
ls_path ="C:\Users\hzt\Desktop\test.xls"
dw_1.Reset()//clean DW
String a[1000,1000]
Integer i,j,li_ret
li_ret =GetFileopenName('选择XLS',ls_path,ls_name,"XLS","EXCEL (*.XLS),*.XLS")
if li_ret <>1 then return
OLEObjectExcelServer
Int li_ConnectErr
ExcelServer =Create OLEObject
li_ConnectErr =ExcelServer.ConnectToNewObject( "excel.application" )
If li_ConnectErr< 0 ThenChoose Case li_ConnectErrCase -1MessageBox('错误提示','无效的调用')Case -2MessageBox('错误提示','类名没发现')Case -3MessageBox('错误提示','对象不能创建')Case -4MessageBox('错误提示','文件不能连接')Case -5MessageBox('错误提示','不能连接现在的对象')Case -6MessageBox('错误提示','文件无效')Case -7MessageBox("错误提示","文件不存在或已经打开")Case -8MessageBox("错误提示","服务器不能装载选择的文件")Case -9MessageBox("错误提示","其他错误")End ChooseReturn
End If
ExcelServer.Workbooks.Open(ls_path,0,False)
//对XLS文件进行了改动以后，在关闭该文件时是否需要向用户提出警告。
ExcelServer.Application.DisplayAlerts= False
//选择sheets表
//ExcelServer.activeworkbook.worksheets("sheet2").Select()ExcelServer.ActiveSheet.cells.Copy
dw_1.ImportClipboard(2)//导入数据需要标题
ExcelServer.Application.activeworkbook.Close(False)
ExcelServer.Application.quit()
ExcelServer.DisconnectObject()</span>

导出

功能：将数据窗口数据导出EXCEL文件，并将EXCEL文件默认英文标题替换成中文。

参数：datawindow datawin，为用户要导出数据窗口的数据窗口控件名

返回值：integer 1，success；-1，error

流程描述：先用saveasAscii()倒出为excel文件，再替换表头为中文名

<span style="font-size:18px;">integerli_rtn,ii,li_asc
stringls_name,ls_pathname
boolean lb_exist
ifdatawin.RowCount()<1 thenMessageBox("提示信息","请先检索数据再导出至Excel!")return -1 //error
end if
li_rtn=GetFileSaveName("保存文件",ls_pathname,ls_name,"xls","Excel文件(*.xls),*.xls")if li_rtn=1 thenlb_exist = FileExists(ls_pathname)IF lb_exist THENli_rtn = MessageBox("保存", ls_pathname+"已经存在,是否覆盖?",Exclamation!, YesNo!)end ifif li_rtn=1 then//当文件存在用户选择覆盖，或是文件本就不存在时。注意变量li_rtnli_rtn=datawin.SaveAsAscii(ls_pathname)if li_rtn=1 then
//   MessageBox("提示信息","导出数据成功!")  elseMessageBox("错误信息","导出数据失败!")return -1 //errorend ifelsereturn -1 //errorend if
elsereturn -1
end if/**********以下程序将导出的EXCEL英文标题替换为汉字*********/
long numcols ,numrows , c, r
OLEObject xlapp ,xlsub
int ret
numcols =long(datawin.Object.DataWindow.Column.Count)
numrows =datawin.RowCount()// 产生oleobject的实例
xlApp = CreateOLEObject//连接ole对象
ret =xlApp.ConnectToNewObject( "Excel.Sheet" )
if ret < 0  thenMessageBox("连接失败!","连接到EXCEL失败,请确认您的系统是否已经安装EXCEL!~r~n"&+"错误代码:"+string(ret))return -1
end if
// 打开EXCEL文件
xlApp.Application.Workbooks.Open(ls_pathname)
使文件可见
//xlApp.Application.Visible= true// 得到活动工作表的引用,改善程序性能
xlsub =xlapp.Application.ActiveWorkbook.Worksheets[1]
stringls_colname,ls_text,ls_modistr,ls_col
//取字段名更改为对应的文本text值
FOR c=1 to numcolsls_col="#"+string(c)+".name"ls_colname=datawin.describe(ls_col)ls_modistr=ls_colname+"_t.text"ls_text=datawin.describe(ls_modistr)xlsub.cells[1,c]=ls_text
NEXTxlApp.DisConnectObject()
Destroy xlapp
MessageBox("提示信息","导出数据成功!")
return 1 //success</span>

参考地址：http://blog.csdn.net/error/444.html?from=http%3a%2f%2fblog.csdn.net%2fhappyflystone%2farticle%2fdetails%2f2923951

http://liuwenzhen007.blog.163.com/blog/static/3690120920108204917677/

PB 导入和导出Excel相关推荐

分享我基于NPOI+ExcelReport实现的导入与导出EXCEL类库：ExcelUtility （续2篇-模板导出综合示例）...
自ExcelUtility类推出以来,经过项目中的实际使用与不断完善,现在又做了许多的优化并增加了许多的功能,本篇不再讲述原理,直接贴出示例代码以及相关的模板.结果图,以便大家快速掌握,另外这些示例说 ...
java导入、导出Excel文件
一.介绍当前B/S模式已成为应用开发的主流,而在企业办公系统中,常常有客户这样子要求:你要把我们的报表直接用Excel打开(电信系统.银行系统).或者是:我们已经习惯用Excel打印.这样在我们实际 ...
springboot使用jxls导出excel___（万能通用模板）--- SpringBoot导入、导出Excel文件___SpringBoot整合EasyExcel模板导出Excel
springboot使用jxls导出excel 实现思路: 首先在springBoot(或者SpringCloud)项目的默认templates目录放入提前定义好的Excel模板,然后在具体的导出接口 ...
Java中导入、导出Excel——HSSFWorkbook 使用
一.介绍当前B/S模式已成为应用开发的主流,而在企业办公系统中,常常有客户这样子要求:你要把我们的报表直接用Excel打开(电信系统.银行系统).或者是:我们已经习惯用Excel打印.这样在我们实际 ...
Java中使用poi导入、导出Excel
Java中使用poi导入.导出Excel 学习了:http://www.cnblogs.com/Damon-Luo/p/5919656.html 转载于:https://www.cnblogs.com ...
h5页面如何预览excel文件_如何使用JavaScript实现前端导入和导出excel文件?(H5编辑器实战复盘)...
前言最近笔者终于把H5-Dooring的后台管理系统初步搭建完成, 有了初步的数据采集和数据分析能力, 接下来我们就复盘一下其中涉及的几个知识点,并一一阐述其在Dooring H5可视化编辑器中的解 ...
如何使用JavaScript实现前端导入和导出excel文件(H5编辑器实战复盘)
前言最近笔者终于把H5-Dooring的后台管理系统初步搭建完成, 有了初步的数据采集和数据分析能力, 接下来我们就复盘一下其中涉及的几个知识点,并一一阐述其在Dooring H5可视化编辑器中的解 ...
C# Winform实现导入和导出Excel文件
这篇文章主要为大家详细介绍了C# Winform实现导入和导出Excel文件,具有一定的参考价值,感兴趣的小伙伴们可以参考一下: 本文实例为大家分享了Winform实现导入导出Excel文件的具体代码 ...
java横向导出excel_Java中导入、导出Excel
一.介绍当前B/S模式已成为应用开发的主流,而在企业办公系统中,常常有客户这样子要求:你要把我们的报表直接用Excel打开(电信系统.银行系统).或者是:我们已经习惯用Excel打印.这样在我们实际 ...

PB 导入和导出Excel

PB 导入和导出Excel相关推荐

最新文章

热门文章