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_statusendfor&Excel.Save()&Excel.Close()&selected=''msg('导出完毕',status)EndEvent  // '导出'

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

Event &apos;导入&apos;call(&apos;gxselfile&apos;,&ExcelPath, &apos;D:/计算机管理&apos;,&apos;*.xls&apos;,&apos;excel&apos;,&apos;选择&apos;,0)if &ExcelPath.IsEmpty()    msg(&apos;路径为空!&apos;)else    msg(&apos;开始读取数据&apos;,status)    call(PPrcOut,&ExcelPath)    msg(&apos;导入完毕&apos;,status)    refreshendifEndEvent  // &apos;导入&apos;PrcOut:&Excel.Open(&excelpath)if &Excel.ErrCode<>0    msg(&Excel.ErrDescription)else&I=2do 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+=1enddoendif

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

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