Excel OLE problems

Question

Can anyone provide information on how to call the different methods on an
Excel. object.
We used OLEgen to create the PEX file for Excel. However, when I try to invoke
the Opentext method on the Excel.Application.Workbooks class, I keep getting an
'OpenText method for Workbooks failed' message. I had the same problem with
the VB code that was doing this same thing but was able to resolve it by going
to TOOLS-REFERENCES, and adding the Excel Library, but I don't know how to add
this reference in Forte.
self.Open();
event loop
when task.Shutdown do
exit;
when <myButton>.click do
ExcelApp : Excel.Application = new;
ExcelApp.CreateUsingProgID('Excel.Application');
NamedParams : array of NamedParameter = new;
NamedParams.appendrow(
NamedParameter(Name = 'filename', value =
variantstring(value='C:\WINDOWS\TEMP\excel2.txt')));
NamedParams.appendrow(
NamedParameter(Name = 'Origin', value = variantstring(value='xlWindows')));
NamedParams.appendrow(
NamedParameter(Name = 'Tab' , value = variantboolean(value=True)));
NamedParams.appendrow(
NamedParameter(Name = 'Comma', value = variantboolean(value=True)));
tdMethodName : textdata = new;
tdMethodName.setvalue('OpenText');
ExcelApp.Workbooks.InvokeMethod(MethodName = tdMethodName, params =
namedparams);//(filename=variantstring(value='C:\WINDOWS\TEMP\excel2.txt'),Origin=variantstring(value='xlWindows'),StartRow=varianti2(value
= 1),DataType=variantstring(value='xlDelimited')
,TextQualifier=variantstring(value='xlDoubleQuote'),
ConsecutiveDelimiter=variantboolean(value=False),Tab=variantboolean(value=True),Semicolon=variantboolean(value=False),Comma=variantboolean(value=True),Space=variantboolean(value=False),Other=variantboole
an(value=False));
end event;

Answer 1

REPORT zr_and_d.
DATA: K_LST LIKE ABAPLIST OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF k_L,
      LINE(120),
      END OF k_L.
DATA: TLX LIKE k_L OCCURS 0 WITH HEADER LINE.
DATA V_SHEET_NAME LIKE RLGRAP-FILENAME.
PARAMETERS: P_FNAME LIKE RLGRAP-FILENAME,
            P_DATUM LIKE SY-DATUM.
SUBMIT ZTEST
        WITH DATUM EQ P_DATUM
        EXPORTING LIST TO MEMORY AND RETURN.
CALL FUNCTION 'LIST_FROM_MEMORY'
     TABLES
          LISTOBJECT = k_LST.
CALL FUNCTION 'LIST_TO_ASCI'
     TABLES
          LISTASCI           = TLX
          LISTOBJECT         = k_LST
     EXCEPTIONS
          EMPTY_LIST         = 1
          LIST_INDEX_INVALID = 2
          OTHERS             = 3.
IF SY-SUBRC EQ 0 AND NOT k_LST IS INITIAL.
  CONCATENATE 'ZTEST' P_DATUM INTO V_SHEET_NAME.
  CALL FUNCTION 'EXCEL_OLE_STANDARD_DAT'
       EXPORTING
            FILE_NAME                 = P_FNAME
            DATA_SHEET_NAME           = V_SHEET_NAME
       TABLES
            DATA_TAB                  = TLX
       EXCEPTIONS
            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 NE 0.
    WRITE:/ 'ERROR OPENING EXCEL'.
  ENDIF.
ELSE.
  WRITE:/ 'ERROR OR NO DATA'.
ENDIF.