Sub PrepareData()
    Dim r As Integer, c As Integer, i As Integer
    Dim cell As Range, str As String
    For i = 1 To 10 'создаем 10 именованных ячеек (случайным образом)
        r = Int(20 * Rnd) + 1
        c = Int(10 * Rnd) + 1
        Set cell = Cells(r, c)
        cell.Interior.ColorIndex = 36 'жёлтая заливка ячейки для наглядности
        cell.Name = "Моя_ячейка_" & i 'дадим имя "Моя_ячейка_..."
        cell.Value = String(32767, i + 64) 'заполним латинской буквой (начиная с A - код 65)
    Next i
End Sub

REPORT zzzzzzz.

TYPE-POOLS ole2.

DATA sc     TYPE ole2_object.
DATA vbcode TYPE string.
DATA idx    TYPE string.

DATA excel_filename   TYPE string VALUE 'C:\KKu\Книга2.xlsx'.
DATA name_list        TYPE string.
DATA name_separator   TYPE string VALUE '~'. "здесь не использовать пробел как разделитель
DATA value_separator  TYPE string VALUE '-~|~-'.

DATA long_string_from_excel TYPE string.
DATA itab_values_from_excel TYPE TABLE OF string.

START-OF-SELECTION.

  CONCATENATE
  'Моя_ячейка_1' name_separator
  'Моя_ячейка_2' name_separator
  'Моя_ячейка_3' name_separator
  'Моя_ячейка_4' name_separator
  'Моя_ячейка_5' name_separator
  'Моя_ячейка_6' name_separator
  'Моя_ячейка_7' name_separator
  'Моя_ячейка_8' name_separator
  'Моя_ячейка_9' name_separator
  'Моя_ячейка_10'
  INTO name_list.

  CONCATENATE
  'Function GetExcelData(excelFilename, nameList, nameSeparator, valueSeparator)'
  '    Dim xlApp, wks, nameArray, i, retString'
  '    Set xlApp = CreateObject("Excel.Application")'
  '    Set wks = xlApp.Workbooks.Open(excelFilename).Worksheets(1)'
  '    nameArray = Split(nameList, nameSeparator)'
  '    For i = LBound(nameArray) To UBound(nameArray)'
  '        retString = retString & CStr(wks.Range(CStr(nameArray(i))).Value) & valueSeparator'
  '    Next'
  '    retString = Left(retString, Len(retString) - Len(valueSeparator))'
  '    wks.Parent.Close False'
  '    Set wks = Nothing'
  '    xlApp.Quit'
  '    Set xlApp = Nothing'
  '    GetExcelData = retString'
  'End Function'
  INTO vbcode
  SEPARATED BY cl_abap_char_utilities=>cr_lf.

  CREATE OBJECT sc 'MSScriptControl.ScriptControl' NO FLUSH.
  SET PROPERTY OF sc 'Language' = 'vbscript' no flush.
  CALL METHOD OF sc 'AddCode' NO FLUSH
    EXPORTING #1 = vbcode.
  CALL METHOD cl_gui_cfw=>flush.

  CALL METHOD OF sc 'Run' = long_string_from_excel NO FLUSH
    EXPORTING #0 = 'GetExcelData'
    #1 = excel_filename
    #2 = name_list
    #3 = name_separator
    #4 = value_separator.
  CALL METHOD cl_gui_cfw=>flush.

  FREE OBJECT: sc.

  SPLIT long_string_from_excel AT value_separator
    INTO TABLE itab_values_from_excel.

  WRITE: / name_list.