Identifying Sheet Name in Excel

Is there any way to get the name of an excel sheet?

If you are using Apache HSSF package (which is the de-facto standard), it is as simple as Workbook.getSheetAt(0).getName().
Note it only supports Excel higher than 95 format.

Similar Messages

  • Change Sheet Name for Excel Report?

    Hi,
    When I create an Excel report out of BI Publisher, the sheet name always matches the file name. For example, if I save the file as test1.xls, when I open the spreadsheet, the sheet's name is "test1". I would like the sheet name to be different from the file name. It doesn't look like BI Publisher has an option for that specific need. So, I looked at the xls file in a text editor and noticed it was HTML...and I don't think there's something I could tweak in the HTML to make the sheet name differ from the file name...is there?
    Any ideas for my problem?
    Thanks...
    Kevin

    Hi Serguei
    You will have to change the Excel sheet name manually after exporting the report.  You cannot retain the report name to the Excel sheet after exporting.
    Regards
    Girish Bhosale

  • Proper sheet name for Excel export

    In CR 8.x, name of the Excel worksheet did correspond to the name of the report file.
    Same report in CR 2008 when exported keeps default sheet name as "Sheet1"
    Is it possible to have report file name being used instead as it was before?

    Hi Serguei
    You will have to change the Excel sheet name manually after exporting the report.  You cannot retain the report name to the Excel sheet after exporting.
    Regards
    Girish Bhosale

  • Sheet name from excel file

    hi,
    I m not able to figure out the sheet name which has to be included in the select statement.... i only the filename of xls which the user will be uploading but how shall i get the sheet names from that file?

    So you want to read and interpret an xls file in Java?
    I recommend you to use Jakarta POI, they provides an API to do it so: http://jakarta.apache.org/poi/

  • Compare Server Names in Excel sheet from column1 with column 2 and exact matched server names should be saved in column 3 in same Excel sheet

    Hi Guys,
    First of all thanks in advance any help much appriciated.
    I am new in scripting and excel, i am looking for below solution as my job requires daily work of this kind and i came to know by automating this work lots of time can be saved.
    Compare Server Names in Excel sheet from column1  with column 2 and exact matched server names should be saved in column 3 in same Excel sheet.
    Looking solutions first using excel i.e.vlookup itself so that it will not require any approval in my job else using powersell ,vbscript.
    Once again Thanks for you guys.
    /Regards
    Nitesh24in

    Hi Edward,
    Thanks once again
    I have only changed excel file path and after that this is saved as below , i am not sure which three lines should be together in one line. Please advise.
    $excel = New-Object -ComObject Excel.Application
    $Workbook = $excel.Workbooks.Add("F:\NewDocsToReadNitesh26-May2013\Excel\test.xls")
    $WorkSheet = $Workbook.Worksheets.Item(1)
    $WorkSheet.Activate() | Out-Null
    For ($i=1;$i -le $worksheet.UsedRange.Rows.Count;$i++) {
       If ($worksheet.cells.item($i,1).value2 -eq $worksheet.cells.item($i,2).value2) {
          $worksheet.cells.item($i,3).value2 = $worksheet.cells.item($i,1).value2
    }$Workbook.Save()$excel.Quit()[System.Runtime.InteropServices.Marshal]::ReleaseComObject([System.__ComObject]$excel) | Out-Null
    Thanks and Regards
    Nitesh24in

  • How to Read Excel Work Sheet Name

    Hi
    I am try to read Excel sheet from SAP B one. any one tell me how to get the Sheet name through Programmatically in C#....
    Senthil Kumar

    There are two ways you can do that:
    #1
    A - put the budget.htm file on your server where you can link to it.
    B - on the web page add an HTML snippet with the folloiwng code:
    <iframe height="XXXpx" allowTransparency="true" frameborder="0" scrolling="no" style="width:XXXpx;border:none" src="URL TO BUDGET.HTM FILE"></iframe>
    Set the width and height, in pixels, so that the snippet will display the entire table.
    #2
    A - open the budget.htm file with a text editor and copy all of the code.
    B - add an HTML snippet to the iWeb page and paste the code into the snippet.
    An example of both methods are near the bottom of this demo page: Tables.
    With method 1, you can edit or change the table without having to use iWeb. Just replace the budget.htm file with the new and improved version on the server. That will automatically be seen in the published site.
    OT
    Message was edited by: Old Toad

  • Giving dynamic sheet name while importing data from Excel in OPENROWSET query

    I want to import data from Excel to table in SQL server. Sheets in Excel file can have any name. I want to get data from first sheet of the excel file. 
    CREATE PROC CopyExcelDataToTempTable
    @ExcelPath VARCHAR(1000)
    AS
    BEGIN
    EXEC sp_configure 'show advanced options', 1;
    RECONFIGURE;
    EXEC sp_configure 'ad hoc distributed queries', 1;
    RECONFIGURE;
    EXEC master.dbo.sp_MSset_oledb_prop N'Microsoft.ACE.OLEDB.12.0', N'AllowInProcess', 1;
    EXEC master.dbo.sp_MSset_oledb_prop N'Microsoft.ACE.OLEDB.12.0', N'DynamicParameters', 1;
    INSERT INTO TempData
    SELECT *
    FROM OPENROWSET('Microsoft.ACE.OLEDB.12.0',
    SELECT CONCAT('Excel 12.0 Xml;HDR=YES;Database=', @ExcelPath),
    'SELECT * FROM [Sheet1$]');
    END;
    Currently I am giving Sheet1 as static name in Select statement. But my sheet name is not fixed. I want to create a dynamic query. If getting Sheet name is not possible then can we put sheet with its index in Select query? There is no front end. Whatever I
    want to do is in SQL server 2012. Is there any solution for this problem?

    Hi Ajinkya,
    To get the sheet names from an excel, you can use the Stored Procedure
    SP_TABLES_EX. See the below code.
    EXEC sp_addlinkedserver 'ExcelSource', '',
    'Microsoft.ACE.OLEDB.12.0',
    'c:\worksheet.xls',
    NULL,
    'Excel 8.0'
    EXEC sp_addlinkedsrvlogin 'ExcelSource', 'false'
    GO
    EXECUTE SP_TABLES_EX 'ExcelSource'
    the names in the worksheet.xls and execute result are like below.
    Table name
    a
    b
    c
    d
    Regarding your description, you need the first sheet of your excel. As the result shows, the sheet names are sorted, so there’s no guarantee to get the first one. The SP can work as a workaround when there’s only one sheet in your excel or the required sheet’s
    name is customized to be sorted at the top first.
    If you have any question, feel free to let me know.
    Best regards,
    Eric Zhang

  • Change excel sheet name when using spool

    Hi, all! I encounter a problem when I was trying to spool a sql to excel using sqlplus.
    That is the sheet name is as same as the file name, but the requirement of client is the sheet name is "specific" and not as same as file name, could you please help if there is any solution for this.
    thanks a lot for your help.

    hi
    when you create XLS file manually in the command line, can you set the sheet's name?
    - no
    unless you use some "Basic's" commands to manipulate the file later within your batch file, I think there's no way (excel.exe file provides no options in the command line).

  • Open excel sheet by sheet name .... subvi not closing

    Hi all,
    I am experimenting with excel and labview and I want to open an excel sheet by its name.  I have created a project with a main vi where I hit a button to start the process.
    When this button gets hit an event handler opens my subvi that actually asks for a file, then scans all the sheet names and then in this subvi I have another subvi that pops up and gets this sheet names.  When I hit OK this one should close and the first subvi should continue.  This all works fine and I am able to read the preferred sheet name but the subvi that asks for sheet name to read does not close.  When I run this subvi by itself then it closes when I hit ok.
    I have added the whole project here so if anybody could have a look at it and tell me what I am doing wrong I would appreciate it.
    Thanks
    Lieven
    Solved!
    Go to Solution.
    Attachments:
    EXCELPROFILE.vi ‏48 KB
    Choose Excel Sheet.vi ‏30 KB
    Main VI.vi ‏20 KB

    Ok .... I've found the problem thanks to another post on the forum.  I changed the window appearance to dialog which solved the problem.
    Lieven

  • How to find sheet names and number of sheets in excel file

    Hello friend
    I am reading and writing excel sheet with jdbc -odbc .
    But i am not getting excel sheets name and how many sheets in any
    excel file .
    I don't want to use third party tool such as apache or jxl .
    please give suggestion .
    Regards,
    Nitin Kumar jain

    I think you can find them via Connection.getMetaData(). There's a call in the metadata block which lists tables - tables approximately corespond to sheets in a workbook (I think there's a $ prepended to the names).

  • Download to a particular sheet  in MS- Excel

    Hi Experts,
    I need to download data from my internal table into a particular worksheet(say sheet1, sheet2..etc ) in MS-Excel.
    Can any one guide me how to do this?
    Thanks
    Dany

    Use FM : EXCEL_OLE_STANDARD_DAT,
    mention sheet name for every internal table and see the example code :
    Tables
    tables : zsdcarton,
             ztruck,
             ztruckstatus.
    Constants
    constants: c_werks(4) type c value '1000'.
    Internal table for Ztruck
    data : begin of i_ztruck occurs 0,
           werks  like ztruck-werks," Plant
           vdatu like ztruck-vdatu, " Delivery date
           ZZTRKNO like ztruck-ZZTRKNO, " Route #
           ZZSHIPTIME like ztruck-ZZSHIPTIME, " Dispatch time
           ZCLTIME like ztruck-ZCLTIME, " Truck close time
           end of i_ztruck.
    Internal table for ZSDCARTON
    data : begin of i_zsdcarton occurs 0,
           lateflag like zsdcarton-lateflag,
           zzslot like zsdcarton-zzslot,
           status like zsdcarton-status,
           end of i_zsdcarton.
    Internal table for Final output
    data : begin of i_final occurs 0,
           vdatu like ztruck-vdatu, " Delivery Date
           ZZTRKNO like ztruck-ZZTRKNO, " Route #
           ZZSHIPTIME like ztruck-ZZSHIPTIME, " Dispatch time
           ZCLTIME like ztruck-ZCLTIME, " Truck close time
           load_compl_c(5)     type n , " Load Complted Time
           status_s_total(5) type n,  " No Scan/Load
           status_l_total(5) type n,  " Late Scan
           end of i_final.
    Internal Table XLS File Header
    DATA: BEGIN OF i_head OCCURS 0,
          field(30) TYPE c,
          END OF i_head.
    Variables
      status couter
    data: status_total(5)   type n,
      no scan / no load
          status_s(3)       type n,
          status_s_total(5) type n,
      good
          status_g(3)       type n,
          status_g_total(5) type n,
      late
          status_l(3)       type n,
          status_l_total(5) type n,
      manual
          status_m(3)       type n,
          status_m_total(5) type n,
      alternative
          status_a(3)       type n,
          status_a_total(5) type n.
    S E L E C T I O N    -   S C R E E N *************************
    selection-screen : begin of block blk with frame title text-001.
    select-options : p_vdatu for zsdcarton-vdatu obligatory
                    default sy-datum.
    selection-screen : end of block blk .
    S T A R T  -  O F  - S E L E C T I O N  ******************
    start-of-selection.
    Get the data from ZTRUCK and
      perform get_data_tables.
    Down load the data into XLS file
      perform get_download.
    S T A R T  -  O F  - S E L E C T I O N  ******************
    end-of-selection.
    *&      Form  get_data_tables
    FORM get_data_tables.
      data : lv_time like sy-uzeit.
      select werks
             vdatu
             zztrkno
             zzshiptime
             zcltime from ztruck into table i_ztruck
                                 where werks = c_werks
                                 and   vdatu in p_vdatu.
      if sy-subrc ne 0.
        message e000(zwave) with 'No data found for given current date'.
      endif.
      loop at i_ztruck.
        refresh : i_zsdcarton.
        clear :   i_zsdcarton,
                  lv_time.
    Get the Scan Status for Every route
        select lateflag zzslot status from zsdcarton into table i_zsdcarton
                               where werks =  i_ztruck-werks
                               and   vdatu = i_ztruck-vdatu
                               and   zztrkno = i_ztruck-zztrkno.
        if sy-subrc eq 0.
          loop at i_zsdcarton.
            case  i_zsdcarton-lateflag.
    late cartons
              when  'X'.
    late and never loaded
                if i_zsdcarton-zzslot = space.
                  add 1 to status_s.
                else.
                  add 1 to status_l.
                endif.
    all other exceptions
              when  space.
    check if scanned
                case i_zsdcarton-zzslot.
    good scan
                  when 'S'.
                    add 1 to status_g.
    never scanned
                  when space.
                    if i_zsdcarton-status = space.
    no scan
                      add 1 to status_s.
                    else.
    no load -> no scan
                      add 1 to status_s.
                    endif.
    manual scanned
                  when 'M'.
                    if i_zsdcarton-status = 'M'.
                      add 1 to status_g.
                    elseif i_zsdcarton-status = 'E'.
    exceprtion -> manual
                      add 1 to status_g.
                    endif.
                endcase.
            endcase.
    add totals
            add status_g   to  status_g_total.
          Late Scan
            add status_l   to  status_l_total.
            add status_a   to  status_a_total.
          No Scan and Load
            add status_s   to  status_s_total.
            clear : status_g,
                    status_l,
                    status_a,
                    status_s.
          endloop.
        else.
          continue.
        endif.
    Get the Load Complete Time
        select single uzeit from ztruckstatus into lv_time
                                       where   werks = i_ztruck-werks
                                       and     lgnum = '100'
                                       and     vdatu = i_ztruck-vdatu
                                       and     zztrkno = i_ztruck-zztrkno
                                       and     tstat = 'L'.
        if sy-subrc eq 0.
          write: lv_time(5)
                  to i_final-load_compl_c     using edit mask '__:__'.
        endif.
    Delivery Date
        i_final-vdatu = i_ztruck-vdatu.
    Route #
        i_final-zztrkno = i_ztruck-zztrkno.
    Dispach time
        i_final-zzshiptime = i_ztruck-zzshiptime.
    Truck Close Time
        i_final-zcltime = i_ztruck-zcltime.
    No Scan/ Load
        i_final-status_s_total = status_s_total .
    Late Scan
        i_final-status_l_total = status_l_total.
        append i_final.
        clear : status_g_total,
                status_l_total,
                status_a_total,
                status_s_total,
                lv_time,
                i_final.
      endloop.
    ENDFORM.                    " get_data_tables
    *&      Form  get_download
          Download the data
    FORM get_download.
      data : lv_file like rlgrap-filename,
             lv_date(8) type c.
      lv_date = sy-datum.
      concatenate 'C:/Truckload'  lv_date into lv_file.
    Fill the Header Values
    Delivery Date
      i_head-field = 'Delivery Date'.
      append i_head.
    Route #
      i_head-field = 'Route'.
      APPEND i_head.
    Dispatch Time
      i_head-field = 'Dispatch Time'.
      append i_head.
    Closing Time
      i_head-field = 'Closing Time'.
      append i_head.
    Load Completed Time
      i_head-field = 'Load Completed Time'.
      append i_head.
    No Scan/Load
      i_head-field = 'No Scan/Load'.
      append i_head.
    Late Scan
      i_head-field = 'Late Scan'.
      append i_head.
      CALL FUNCTION 'EXCEL_OLE_STANDARD_DAT'
        EXPORTING
          FILE_NAME                       = lv_file
      CREATE_PIVOT                    = 0
          DATA_SHEET_NAME                 = 'TruckLoad'
      PIVOT_SHEET_NAME                = ' '
      PASSWORD                        = ' '
      PASSWORD_OPTION                 = 0
       TABLES
      PIVOT_FIELD_TAB                 =
          DATA_TAB                        = i_final
          FIELDNAMES                      = i_head
       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 <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
      ENDIF.
    ENDFORM.                    " get_download
    Thanks
    Seshu

  • How to populate the data to second sheet tab in excel

    Hai,
    I need to populate data to the second sheet tab of excel sheet .
    Below is the code wherein I added datas to first sheet of the excel sheet.Can anyone help me in this ?
    <%
    response.setHeader("Cache-Control","max-age=0"); // HTTP 1.1
    response.setHeader("Pragma","public"); // HTTP 1.0
    response.setDateHeader ("Expires", 0); // prevents caching at the proxy server
    response.setContentType("application/ms-excel;charset=UTF-8");
    response.setHeader("Content-Disposition","attachment;filename=Test.xls");
    %>
    <html xmlns:v="urn:schemas-microsoft-com:vml"
    xmlns:o="urn:schemas-microsoft-com:office:office"
    xmlns:x="urn:schemas-microsoft-com:office:excel"
    xmlns="http://www.w3.org/TR/REC-html40">
    <xml>     
    <x:ExcelWorkbook>
    <x:ExcelWorksheets>
    <x:ExcelWorksheet>
              <x:Name>Sheet-1</x:Name>
    <x:WorksheetOptions>
    </x:WorksheetOptions>
         </x:ExcelWorksheet>
         <x:ExcelWorksheet>
              <x:Name>Sheet-2</x:Name>
         <x:WorksheetOptions>
         </x:WorksheetOptions>
    </x:ExcelWorksheet>
    </x:ExcelWorksheets>
    <x:WindowHeight>9090</x:WindowHeight>
    <x:WindowWidth>15180</x:WindowWidth>
    <x:WindowTopX>120</x:WindowTopX>
    <x:WindowTopY>15</x:WindowTopY>
    <x:ProtectStructure>False</x:ProtectStructure>
    <x:ProtectWindows>False</x:ProtectWindows>
    </x:ExcelWorkbook>
    </xml>
    <body link=blue vlink=purple>
    <table x:str border=0 cellpadding=0 cellspacing=0 width=192 style='border-collapse:collapse;table-layout:fixed;width:144pt'>
    <tr height=17 style='height:12.75pt'>
    <td height=17 align=right >HELLO</td>
    <td align=right >HI</td>
    <td align=right >GOOD BYE</td>
    </tr>
    </table>
    </body>
    </html>

    Hi,
    It's been a while since I did this stuff so I apologise if my advice is out of date.
    This is actually more of a Micro$oft question as this is their propriety SpreadSheet Markup Language so POI probably won't help. Also, you might want to look at using the default namespace of "urn:schemas-microsoft-com:office:spreadsheet" as this is the more current implementation unless you need to be backward compatible.
    On your specific question, I think that you should be able to put the table tag (SSML not HTML) inside the worksheet and then create the rows and cells in there. I've never tried mixing the 2 markup languages though so I'm not sure how to get the HTML to go into the correct sheet.
    Sorry I couldn't help more :-(

  • How to put the data from one excel sheet in another excel sheet

    hi ,
    I want put the data from one excel sheet in another excel sheet in seq. order Eg: I have one excel sheet in which i have 3 col. Name , Sno. , Email along with data .I want to put data from this sheet to another excel sheet in the following orders of col. Sno,Name, Email .
    While loading data in another sheet , i have to perform validation like char field should n't contain numeric values and vice versa .
    Let me know on this soon ..
    regards
    Prashant

    Well, you can issue separate queries with the ordering you need from each tab in the spreadhseet. You can open an ODBC connection from a VBA macro, select a sheet, run a query, select another sheet and run another query. As for the validation, you can do this in Oracle via stored procedures or again in VBA code.

  • How can I define a name in Excel using Powershell?

    I know how to reference existing names using the RANGE function but how can I create a new defined name using Powershell?
    My specific case involves defining a name for a single cell with a workbook scope.  Just as if you were to right-click a cell in Excel and choose Define Name.
    The closest I've gotten is the NAMES object for the workbook but when I "gm" that all I see is a method for delete - nothing for adding.
    $xlsx = "c:\Sample.xlsx"
    $excel = new-object -comobject Excel.Application
    $xlb = $excel.Workbooks.Open($xlsx)
    $xlb.names | gm

    In Excel a Range has a name.  You can create a range and name it.  "Names" is just a list of the names that have been defined.
    So what is it that you are asking?  If your spreadsheet has names this will find them for you.
    Try this:
    $xlb.names|select name
    $r=$xlb.sheets.item(1).UsedRange
    $r.Name='all'
    # now do this again
    $xlb.names|select name
    So now you know everything about "names" or, as us old pros say "named ranges" like in the old  west.
    ¯\_(ツ)_/¯

  • How to download data in multiple sheets of one excel file

    Hello,
    I want to download data in multiple sheets of one excel file ..through ole2_object.
    i have created program but it is not it is not giving the desird op.
    here is the  code..
    create object excel 'EXCEL.APPLICATION'.
      call method of excel 'WORKBOOKS' = books.
      call method of books 'ADD' = book1.
    *****************" Here we r creating the first  sheet.
      if flag1 = 'X'.
        call method of book1 'WORKSHEETS' = SHEET
          EXPORTING
            #1 = 1.                           " here 1 indicating the position of sheet means first position.
        call method of sheet 'Activate'.
        set property of sheet 'Name' = 'Developments_Summary_Report'.
        perform excel_fill.
      endif.
    *****************" Here we r creating the second  sheet.
    if flag2 = 'X'.
        call method of book1 'WORKSHEETS' = SHEET
          EXPORTING
            #1 = 2.                           " here 2 indicating the position of sheet means second position.
        call method of sheet 'Activate'.
        set property of sheet 'Name' = 'BDC_Developments_Report'.
        perform excel_fill.
      endif.
      set property of excel 'VISIBLE' = 1.   " due to this property excel window is visible.
      call method of excel 'QUIT'.
    but it is generating the two different excel file ..
    Thanks in advance,
    Paresh.

    Hi,
    Copy and paste this code in your SAP
    *& Report ZETA_EXCEL_DOWNLOAD_CLIPBOARD *
    report zeta_excel_download_clipboard .
    include ole2incl.
    data: w_cell1 type ole2_object,
    w_cell2 type ole2_object.
    *--- Ole data Declarations
    data: h_excel type ole2_object, " Excel object
    h_mapl type ole2_object, " list of workbooks
    h_map type ole2_object, " workbook
    h_zl type ole2_object, " cell
    h_f type ole2_object, " font
    gs_interior type ole2_object, " Pattern
    worksheet type ole2_object,
    h_cell type ole2_object,
    h_cell1 type ole2_object,
    range type ole2_object,
    h_sheet2 type ole2_object,
    h_sheet3 type ole2_object,
    gs_font type ole2_object,
    flg_stop(1) type c.
    ** Internal table Declaration
    data: begin of t_excel occurs 0,
    vkorg(20) type c, "Sales Org
    vbtyp(20) type c, "Document Category
    auart(20) type c, "Document Type
    ernam(20) type c, "Created By
    vbeln(20) type c, "Document Number
    posnr(20) type c, "Item Number
    erdat(20) type c, "Created Date
    vdatu(20) type c, "Header Requested Delivery Date
    reqdat(20) type c, "Request date
    condat(20) type c, "Confirm date
    lifsk(20) type c, "Header Block
    txt30(30) type c, "Order User Status Description
    lifsp(20) type c, "Line Block
    dispo(20) type c, "MRP Controller
    dsnam(20) type c, "MRP Controller Description
    vmsta(20) type c, "Material Sales Status
    kunnr(20) type c, "Sold To
    cname(35) type c, "Sold To Name
    regio(20) type c, "State
    cufd(10) type c, "CUD
    bstnk(20) type c, "PO#
    bsark(20) type c, "Ordering Method
    matnr(20) type c, "Material
    maktx(35) type c, "Material Description
    t200(20) type c, "T200
    vtext(20) type c, "T200 Description
    matkl(20) type c, "Material Group
    zzbomind(7) type c, "BOM Indicator
    ostat(20) type c, "Order Status
    cmgst(20) type c, "CRD
    inco1(20) type c, "Incoterms
    oqty(20) type c, "Order Quantity
    pqty(20) type c, "Open Quantity
    unit(20) type c, "UOM
    onet(20) type c, "Order Value
    pnet(20) type c, "Open Value
    curr(20) type c, "Currency key
    so_bezei like tvkbt-bezei,"Sales Office
    sg_bezei like tvgrt-bezei,"Sales Group
    bname(20) type c, "Ordering Party
    contact(20) type c, "Contact Name
    telf1(20) type c, "Contact telf1
    reqqty(20) type c, "Item Request qty
    reqval(20) type c, "Item Request value
    conqty(20) type c, "Item Confirm qty
    conval(20) type c, "Item Confirm value
    zzrev(02) type c, "Revenue recognition acceptance
    bezei(20) type c, "Revenue recognition text
    vgbel(20) type c, "Reference Order for RETURNS
    0008text(255) type c, "Internal Order Comment Text
    end of t_excel.
    data: t_excel_bckord like t_excel occurs 0 with header line,
    t_excel_bcklog like t_excel occurs 0 with header line,
    t_excel_blkord like t_excel occurs 0 with header line.
    types: data1(1500) type c,
    ty type table of data1.
    data: it type ty with header line,
    it_2 type ty with header line,
    it_3 type ty with header line,
    rec type sy-tfill,
    deli(1) type c,
    l_amt(18) type c.
    data: begin of hex,
    tab type x,
    end of hex.
    field-symbols: <fs> .
    constants cns_09(2) type n value 09.
    assign deli to <fs> type 'X'.
    hex-tab = cns_09.
    <fs> = hex-tab.
    data gv_sheet_name(20) type c .
    * M A C R O Declaration
    define ole_check_error.
    if &1 ne 0.
    message e001(zz) with &1.
    exit.
    endif.
    end-of-definition.
    t_excel_bckord-vkorg = 'ABC'.
    t_excel_bckord-vbtyp = 'DEF'.
    t_excel_bckord-auart = 'GHI'.
    t_excel_bckord-ernam = 'JKL'.
    t_excel_bckord-vbeln = 'MNO'.
    t_excel_bckord-0008text = 'XYZ'.
    append t_excel_bckord.
    t_excel_bckord-vkorg = 'ABC1'.
    t_excel_bckord-vbtyp = 'DEF1'.
    t_excel_bckord-auart = 'GHI1'.
    t_excel_bckord-ernam = 'JKL1'.
    t_excel_bckord-vbeln = 'MNO1'.
    t_excel_bckord-0008text = 'XYZ1'.
    append t_excel_bckord.
    t_excel_bckord-vkorg = 'ABC2'.
    t_excel_bckord-vbtyp = 'DEF2'.
    t_excel_bckord-auart = 'GHI2'.
    t_excel_bckord-ernam = 'JKL2'.
    t_excel_bckord-vbeln = 'MNO2'.
    t_excel_bckord-0008text = 'XYZ2'.
    append t_excel_bckord.
    t_excel_bcklog-vkorg = 'ABC'.
    t_excel_bcklog-vbtyp = 'DEF'.
    t_excel_bcklog-auart = 'GHI'.
    t_excel_bcklog-ernam = 'JKL'.
    t_excel_bcklog-vbeln = 'MNO'.
    t_excel_bcklog-0008text = 'XYZ'.
    append t_excel_bcklog.
    t_excel_bcklog-vkorg = 'ABC1'.
    t_excel_bcklog-vbtyp = 'DEF1'.
    t_excel_bcklog-auart = 'GHI1'.
    t_excel_bcklog-ernam = 'JKL1'.
    t_excel_bcklog-vbeln = 'MNO1'.
    t_excel_bcklog-0008text = 'XYZ1'.
    append t_excel_bcklog.
    t_excel_bcklog-vkorg = 'ABC2'.
    t_excel_bcklog-vbtyp = 'DEF2'.
    t_excel_bcklog-auart = 'GHI2'.
    t_excel_bcklog-ernam = 'JKL2'.
    t_excel_bcklog-vbeln = 'MNO2'.
    t_excel_bcklog-0008text = 'XYZ2'.
    append t_excel_bcklog.
    t_excel_bcklog-vkorg = 'ABC3'.
    t_excel_bcklog-vbtyp = 'DEF3'..
    t_excel_bcklog-auart = 'GHI3'.
    t_excel_bcklog-ernam = 'JKL3'.
    t_excel_bcklog-vbeln = 'MNO3'.
    t_excel_bcklog-0008text = 'XYZ3'.
    append t_excel_bcklog.
    t_excel_blkord-vkorg = 'ABC'.
    t_excel_blkord-vbtyp = 'DEF'.
    t_excel_blkord-auart = 'GHI'.
    t_excel_blkord-ernam = 'JKL'.
    t_excel_blkord-vbeln = 'MNO'.
    t_excel_blkord-0008text = 'XYZ'.
    append t_excel_blkord.
    t_excel_blkord-vkorg = 'ABC1'.
    t_excel_blkord-vbtyp = 'DEF1'.
    t_excel_blkord-auart = 'GHI1'.
    t_excel_blkord-ernam = 'JKL1'.
    t_excel_blkord-vbeln = 'MNO1'.
    t_excel_blkord-0008text = 'XYZ1'.
    append t_excel_blkord.
    t_excel_blkord-vkorg = 'ABC2'.
    t_excel_blkord-vbtyp = 'DEF2'.
    t_excel_blkord-auart = 'GHI2'.
    t_excel_blkord-ernam = 'JKL2'.
    t_excel_blkord-vbeln = 'MNO2'.
    t_excel_blkord-0008text = 'XYZ2'.
    append t_excel_blkord.
    t_excel_blkord-vkorg = 'ABC3'.
    t_excel_blkord-vbtyp = 'DEF3'..
    t_excel_blkord-auart = 'GHI3'.
    t_excel_blkord-ernam = 'JKL3'.
    t_excel_blkord-vbeln = 'MNO3'.
    t_excel_blkord-0008text = 'XYZ3'.
    append t_excel_blkord.
    t_excel_blkord-vkorg = 'ABC4'.
    t_excel_blkord-vbtyp = 'DEF4'..
    t_excel_blkord-auart = 'GHI4'.
    t_excel_blkord-ernam = 'JKL4'.
    t_excel_blkord-vbeln = 'MNO4'.
    t_excel_blkord-0008text = 'XYZ4'.
    append t_excel_blkord.
    loop at t_excel_bckord.
    concatenate
    t_excel_bckord-vkorg
    t_excel_bckord-vbtyp
    t_excel_bckord-auart
    t_excel_bckord-ernam
    t_excel_bckord-vbeln
    t_excel_bckord-posnr
    t_excel_bckord-erdat
    t_excel_bckord-vdatu
    t_excel_bckord-reqdat
    t_excel_bckord-condat
    t_excel_bckord-lifsk
    t_excel_bckord-txt30
    t_excel_bckord-lifsp
    t_excel_bckord-dispo
    t_excel_bckord-dsnam
    t_excel_bckord-vmsta
    t_excel_bckord-kunnr
    t_excel_bckord-cname
    t_excel_bckord-regio
    t_excel_bckord-cufd
    t_excel_bckord-bstnk
    t_excel_bckord-bsark
    t_excel_bckord-matnr
    t_excel_bckord-maktx
    t_excel_bckord-t200
    t_excel_bckord-vtext
    t_excel_bckord-matkl
    t_excel_bckord-zzbomind
    t_excel_bckord-ostat
    t_excel_bckord-cmgst
    t_excel_bckord-inco1
    t_excel_bckord-oqty
    t_excel_bckord-pqty
    t_excel_bckord-unit
    t_excel_bckord-onet
    t_excel_bckord-pnet
    t_excel_bckord-curr
    t_excel_bckord-so_bezei
    t_excel_bckord-sg_bezei
    t_excel_bckord-bname
    t_excel_bckord-contact
    t_excel_bckord-telf1
    t_excel_bckord-reqqty
    t_excel_bckord-reqval
    t_excel_bckord-conqty
    t_excel_bckord-conval
    t_excel_bckord-zzrev
    t_excel_bckord-bezei
    t_excel_bckord-vgbel
    t_excel_bckord-0008text
    into it
    separated by deli.
    append it.
    clear it.
    endloop.
    loop at t_excel_bcklog.
    concatenate
    t_excel_bcklog-vkorg
    t_excel_bcklog-vbtyp
    t_excel_bcklog-auart
    t_excel_bcklog-ernam
    t_excel_bcklog-vbeln
    t_excel_bcklog-posnr
    t_excel_bcklog-erdat
    t_excel_bcklog-vdatu
    t_excel_bcklog-reqdat
    t_excel_bcklog-condat
    t_excel_bcklog-lifsk
    t_excel_bcklog-txt30
    t_excel_bcklog-lifsp
    t_excel_bcklog-dispo
    t_excel_bcklog-dsnam
    t_excel_bcklog-vmsta
    t_excel_bcklog-kunnr
    t_excel_bcklog-cname
    t_excel_bcklog-regio
    t_excel_bcklog-cufd
    t_excel_bcklog-bstnk
    t_excel_bcklog-bsark
    t_excel_bcklog-matnr
    t_excel_bcklog-maktx
    t_excel_bcklog-t200
    t_excel_bcklog-vtext
    t_excel_bcklog-matkl
    t_excel_bcklog-zzbomind
    t_excel_bcklog-ostat
    t_excel_bcklog-cmgst
    t_excel_bcklog-inco1
    t_excel_bcklog-oqty
    t_excel_bcklog-pqty
    t_excel_bcklog-unit
    t_excel_bcklog-onet
    t_excel_bcklog-pnet
    t_excel_bcklog-curr
    t_excel_bcklog-so_bezei
    t_excel_bcklog-sg_bezei
    t_excel_bcklog-bname
    t_excel_bcklog-contact
    t_excel_bcklog-telf1
    t_excel_bcklog-reqqty
    t_excel_bcklog-reqval
    t_excel_bcklog-conqty
    t_excel_bcklog-conval
    t_excel_bcklog-zzrev
    t_excel_bcklog-bezei
    t_excel_bcklog-vgbel
    t_excel_bcklog-0008text
    into it_2
    separated by deli.
    append it_2.
    clear it_2.
    endloop.
    loop at t_excel_blkord.
    concatenate
    t_excel_blkord-vkorg
    t_excel_blkord-vbtyp
    t_excel_blkord-auart
    t_excel_blkord-ernam
    t_excel_blkord-vbeln
    t_excel_blkord-posnr
    t_excel_blkord-erdat
    t_excel_blkord-vdatu
    t_excel_blkord-reqdat
    t_excel_blkord-condat
    t_excel_blkord-lifsk
    t_excel_blkord-txt30
    t_excel_blkord-lifsp
    t_excel_blkord-dispo
    t_excel_blkord-dsnam
    t_excel_blkord-vmsta
    t_excel_blkord-kunnr
    t_excel_blkord-cname
    t_excel_blkord-regio
    t_excel_blkord-cufd
    t_excel_blkord-bstnk
    t_excel_blkord-bsark
    t_excel_blkord-matnr
    t_excel_blkord-maktx
    t_excel_blkord-t200
    t_excel_blkord-vtext
    t_excel_blkord-matkl
    t_excel_blkord-zzbomind
    t_excel_blkord-ostat
    t_excel_blkord-cmgst
    t_excel_blkord-inco1
    t_excel_blkord-oqty
    t_excel_blkord-pqty
    t_excel_blkord-unit
    t_excel_blkord-onet
    t_excel_blkord-pnet
    t_excel_blkord-curr
    t_excel_blkord-so_bezei
    t_excel_blkord-sg_bezei
    t_excel_blkord-bname
    t_excel_blkord-contact
    t_excel_blkord-telf1
    t_excel_blkord-reqqty
    t_excel_blkord-reqval
    t_excel_blkord-conqty
    t_excel_blkord-conval
    t_excel_blkord-zzrev
    t_excel_blkord-bezei
    t_excel_blkord-vgbel
    t_excel_blkord-0008text
    into it_3
    separated by deli.
    append it_3.
    clear it_3.
    endloop.
    if h_excel-header = space or h_excel-handle = -1.
    * start Excel
    create object h_excel 'EXCEL.APPLICATION'.
    endif.
    * PERFORM err_hdl.
    *--- get list of workbooks, initially empty
    call method of h_excel 'Workbooks' = h_mapl.
    * PERFORM err_hdl.
    set property of h_excel 'Visible' = 1.
    * add a new workbook
    call method of h_mapl 'Add' = h_map.
    * PERFORM err_hdl.
    *GV_SHEET_NAME = '1st SHEET'.
    gv_sheet_name = 'Back Orders'.
    get property of h_excel 'ACTIVESHEET' = worksheet.
    set property of worksheet 'Name' = gv_sheet_name .
    *--Formatting the area of additional data 1 and doing the BOLD
    call method of h_excel 'Cells' = w_cell1
    exporting
    #1 = 1
    #2 = 1.
    call method of h_excel 'Cells' = w_cell2
    exporting
    #1 = 1
    #2 = 50.
    call method of h_excel 'Range' = h_cell
    exporting
    #1 = w_cell1
    #2 = w_cell2.
    *CALL METHOD OF gs_cells 'Select' .
    get property of h_cell 'Font' = gs_font .
    set property of gs_font 'Bold' = 1 .
    data l_rc type i.
    call method cl_gui_frontend_services=>clipboard_export
    importing
    data = it[]
    changing
    rc = l_rc
    exceptions
    cntl_error = 1
    error_no_gui = 2
    not_supported_by_gui = 3
    others = 4.
    call method of h_excel 'Cells' = w_cell1
    exporting
    #1 = 1
    #2 = 1.
    call method of h_excel 'Cells' = w_cell2
    exporting
    #1 = 1
    #2 = 1.
    * PERFORM err_hdl.
    call method of h_excel 'Range' = range
    exporting
    #1 = w_cell1
    #2 = w_cell2.
    call method of range 'Select'.
    * PERFORM err_hdl.
    call method of worksheet 'Paste'.
    * PERFORM err_hdl.
    * CALL METHOD OF h_excel 'QUIT'.
    *GV_SHEET_NAME = '2ND SHEET'.
    gv_sheet_name = 'Backlog'.
    get property of h_excel 'Sheets' = h_sheet2 .
    call method of h_sheet2 'Add' = h_map.
    set property of h_map 'Name' = gv_sheet_name .
    get property of h_excel 'ACTIVESHEET' = worksheet.
    *--Formatting the area of additional data 1 and doing the BOLD
    call method of h_excel 'Cells' = w_cell1
    exporting
    #1 = 1
    #2 = 1.
    call method of h_excel 'Cells' = w_cell2
    exporting
    #1 = 1
    #2 = 50.
    call method of h_excel 'Range' = h_cell
    exporting
    #1 = w_cell1
    #2 = w_cell2.
    get property of h_cell 'Font' = gs_font .
    set property of gs_font 'Bold' = 1 .
    call method cl_gui_frontend_services=>clipboard_export
    importing
    data = it_2[]
    changing
    rc = l_rc
    exceptions
    cntl_error = 1
    error_no_gui = 2
    not_supported_by_gui = 3
    others = 4.
    call method of h_excel 'Cells' = w_cell1
    exporting
    #1 = 1
    #2 = 1.
    call method of h_excel 'Cells' = w_cell2
    exporting
    #1 = 1
    #2 = 1.
    * PERFORM err_hdl.
    call method of h_excel 'Range' = range
    exporting
    #1 = w_cell1
    #2 = w_cell2.
    call method of range 'Select'.
    * PERFORM err_hdl.
    call method of worksheet 'Paste'.
    *GV_SHEET_NAME = '3rd SHEET'.
    gv_sheet_name = 'Blocked Orders'.
    get property of h_excel 'Sheets' = h_sheet3 .
    call method of h_sheet3 'Add' = h_map.
    set property of h_map 'Name' = gv_sheet_name .
    get property of h_excel 'ACTIVESHEET' = worksheet.
    *--Formatting the area of additional data 1 and doing the BOLD
    call method of h_excel 'Cells' = w_cell1
    exporting
    #1 = 1
    #2 = 1.
    call method of h_excel 'Cells' = w_cell2
    exporting
    #1 = 1
    #2 = 50.
    call method of h_excel 'Range' = h_cell
    exporting
    #1 = w_cell1
    #2 = w_cell2.
    get property of h_cell 'Font' = gs_font .
    set property of gs_font 'Bold' = 1 .
    call method cl_gui_frontend_services=>clipboard_export
    importing
    data = it_3[]
    changing
    rc = l_rc
    exceptions
    cntl_error = 1
    error_no_gui = 2
    not_supported_by_gui = 3
    others = 4.
    call method of h_excel 'Cells' = w_cell1
    exporting
    #1 = 1
    #2 = 1.
    call method of h_excel 'Cells' = w_cell2
    exporting
    #1 = 1
    #2 = 1.
    * PERFORM err_hdl.
    call method of h_excel 'Range' = range
    exporting
    #1 = w_cell1
    #2 = w_cell2.
    call method of range 'Select'.
    * PERFORM err_hdl.
    call method of worksheet 'Paste'.
    *--- disconnect from Excel
    free object h_zl.
    free object h_mapl.
    free object h_map.
    free object h_excel.
    Regards
    Sudheer

Maybe you are looking for

  • External display stopped working correctly

    After one month of using external Acer 23 monitor via DVI cable from my MBP I started to get this weird screen: http://www.ewadev.com/public/IMAG0022.jpg Monitor and cable works well - checked on another PC (VGA and DVI) It seems something with my MB

  • Can iphoto screen saver display event information?

    Is it possible to display the iphoto event information on screen saver? I had keyed info to identify each photo when I imported pictures from my camera. Thank you

  • I am not able to do drag and drop to edge animate?

    Help please! I've tried to make me based on some tutorials but it does not works.

  • Screen Freezing and mouse stopping

    Please please help, in an easy way. SInce yesterday my screen has been freezing and my mouse has been sticking, i have to shut if with the off switch as control alt delete doesnt work either I have tried everything i can think of, please help in easy

  • InDesign - file from other won't let me nudge

    I received a file from someone and I'm new to CS6 (and admittedly work in this program the least so excuse me if this is a stupid question) but I can't nudge anything where I want it - text boxes won't move on a few taps (nudges) but then will jump i