ALSM_EXCEL_TO_INTERNAL_TABLE解决原函数最大50长度问题

在使用函数ZALSM_EXCEL_TO_INTERNAL_TABLE从EXECL文件中导入数据到中时，XLS文件字段的长度最大只能导入50个字符长度，当要导入大于50个长度的文件时，此函数会裁取50位的长度，所以对此函数进行重写，解决原函数最大50长度问题。摘录自：http://hi.baidu.com/rainingstone … fc96d6d000607b.html *所在函数组中增加: INCLUDE ZMM062TOP01 . INCLUDE LALSMEXF01 . 其中：ZMM062TOP01内容为: TYPE-POOLS: ole2. * value of excel-cell TYPES: ty_d_itabvalue TYPE Zalsmex_tabline-value, * internal table containing the excel data ty_t_itab TYPE Zalsmex_tabline OCCURS 0, * line type of sender table BEGIN OF ty_s_senderline, line(4096) TYPE c, END OF ty_s_senderline, * sender table ty_t_sender TYPE ty_s_senderline OCCURS 0. * CONSTANTS: gc_esc VALUE ‘”‘. 结构Zalsmex_tabline: ROW zKCD_EX_ROW_N NUMC 10 0 弹性Excel上传：行号 COL KCD_EX_COL_N NUMC 4 0 列 VALUE CHAR250_D CHAR 250 0 数据字段 *————————————————

FUNCTION ZALSM_EXCEL_TO_INTERNAL_TABLE .

*"----------------------------------------------------------------------

*"*"Local interface:

*"  IMPORTING

*"     VALUE(FILENAME) LIKE  RLGRAP-FILENAME

*"     VALUE(I_BEGIN_COL) TYPE  I

*"     VALUE(I_BEGIN_ROW) TYPE  I

*"     VALUE(I_END_COL) TYPE  I

*"     VALUE(I_END_ROW) TYPE  INT4

*"  TABLES

*"      INTERN STRUCTURE  ZALSMEX_TABLINE

*"  EXCEPTIONS

*"      INCONSISTENT_PARAMETERS

*"      UPLOAD_OLE

*"----------------------------------------------------------------------

*{   INSERT         ED1K900010                                        1





DATA: excel_tab     TYPE ty_t_sender.

DATA: ld_separator TYPE c.

DATA: application   TYPE ole2_object,

        workbook      TYPE ole2_object,

        range         TYPE ole2_object,

        worksheet     TYPE ole2_object.

DATA: h_cell        TYPE ole2_object,

        h_cell1       TYPE ole2_object.

DATA:

    ld_rc             TYPE i.

*   Rückgabewert der Methode "clipboard_export     "





* Makro für Fehlerbehandlung der Methods

  DEFINE m_message.

    case sy-subrc.

      when 0.

      when 1.

        message id sy-msgid type sy-msgty number sy-msgno

                with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

      when others. raise upload_ole.

    endcase.

  END-OF-DEFINITION.



* check parameters

IF i_begin_row > i_end_row. RAISE inconsistent_parameters. ENDIF.

IF i_begin_col > i_end_col. RAISE inconsistent_parameters. ENDIF.



* Get TAB-sign for separation of fields

CLASS cl_abap_char_utilities DEFINITION LOAD.

ld_separator = cl_abap_char_utilities=>horizontal_tab.



* open file in Excel

IF application-header = space OR application-handle = -1.

    CREATE OBJECT application 'Excel.Application'.

    m_message.

ENDIF.

CALL METHOD OF application 'Workbooks' = workbook.

m_message.

CALL METHOD OF workbook 'Open' EXPORTING #1 = filename.

m_message.

* set property of application 'Visible' = 1.

* m_message.

GET PROPERTY OF application 'ACTIVESHEET' = worksheet.

m_message.



* mark whole spread sheet

CALL METHOD OF worksheet 'Cells' = h_cell

    EXPORTING #1 = i_begin_row #2 = i_begin_col.

m_message.

CALL METHOD OF worksheet 'Cells' = h_cell1

    EXPORTING #1 = i_end_row #2 = i_end_col.

m_message.



CALL METHOD OF worksheet 'RANGE' = range

    EXPORTING #1 = h_cell #2 = h_cell1.

m_message.

CALL METHOD OF range 'SELECT'.

m_message.



* copy marked area (whole spread sheet) into Clippboard

CALL METHOD OF range 'COPY'.

m_message.



* read clipboard into ABAP

CALL METHOD cl_gui_frontend_services=>clipboard_import

    IMPORTING

      data                 = excel_tab

    EXCEPTIONS

      cntl_error           = 1

*      ERROR_NO_GUI         = 2

*      NOT_SUPPORTED_BY_GUI = 3

      OTHERS               = 4

          .

IF sy-subrc  0.

    MESSAGE a037(alsmex).

ENDIF.



PERFORM separated_to_intern_convert TABLES excel_tab intern

                                      USING ld_separator.

* clear clipboard

REFRESH excel_tab.

CALL METHOD cl_gui_frontend_services=>clipboard_export

     IMPORTING

        data                 = excel_tab

     CHANGING

        rc                   = ld_rc

     EXCEPTIONS

        cntl_error           = 1

*       ERROR_NO_GUI         = 2

*       NOT_SUPPORTED_BY_GUI = 3

        OTHERS               = 4

          .



* quit Excel and free ABAP Object - unfortunately, this does not kill

* the Excel process

CALL METHOD OF application 'QUIT'.

m_message.



* >>>>> Begin of change note 575877

* to kill the Excel process it's necessary to free all used objects

FREE OBJECT h_cell.       m_message.

FREE OBJECT h_cell1.      m_message.

FREE OBJECT range.        m_message.

FREE OBJECT worksheet.    m_message.

FREE OBJECT workbook.     m_message.

FREE OBJECT application. m_message.

* <<<<< End of change note 575877





*}   INSERT

ENDFUNCTION.

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

197

198

199

200

201

202

203

204

205

206

207

208

209

210

211

212

213

214

215

216

217

218

219

220

221

222

223

224

225

226

227

228

229

230

231

232

233

234

235

236

237

238

239

240

241

242

243

244

245

246

247

248

249

250

251

252

253

254

255

256

257

258

259

FUNCTION ZALSM_EXCEL_TO_INTERNAL_TABLE .

*"----------------------------------------------------------------------

*"*"Local interface:

*" IMPORTING

*" VALUE(FILENAME) LIKE RLGRAP-FILENAME

*" VALUE(I_BEGIN_COL) TYPE I

*" VALUE(I_BEGIN_ROW) TYPE I

*" VALUE(I_END_COL) TYPE I

*" VALUE(I_END_ROW) TYPE INT4

*" TABLES

*" INTERN STRUCTURE ZALSMEX_TABLINE

*" EXCEPTIONS

*" INCONSISTENT_PARAMETERS

*" UPLOAD_OLE

*"----------------------------------------------------------------------

*{ INSERT ED1K900010 1

DATA: excel_tab TYPE ty_t_sender.

DATA: ld_separator TYPE c.

DATA: application TYPE ole2_object,

workbook TYPE ole2_object,

range TYPE ole2_object,

worksheet TYPE ole2_object.

DATA: h_cell TYPE ole2_object,

h_cell1 TYPE ole2_object.

DATA:

ld_rc TYPE i.

* Rückgabewert der Methode "clipboard_export "

* Makro für Fehlerbehandlung der Methods

DEFINE m_message.

case sy-subrc.

when 0.

when 1.

message id sy-msgid type sy-msgty number sy-msgno

with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

when others. raise upload_ole.

endcase.

END-OF-DEFINITION.

* check parameters

IF i_begin_row > i_end_row. RAISE inconsistent_parameters. ENDIF.

IF i_begin_col > i_end_col. RAISE inconsistent_parameters. ENDIF.

* Get TAB-sign for separation of fields

CLASS cl_abap_char_utilities DEFINITION LOAD.

ld_separator = cl_abap_char_utilities=>horizontal_tab.

* open file in Excel

IF application-header = space OR application-handle = -1.

CREATE OBJECT application 'Excel.Application'.

m_message.

ENDIF.

CALL METHOD OF application 'Workbooks' = workbook.

m_message.

CALL METHOD OF workbook 'Open' EXPORTING #1 = filename.

m_message.

* set property of application 'Visible' = 1.

* m_message.

GET PROPERTY OF application 'ACTIVESHEET' = worksheet.

m_message.

* mark whole spread sheet

CALL METHOD OF worksheet 'Cells' = h_cell

EXPORTING #1 = i_begin_row #2 = i_begin_col.

m_message.

CALL METHOD OF worksheet 'Cells' = h_cell1

EXPORTING #1 = i_end_row #2 = i_end_col.

m_message.

CALL METHOD OF worksheet 'RANGE' = range

EXPORTING #1 = h_cell #2 = h_cell1.

m_message.

CALL METHOD OF range 'SELECT'.

m_message.

* copy marked area (whole spread sheet) into Clippboard

CALL METHOD OF range 'COPY'.

m_message.

* read clipboard into ABAP

CALL METHOD cl_gui_frontend_services=>clipboard_import

IMPORTING

data = excel_tab

EXCEPTIONS

cntl_error = 1

* ERROR_NO_GUI = 2

* NOT_SUPPORTED_BY_GUI = 3

OTHERS = 4

IF sy-subrc 0.

MESSAGE a037(alsmex).

ENDIF.

PERFORM separated_to_intern_convert TABLES excel_tab intern

USING ld_separator.

* clear clipboard

REFRESH excel_tab.

CALL METHOD cl_gui_frontend_services=>clipboard_export

IMPORTING

data = excel_tab

CHANGING

rc = ld_rc

EXCEPTIONS

cntl_error = 1

* ERROR_NO_GUI = 2

* NOT_SUPPORTED_BY_GUI = 3

OTHERS = 4

* quit Excel and free ABAP Object - unfortunately, this does not kill

* the Excel process

CALL METHOD OF application 'QUIT'.

m_message.

* >>>>> Begin of change note 575877

* to kill the Excel process it's necessary to free all used objects

FREE OBJECT h_cell. m_message.

FREE OBJECT h_cell1. m_message.

FREE OBJECT range. m_message.

FREE OBJECT worksheet. m_message.

FREE OBJECT workbook. m_message.

FREE OBJECT application. m_message.

* <<<<< End of change note 575877

*} INSERT

ENDFUNCTION.

最后编辑：2019-08-29

作者：yangsen

本站为个人博客网站，全由我个人维护，我从事SAP开发13年，其它ERP开发7年，基本都是零售行业。本站记录工作学习的过程，有SAP相关询问专、兼职工作可随时联系我。有网站相关的问题可直接在文章下方留言，或者联系我。邮件：yan252@163.com给我。 QQ:415402519

站内专栏站点

ALSM_EXCEL_TO_INTERNAL_TABLE解决原函数最大50长度问题

您可能还会对这些文章感兴趣！

留下一个回复取消回复

您可能还会对这些文章感兴趣！

留下一个回复 取消回复

留下一个回复取消回复