PowerBuilder 将导出的EXCEL英文标题替换为汉字
来源:互联网 发布:电子地图软件比较 编辑:程序博客网 时间:2024/05/17 20:29
/*************hy*****start*************/
/**将导出的EXCEL英文标题替换为汉字**/
long numcols,numrows,c,r
OLEObject xlapp,xlsub
int ret,ll_cnt
numcols = long(tab_1.tabpage_2.dw_2.Object.DataWindow.column.count)
numrows = tab_1.tabpage_2.dw_2.rowcount( )
//创建OLEObject实例
xlapp = CREATE OLEObject
//连接ole对象
ret = xlapp.ConnectToNewObject("excel.application")
if ret < 0 then
MessageBox("连接失败!","连接到EXCEL失败,请确认您的系统是否已经安装EXCEL!~r~n错误代码:"+string(ret))
xlapp.quit()
xlapp.disconnectobject()
Destroy xlapp
Destroy xlsub
return -1
end if
//打开Excel文件
xlapp.workbooks.open(docname)
//得到活动工作表的引用,改善程序性能
xlsub = xlapp.activeworkbook.worksheets[1]
string ls_colname,ls_text,ls_modistr,ls_col
//取字段名更改为对应的文本text值
for c=1 to numcols
ls_col="#"+string(c)+".name"
ls_colname=tab_1.tabpage_2.dw_2.describe(ls_col)
ls_modistr = ls_colname+"_t.text"
messagebox('',ls_modistr)
ls_text = string(tab_1.tabpage_2.dw_2.describe(ls_modistr))
xlsub.cells[1,c] = ls_text
next
xlapp.quit()
xlapp.disconnectobject()
Destroy xlapp
Destroy xlsub
/*************hy*****end*************/
/**将导出的EXCEL英文标题替换为汉字**/
long numcols,numrows,c,r
OLEObject xlapp,xlsub
int ret,ll_cnt
numcols = long(tab_1.tabpage_2.dw_2.Object.DataWindow.column.count)
numrows = tab_1.tabpage_2.dw_2.rowcount( )
//创建OLEObject实例
xlapp = CREATE OLEObject
//连接ole对象
ret = xlapp.ConnectToNewObject("excel.application")
if ret < 0 then
MessageBox("连接失败!","连接到EXCEL失败,请确认您的系统是否已经安装EXCEL!~r~n错误代码:"+string(ret))
xlapp.quit()
xlapp.disconnectobject()
Destroy xlapp
Destroy xlsub
return -1
end if
//打开Excel文件
xlapp.workbooks.open(docname)
//得到活动工作表的引用,改善程序性能
xlsub = xlapp.activeworkbook.worksheets[1]
string ls_colname,ls_text,ls_modistr,ls_col
//取字段名更改为对应的文本text值
for c=1 to numcols
ls_col="#"+string(c)+".name"
ls_colname=tab_1.tabpage_2.dw_2.describe(ls_col)
ls_modistr = ls_colname+"_t.text"
messagebox('',ls_modistr)
ls_text = string(tab_1.tabpage_2.dw_2.describe(ls_modistr))
xlsub.cells[1,c] = ls_text
next
xlapp.quit()
xlapp.disconnectobject()
Destroy xlapp
Destroy xlsub
/*************hy*****end*************/
- PowerBuilder 将导出的EXCEL英文标题替换为汉字
- powerbuilder 一个数据窗口导出为 excel 的例子
- PB数据窗口导出excel,修改第一行英文标题为中文标题,计算合计值
- PB数据窗口导出excel,修改第一行英文标题为中文标题,计算合计值
- PB数据窗口导出excel,修改第一行英文标题为中文标题,计算合计值
- 将DataGridView导出为Excel的函数
- 将Datagrid导出为Excel
- 将 GridView 导出 为 excel
- 将DataTable导出为excel
- 将gridview导出为Excel
- 文章标题js将网页表格导出为excel表格(兼容各种浏览器)
- PowerBuilder DataWindow 导出Excel文件
- 将中DataSet的数据导出为EXCEL文件
- 将数据导出为Excel或Word的公共类!
- 将数据导出为Excel或Word的公共类!
- 将DataGrid中的数据导出为Excel的方法
- ASP将access数据导出为excel电子表的方法
- 将GridView显示的内容导出为Excel
- 做有中国特色的程序员
- mips 与mipsel 区别
- 敏捷个人
- 存储过程,连接符,sql_mode
- 好代码是廉价的代码
- PowerBuilder 将导出的EXCEL英文标题替换为汉字
- javascript不可用的问题探究
- poj 1080 Human Gene Functions
- 敏捷个人-认识自我,管理自我
- INI配置文件
- 利用pdf的js函数漏洞构造堆喷射的攻击思路
- NSString与其他类的相互转换
- 正则表达式30分钟入门教程
- 是这么说的