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='设备配置'
&Excel.Cells(&sum,5).Text='设备价值'
&Excel.Cells(&sum,6).Text='负责人'
&Excel.Cells(&sum,7).Text='设备购买时间'
&Excel.Cells(&sum,8).Text='设备运行状况'

for each line
&sum+=1
msg('正在导出数据.....',status)
&Excel.Cells(&sum,1).Text=&equ_id
&Excel.Cells(&sum,2).Text=&equ_name
&Excel.Cells(&sum,3).Text=&equ_type
&Excel.Cells(&sum,4).Text=&equ_configure
&Excel.Cells(&sum,5).Text=&equ_value
&Excel.Cells(&sum,6).Text=&equ_man
&Excel.Cells(&sum,7).Text=&equ_time_buy
&Excel.Cells(&sum,8).Text=&equ_status
endfor
&Excel.Save()
&Excel.Close()
&selected=''
msg('导出完毕',status)

EndEvent  // '导出'

Event '导入'
call('gxselfile',&ExcelPath, 'D:/计算机管理','*.xls','excel','选择',0)
if &ExcelPath.IsEmpty()
msg('路径为空!')
else
msg('开始读取数据',status)
call(PPrcOut,&ExcelPath)
msg('导入完毕',status)
refresh
endif
EndEvent  // '导入'

PrcOut:

&Excel.Open(&excelpath)
if &Excel.ErrCode<>0
msg(&Excel.ErrDescription)
else
&I=2
do while &Excel.Cells(&I,1).Text<>' '
&equ_id=&Excel.Cells(&I,1).Text
&equ_name=&Excel.Cells(&I,2).Text
&equ_type=&Excel.Cells(&I,3).Text
&equ_configure=&Excel.Cells(&I,4).Text
&equ_value=&Excel.Cells(&I,5).Text
&equ_man=&Excel.Cells(&I,6).Text
&equ_time_buy=&Excel.Cells(&I,7).Text
&equ_status=&Excel.Cells(&I,8).Text

new
equ_id=&equ_id
equ_name=&equ_name
equ_type=&equ_type
equ_configure=&equ_configure
equ_value=&equ_value
equ_man=&equ_man
equ_time_buy=&equ_time_buy
equ_status=&equ_status
endnew
&I+=1
enddo
endif