RH_START_EXCEL_WITH_DATA

FROM --------------
CALL FUNCTION 'RH_START_EXCEL_WITH_DATA'
EXPORTING
* CHECK_VERSION = ' '
data_name = 'example_vmsuser.xls'
* DATA_PATH_FLAG = 'W'
* DATA_TYPE = 'DAT'
* DATA_BIN_FILE_SIZE =
* MACRO_NAME = ' '
* MACRO_PATH_FLAG = ' '
* FORCE_START = ' '
wait = ' '
* IMPORTING
* WINID =
TABLES
data_tab = example_tab
EXCEPTIONS
no_batch = 1
excel_not_installed = 2
wrong_version = 3
internal_error = 4
invalid_type = 5
cancelled = 6
download_error = 7
OTHERS = 8 .
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.

TO--------------------
CALL FUNCTION 'RH_START_EXCEL_WITH_DATA'
EXPORTING
DATA_FILENAME = 'example_vmsuser.xls'
* DATA_PATH_FLAG = 'W'
* DATA_ENVIRONMENT =
DATA_TABLE = example_tab
* MACRO_FILENAME =
* MACRO_PATH_FLAG = 'E'
* MACRO_ENVIRONMENT =
* WAIT = 'X'
* DELETE_FILE = 'X'
* CODEPAGE =
EXCEPTIONS
NO_BATCH = 1
EXCEL_NOT_INSTALLED = 2
INTERNAL_ERROR = 3
CANCELLED = 4
DOWNLOAD_ERROR = 5
NO_AUTHORITY = 6
FILE_NOT_DELETED = 7
OTHERS = 8 .
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

WS_EXECUTE

FROM:--------------
CALL FUNCTION 'WS_EXECUTE'
EXPORTING
* DOCUMENT = ' '
* CD = ' '
commandline = ex_file
* INFORM = ' '
program = 'EXCEL'
* STAT = ' '
* WINID = ' '
* OSMAC_SCRIPT = ' '
* OSMAC_CREATOR = ' '
* WIN16_EXT = ' '
* EXEC_RC = ' '
* IMPORTING
* RBUFF =
EXCEPTIONS
frontend_error = 1
no_batch = 2
prog_not_found = 3
illegal_option = 4
gui_refuse_execute = 5
OTHERS = 6.

TO-------------

DATA: T_FILE type string.
T_FILE = ex_file.
CALL METHOD CL_GUI_FRONTEND_SERVICES=>EXECUTE
EXPORTING
DOCUMENT = T_FILE
APPLICATION = 'EXCEL'
OPERATION = 'OPEN'
EXCEPTIONS
CNTL_ERROR = 1
ERROR_NO_GUI = 2
BAD_PARAMETER = 3
FILE_NOT_FOUND = 4
PATH_NOT_FOUND = 5
FILE_EXTENSION_UNKNOWN = 6
ERROR_EXECUTE_FAILED = 7
SYNCHRONOUS_FAILED = 8
NOT_SUPPORTED_BY_GUI = 9
others = 10
.

POPUP_TO_CONFIRM

From --------------
CALL FUNCTION 'POPUP_TO_CONFIRM_WITH_MESSAGE'
EXPORTING
defaultoption = 'N'
diagnosetext1 = d1
diagnosetext2 = d2
diagnosetext3 = d3
textline1 = 'If you want to continue Press "Yes"'
textline2 = 'If you want to re-enter selection Press "No"'
titel = 'Confirm the Selection criteria'
start_column = 35
start_row = 11
* CANCEL_DISPLAY = 'X'
IMPORTING
answer = ans.

To -------------
data : dque type string.
concatenate d1 d2 d3 into dque separated by ','.
CALL FUNCTION 'POPUP_TO_CONFIRM'
EXPORTING
TITLEBAR = 'If you want to continue Press "Yes"'
TEXT_QUESTION = dque
TEXT_BUTTON_1 = 'Ja'(001)
TEXT_BUTTON_2 = 'Nein'(002)
START_COLUMN = 25
START_ROW = 6
IMPORTING
ANSWER = ans
EXCEPTIONS
TEXT_NOT_FOUND = 1
OTHERS = 2
.
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

Describe

FROM------------------------
DESCRIBE DISTANCE BETWEEN struct-field1 AND struct-field4 INTO length.
FROM ------------------------
DESCRIBE FIELDS struct-field1 INTO length.
TO------------
DESCRIBE DISTANCE BETWEEN struct-field1 AND struct-field4 INTO length IN CHARACTER MODE.
Or
DESCRIBE DISTANCE BETWEEN struct-field1 AND struct-field4 INTO length IN BYTE MODE.
TO -------------------------
DESCRIBE FIELDS struct-field1 INTO length IN CHARACTER MODE
OR--------------------------
DESCRIBE FIELDS struct-field1 INTO length IN BYTE MODE..

call function 'NAMETAB_GET'

FROM-----------------

call function 'NAMETAB_GET'

EXPORTING

langu = sy-langu

tabname = table

TABLES

nametab = nametab

EXCEPTIONS

no_texts_found = 1.**

ToDO ---------------

CALL FUNCTION 'DDIF_FIELDINFO_GET'

EXPORTING

TABNAME = table

LANGU = SY-LANGU

TABLES

DFIES_TAB = nametab

EXCEPTIONS

NOT_FOUND = 1

INTERNAL_ERROR = 2

OTHERS = 3 .

Open File Dialog

OPEN DIALOGDATA:
----------------------------------------------------------------------------------------
it_tabmann TYPE filetable,
rc_mann TYPE i.
CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_OPEN_DIALOG
EXPORTING
WINDOW_TITLE = 'Open a File'
DEFAULT_EXTENSION = ',*.txt,*.txt,*.xls,*.xls,*.doc,*.doc, **,*.*,*.*.'
DEFAULT_FILENAME = 'test.txt'
INITIAL_DIRECTORY = 'c:\temp'
multiselection = ' ' "No multiple selection
CHANGING
FILE_TABLE = it_tabmann
RC = rc_mann
EXCEPTIONS
FILE_OPEN_DIALOG_FAILED = 1
CNTL_ERROR = 2
ERROR_NO_GUI = 3
NOT_SUPPORTED_BY_GUI = 4
others = 5 .
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
LOOP AT it_tabmann INTO p_input.ENDLOOP.
--------------------------------------------------------------------------------------

Save File - Dialog

SAVE FILE DIALOG

-------------------------------------------------------------------------------------------

PARAMETERS: p_file(128) DEFAULT 'c:\nosupt\zwipvalc.xls'.

data : l_filename type string.

data : l_path type string VALUE 'c:\NoSupt\'. " Default File Location

data : l_fullpath type string.
CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_SAVE_DIALOG

EXPORTING

WINDOW_TITLE = 'Select a file.'

DEFAULT_EXTENSION = ',*.xls,*.xls,*.txt,*.txt,*.doc,*.doc,*.*,*.*.'

DEFAULT_FILE_NAME = 'ZCON1.XLS'

* WITH_ENCODING =

* FILE_FILTER =

* INITIAL_DIRECTORY =

PROMPT_ON_OVERWRITE = 'X'

CHANGING

FILENAME = L_filename

PATH = l_path

FULLPATH = l_fullpath

* USER_ACTION =

* FILE_ENCODING =

EXCEPTIONS

CNTL_ERROR = 1

ERROR_NO_GUI = 2

NOT_SUPPORTED_BY_GUI = 3

others = 4 .

IF SY-SUBRC <> 0.

* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

p_file = l_fullpath. " Shows Filename with path