登录  
 加关注
查看详情
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

原来为了你

我的人生就是要一次次的超越

 
 
 

日志

 
 
 
 

打开文件对话框  

2011-07-08 11:49:16|  分类: ABAP文件操作 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

*----------------------- Method 1 --------------------------------------
PARAMETERS:  f_file LIKE rfpdo1-febumsf OBLIGATORY.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR f_file.
  
DATAfiles   TYPE filetable,
        h_files 
TYPE file_table,
        rc      
LIKE sy-subrc.
  
CALL METHOD cl_gui_frontend_services=>file_open_dialog
    
EXPORTING
      window_title            
'下载到本地文件'
      default_extension       
'XLS'
      default_file_name       
'默认文件名称'
      file_filter             
'文本文件(*.TXT)|*.TXT|Excel 文件 (*.XLS)|*.XLS;*.XLSX|所有文件 (*.*)|*.*|'
      with_encoding           
'X'
      initial_directory       
'C:\'
    
CHANGING
      file_table              
files
      rc                      
rc
    
EXCEPTIONS
      file_open_dialog_failed 
1
      cntl_error              
2
      error_no_gui            
3
      
OTHERS                  4.
  
IF sy-subrc <> OR rc < 0.
    
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
               
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  
ENDIF.
*---Get file name
  
READ TABLE files INDEX INTO h_files.
  f_file 
h_files-filename.

*----------------------- Method 2 --------------------------------------
PARAMETERp_file TYPE rlgrap-filename OBLIGATORY.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
  
CALL FUNCTION 'F4_FILENAME'
    
EXPORTING
      program_name  
syst-cprog
      dynpro_number 
syst-dynnr
      field_name    
' '
    
IMPORTING
      file_name     
p_file.



*----------------------- Method 3 --------------------------------------
PARAMETERSp_file   LIKE rlgrap-filename MEMORY ID m01.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
  
DATAlc_mask TYPE char30.
  lc_mask 
'Excel Files,*.xls,All Files,*.*.'.
  
CALL FUNCTION 'WS_FILENAME_GET'
    
EXPORTING
      def_filename     
'*.xls'
      
mask             'Excel Files,*.xls,All Files,*.*.'
      
mode             'O'
      
title            '请选择文件'
    
IMPORTING
      filename         
p_file
    
EXCEPTIONS
      selection_cancel 
1
      
OTHERS           2.

  评论这张
 
阅读(314)| 评论(0)

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2018