abap动态生成excel表

ABAP可以使用函数模块 'ALSM_EXCEL_TO_INTERNAL_TABLE' 将内部表数据导出到Excel文件，也可以使用函数模块 'ALSM_EXCEL_TO_INTERNAL_TABLE' 将Excel文件中的数据导入到内部表中。以下是一个简单的示例：

1. 动态生成Excel表

首先，需要定义一个内部表，以存储要导出到Excel文件的数据。

DATA: gt_excel_data TYPE TABLE OF <structure_name>.

接下来，将要导出的数据填充到内部表中。

然后，调用函数模块 'ALSM_EXCEL_TO_INTERNAL_TABLE' 将数据导出到Excel文件。

DATA: lv_filename TYPE string VALUE 'excel_file.xlsx'.
DATA: lv_tabname TYPE string VALUE 'Sheet1'.
DATA: lt_excel_data TYPE STANDARD TABLE OF alsmex_tabline.

CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
  EXPORTING
    filename         = lv_filename
    i_begin_col      = 1
    i_begin_row      = 1
    i_sheetname      = lv_tabname
  TABLES
    intern           = lt_excel_data
  EXCEPTIONS
    inconsistent_parameters = 1
    upload_ole          = 2
    others              = 3.

2. 将Excel表导入到内部表

首先，需要定义一个内部表，以存储从Excel文件中导入的数据。

DATA: gt_excel_data TYPE TABLE OF <structure_name>.

然后，调用函数模块 'ALSM_EXCEL_TO_INTERNAL_TABLE' 将Excel文件中的数据导入到内部表中。

DATA: lv_filename TYPE string VALUE 'excel_file.xlsx'.
DATA: lv_tabname TYPE string VALUE 'Sheet1'.
DATA: lt_excel_data TYPE STANDARD TABLE OF alsmex_tabline.

CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
  EXPORTING
    filename         = lv_filename
    i_begin_col      = 1
    i_begin_row      = 1
    i_sheetname      = lv_tabname
  TABLES
    intern           = lt_excel_data
  EXCEPTIONS
    inconsistent_parameters = 1
    upload_ole          = 2
    others              = 3.

IF sy-subrc EQ 0.
  LOOP AT lt_excel_data INTO <structure_name>.
    APPEND <structure_name> TO gt_excel_data.
  ENDLOOP.
ENDIF.

以上是一个简单的示例，你可以根据自己的需求进行更改和扩展。