GeneXus学习笔记-Excel导出

Excel导出是在一个Procedure中实现的。

就是一个方法。传入的参数可以是你的页面筛选条件。传出的可以是一些比如文件名之类的。

参数

传入传出参数是在rules中定义：

Parm(in:&inParm1,in:&inParm2,in:&inParm3,out:&Filename,out:&ErrorMessage);

参数可以自己定

具体实现

下面把标蓝的地方改成需要的就可以直接用

do 'InitParm'
do 'WriteTitles'
do 'WriteCells'Sub 'WriteCells'For eachwhere Attribute1 = &Variable1 when not &Variable1.IsEmpty()    //添加筛选条件，就是rules里传过来的where Attribute2 = &Variable2 when not &Variable2.IsEmpty()where Attribute3 = &Variable3 when not &Variable3.IsEmpty()// Write cell valuesif &CellRow >= 65535  //Excel2003版本的一个sheet最多支持65535行数据，当行数超过65535行时，需要新建一个sheet&Sheeti += 1&ExcelDocument.SelectSheet('Sheet'+&Sheeti.ToString().Trim())//新建sheet，并切换到新sheet上Do 'WriteTitles'endif        &CellRow += 1&CellCursor = 0&ExcelDocument.Cells(&CellRow, &FirstColumn + &CellCursor).Text = Attribute1&CellCursor += 1&ExcelDocument.Cells(&CellRow, &FirstColumn + &CellCursor).Text = Attribute2&CellCursor += 1&ExcelDocument.Cells(&CellRow, &FirstColumn + &CellCursor).Text = Attribute3&CellCursor += 1&ExcelDocument.Cells(&CellRow, &FirstColumn + &CellCursor).Text = Attribute4&CellCursor += 1&ExcelDocument.Cells(&CellRow, &FirstColumn + &CellCursor).Text = Attribute5&CellCursor += 1Endfor&ExcelDocument.Save() Do 'CheckStatus'&ExcelDocument.Close()
EndSubSub 'WriteTitles'                                                                  //写titles// Write titles&CellCursor = 0&CellRow = 1&FirstColumn = 1&ExcelDocument.Cells(&CellRow, &FirstColumn + &CellCursor).Bold = True&ExcelDocument.Cells(&CellRow, &FirstColumn + &CellCursor).Text = 'title1'&CellCursor += 1&ExcelDocument.Cells(&CellRow, &FirstColumn + &CellCursor).Bold = True&ExcelDocument.Cells(&CellRow, &FirstColumn + &CellCursor).Text = 'title2'&CellCursor += 1&ExcelDocument.Cells(&CellRow, &FirstColumn + &CellCursor).Bold = True&ExcelDocument.Cells(&CellRow, &FirstColumn + &CellCursor).Text = 'title3'&CellCursor += 1&ExcelDocument.Cells(&CellRow, &FirstColumn + &CellCursor).Bold = True&ExcelDocument.Cells(&CellRow, &FirstColumn + &CellCursor).Text = 'title4'&CellCursor += 1&ExcelDocument.Cells(&CellRow, &FirstColumn + &CellCursor).Bold = True&ExcelDocument.Cells(&CellRow, &FirstColumn + &CellCursor).Text = 'title5'&CellCursor += 1
EndSubSub 'InitParm'&Random = Random() * 10000&Filename =&Today.Year().ToString().Trim()+&Today.Month().ToString().Trim()+&Today.Day().ToString().Trim()+"_文件名_"+ &Random.ToString().Trim()//&ExcelTypeCode = P_GetSysParm('SysExcelType')    //这里是获取Excel 是.xls 还是.xlsx的。自己设置也行    from郑俊//if &ExcelTypeCode = ''&ExcelTypeCode = '.xls'//endif&Filename += &ExcelTypeCode&Filename = "Excel\Export\" + &Filename&ExcelDocument.Open(&Filename)Do 'CheckStatus'&ExcelDocument.Clear()&Sheeti = 1
EndSubSub 'CheckStatus'If (&ExcelDocument.ErrCode <> 0)&Filename = ""&ErrorMessage = &ExcelDocument.ErrDescription&ExcelDocument.Close()ReturnEndif
Endsub                                                                                    //from 吕晓萌

GeneXus学习笔记-Excel导出相关推荐

excel导出_学习笔记—— 前端导出excel
这两天工作上来了两个需求,一个是打印的功能,一个是导出的功能.功能其实之前已经做出来了,打印我用的是printjs的插件,excel用的是Export2Excel.js,但是产品要求打印页面和导出的e ...
QT学习笔记-Excel的导入导出
目录前言一.QAXObject简介二.QAXObject使用 1.包含相关头文件 2.声明相关变量与函数 3.函数实现三.QAXObject弊端四.QXLSX简介 1.作为附加模块使用配置 ...
Datawhale 10月学习-Free excel 学习笔记--excel函数3--FILTER,SUMIF,SUBTOTAL
学习目标:了解excel函数中高级筛选,并进行求和等操作学习内容: 1.单条件筛选:[FILTER]函数=FILTER(数据区域,筛选条件,[无满足条件的记录时返回的值]) 举例:想从区域中选出湖北 ...
GeneXus学习笔记——入门篇
使用GeneXus做开发做了有一段时间了却发现一个问题(O_O)?就是除了相关的Wiki外网上其他地方的相关资料都很少于是乎我就想在这记录一些东西来帮助以后会用到的人(°ー°") 那 ...
#学习笔记#Excel#Power Query 提取特定字段
#学习内容来自Excel Home #要点 #实例原始数据 #提取 1.提取单元格中所有汉字 =Text.Select([客户],{"一"-"龟"}) 2.提取 ...
Python学习笔记-EXCEL操作
环境Python3 创建EXCEL,覆盖性创建 #conding=utf-8 import xlwtdef BuildExcel(ExcelName,SheetName,TitleList,DataL ...
CDA学习笔记--EXCEL篇
目录常用快捷键基本操作多个窗口查看工作表冻结窗口保护特定单元格数据自定义序列设置条件格式标识重点信息单元格增加批注两种方式工作表创建超链接修改文本型数据数据验证分类汇总高级筛 ...
(课程学习笔记)Excel学习
1.用好快捷键,工作效率提升3倍 1.1快手选数,再也不用鼠标点到手抽筋如何快速选中某一行莫一列或者说整个表格的所有数据呢? ctrl+shift+↑.↓.←.→,碰到空单元格会停止,再按一次方向键 ...
java学习笔记-excel表格形式记录
序号标签符号描述用法类型 2 # python-单行注释 #coding: UTF-8 注释 3 '' '''或""" """ py ...

GeneXus学习笔记-Excel导出

参数

具体实现

GeneXus学习笔记-Excel导出相关推荐

最新文章

热门文章