您已经完成了在哪里使用的列表吗？

您尝试过Google吗？

Rob

总而言之，是。 在发布之前，我总是在这里搜索。

嗨，

此功能模块使用ABAP内部表中的数据填充现有的excel工作表，并在excel下载中包含标题。请找到下面的代码，该代码显示如何声明和填充导入和重要参数。

报告ZEX_DATATOEXCEL。

参数：P_file，例如RLGRAP-FILENAME。

数据：int_head的开头出现0，

Filed1（20）类型c，"标头数据

int_head的结尾。

data：int_data的开头出现0，

Field1（20）类型c，"数据

Field2（20）类型c，

Field3（20）类型c，

Field4（20）类型c，

int_data的结尾。

int_head-Filed1 ='销售Ord'。

APPEND int_head。

清除int_head。

int_head-Filed1 ='已售给聚会'。

APPEND int_head。

清除int_head。

int_head-Filed1 ='购买订单'。

APPEND int_head。

清除int_head。

int_head-Filed1 ='舰队'。

APPEND int_head。

清除int_head。

int_data-field1 ='1JOHN'。

int_data-field2 ='2TOM'。

int_data-field3 ='3BRAD'。

int_data-field4 ='4PETER'。

附加int_data。

清除int_data。

CALL FUNCTION'MS_EXCEL_OLE_STANDARD_DAT'

导出

file_name = p_file"您需要下载的文件路径

• CREATE_PIVOT = 0

• DATA_SHEET_NAME =''

• PIVOT_SHEET_NAME =''

• PASSWORD =''

• PASSWORD_OPTION = 0

表格

• PIVOT_FIELD_TAB =

data_tab = int_data"具有数据的内部表

fieldnames = int_head"具有标题的内部表

例外

file_not_exist = 1

filename_expected = 2

communication_error = 3

ole_object_method_error = 4

ole_object_property_error = 5

invalid_filename = 6

invalid_pivot_fields = 7

download_problem = 8

OTHERS = 9

。

IF sy-subrc <> 0。

• 消息ID SY-MSGID类型SY-MSGTY编号SY-MSGNO

• 带有SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4。

ENDIF。

此致

Shirisha

Shirisha，

我的问题专门解决了如何使用FM创建带有数据透视表的Excel文件。 您的示例没有显示出来。

仍然感谢。

数据：

LV_PATH TYPE STRING，
LV_FULLPATH TYPE STRING，
LV_RESULT TYPE I，
LV_FILENAME TYPE STRING，
LV_FNAME1 RLGRAP-FILENAME。

调用方法CL_GUI_FRONTEND_SERVICES => FILE_SAVE_DIALOGEXPORTING"文件目录
WINDOW_TITLE ='文件目录'
INITIAL_DIRECTORY ='C：\ User \ Desktop'

更改

FILENAME = LV_FILENAME
路径= LV_PATH
FULLPATH = LV_FULLPATH
USER_ACTION = LV_RESULT。

LV_FNAME1 = LV_FULLPATH。

* =============================================== ===================================

CALL FUNCTION'MS_EXCEL_OLE_STANDARD_DAT'EXPORTING
FILE_NAME = LV_FNAME1" FILE_NAMETABLES
DATA_TAB = DATA_TAB"内部表
FIELDNAMES = IT_JOIN_FIELDS"标题表

例外
FILE_NOT_EXIST = 1
FILENAME_EXPECTED = 2
COMMUNICATION_ERROR = 3
OLE_OBJECT_METHOD_ERROR = 4
OLE_OBJECT_PROPERTY_ERROR = 5
INVALID_PIVOT_FIELDS = 6 =其他/p>

如果SY-SUBRC <> 0。

消息''。

ELSEIF SY-SUBRC = 0。

消息''。

ENDIF。