GeneXus中的grid数据导入至Excel中和Excel中数据导入至grid中的简单代码实现

Grid数据导入至Excetl中代码实现:

Event '导出'
&initpath='d:/计算机管理'
&extens='.xls'
&defname=''
&caption=''
call('gxnewfile',&selected,&initpath,&defname,&extens,&caption,&ret)
msg('返回路径'+&selected.ToString())
&selected=&selected + '.xls'
msg('开始导出数据....')
&Excel.Open(&selected)
&sum=1
&Excel.Cells(&sum,1).Text='设备编号'
&Excel.Cells(&sum,2).Text='设备名称'
&Excel.Cells(&sum,3).Text='设备类型'
&Excel.Cells(&sum,4).Text=&a