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  // '导出'

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

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<>&apos; &apos;
    &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

其中的参数ExcelPath需要设置一下.

真搞不懂,为什么所有的引号都变成了&apos了呢?杂子个回事嘛???