GeneXus学习笔记-Excel导出

最新推荐文章于 2021-07-14 14:18:20 发布

oswardlx

最新推荐文章于 2021-07-14 14:18:20 发布

阅读量608

点赞数

分类专栏：初学笔迹文章标签： Genexus excel导出

本文链接：https://blog.youkuaiyun.com/qq_34078582/article/details/80908078

版权

初学笔迹专栏收录该内容

13 篇文章

订阅专栏

本文介绍了一种在Procedure中实现Excel导出的方法。通过定义参数传递筛选条件，并处理超过65535行数据的问题。文章详细展示了如何使用循环来填充单元格值，以及如何在每个新的sheet中重复标题。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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

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

参数

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

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

参数可以自己定

具体实现

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

do 'InitParm'
do 'WriteTitles'
do 'WriteCells'

Sub 'WriteCells'
    For each
		where Attribute1 = &Variable1 when not &Variable1.IsEmpty()    //添加筛选条件，就是rules里传过来的
		where Attribute2 = &Variable2 when not &Variable2.IsEmpty()
		where Attribute3 = &Variable3 when not &Variable3.IsEmpty()
        // Write cell values
        if &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 += 1
    Endfor
	&ExcelDocument.Save() 
	Do 'CheckStatus'
	&ExcelDocument.Close()
EndSub

Sub '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
EndSub

Sub '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
EndSub

Sub 'CheckStatus'
	If (&ExcelDocument.ErrCode <> 0)
		&Filename = ""
		&ErrorMessage = &ExcelDocument.ErrDescription
		&ExcelDocument.Close()
		Return
	Endif
Endsub                                                                                    //from 吕晓萌