2. 程式人生 > >SAP 將內表的資料匯出到本地xls檔案 abap例項 INCLUDE OLE2INCL

SAP 將內表的資料匯出到本地xls檔案 abap例項 INCLUDE OLE2INCL

阿新 • • 發佈：2019-01-03
*&---------------------------------------------------------------------* *&      Form  FRM_DOWNLOAD_DATA *&---------------------------------------------------------------------* *       下載資料到xls檔案 *----------------------------------------------------------------------* FORM FRM_DOWNLOAD_DATA .
  DATA: LV_EXCEL       TYPE OLE2_OBJECT,         LV_SHEET       TYPE OLE2_OBJECT,         LV_CELL        TYPE OLE2_OBJECT,         LV_WORKBOOK    TYPE OLE2_OBJECT,         LV_XLSNAME     TYPE STRING,         LV_LINE        TYPE I      VALUE 1, "行號         LV_COLS        TYPE I      VALUE 0, "行號         LW_ALVDATA     TYPE 
GTYP_ALVDATA. * 獲取下載檔案完整路徑   PERFORM GET_SAVE_PATH CHANGING LV_XLSNAME. * 啟動Excel   CREATE OBJECT LV_EXCEL 'EXCEL.APPLICATION'.   IF SY-SUBRC <> 0.     WRITE: / '啟動Excel失敗。'.     STOP.   ENDIF.   CALL METHOD OF       LV_EXCEL       'WORKBOOKS' = LV_WORKBOOK. * 使excel 可視   SET PROPERTY OF LV_EXCEL 'VISIBLE'             
= 0. "0：不可視，1：可視   SET PROPERTY OF LV_EXCEL 'SHEETSINNEWWORKBOOK' = 1.   "如果是讀取excel檔案中的內容 則是直接開啟工作簿第一頁   CALL METHOD OF       LV_WORKBOOK       'ADD'. * 例如：CALL *       METHOD OF EXCEL 'WORKSHEETS'  = SHEET  EXPORTING #1 = 1. *  CLEAR LV_LINE.   LOOP AT GT_ALVDATA INTO LW_ALVDATA.     LV_COLS = 1. *   列名的設定     IF SY-TABIX = 1. *     設定單元格（交貨）       PERFORM SET_EXCEL_CELL USING LV_EXCEL                                    LV_LINE                                    '交貨'                                    LV_COLS. *     設定單元格（物料號）       PERFORM SET_EXCEL_CELL USING LV_EXCEL                                    LV_LINE                                    '物料號'                                    LV_COLS. *     設定單元格（交貨日期）       PERFORM SET_EXCEL_CELL USING LV_EXCEL                                    LV_LINE                                    '交貨日期'                                    LV_COLS. *     設定單元格（實際已交貨量（按銷售單位））       PERFORM SET_EXCEL_CELL USING LV_EXCEL                                    LV_LINE                                    '實際已交貨量（按銷售單位）'                                    LV_COLS. *     設定單元格-列（售達方）       PERFORM SET_EXCEL_CELL USING LV_EXCEL                                    LV_LINE                                    '售達方'                                    LV_COLS. *     設定單元格-列（工廠）       PERFORM SET_EXCEL_CELL USING LV_EXCEL                                    LV_LINE                                    '工廠'                                    LV_COLS. *     設定單元格-列（銷售單價（SA中的單價））       PERFORM SET_EXCEL_CELL USING LV_EXCEL                                    LV_LINE                                    '銷售單價（SA中的單價）'                                    LV_COLS. *     設定單元格-列（銷售金額）       PERFORM SET_EXCEL_CELL USING LV_EXCEL                                    LV_LINE                                    '銷售金額'                                    LV_COLS. *     設定單元格-列（標準價格）       PERFORM SET_EXCEL_CELL USING LV_EXCEL                                    LV_LINE                                    '標準價格'                                    LV_COLS. *     設定單元格-列（標準成本總額）       PERFORM SET_EXCEL_CELL USING LV_EXCEL                                    LV_LINE                                    '標準成本總額'                                    LV_COLS. *     設定單元格-列（天數）       PERFORM SET_EXCEL_CELL USING LV_EXCEL                                    LV_LINE                                    '天數'                                    LV_COLS.     ENDIF.     LV_LINE = LV_LINE + 1.   "Excel 中行號從1開始     LV_COLS = 1. *   設定單元格（交貨）     PERFORM SET_EXCEL_CELL USING LV_EXCEL                                  LV_LINE                                  LW_ALVDATA-VBELN                                  LV_COLS. *   設定單元格（物料號）     PERFORM SET_EXCEL_CELL USING LV_EXCEL                                  LV_LINE                                  LW_ALVDATA-MATNR                                  LV_COLS. *   設定單元格（交貨日期）     PERFORM SET_EXCEL_CELL USING LV_EXCEL                                  LV_LINE                                  LW_ALVDATA-LFDAT                                  LV_COLS. *   設定單元格（實際已交貨量（按銷售單位））     PERFORM SET_EXCEL_CELL USING LV_EXCEL                                  LV_LINE                                  LW_ALVDATA-LFIMG                                  LV_COLS. *   設定單元格-列（售達方）     PERFORM SET_EXCEL_CELL USING LV_EXCEL                                  LV_LINE                                  LW_ALVDATA-KUNAG                                  LV_COLS. *   設定單元格-列（工廠）     PERFORM SET_EXCEL_CELL USING LV_EXCEL                                  LV_LINE                                  LW_ALVDATA-WERKS                                  LV_COLS. *   設定單元格-列（銷售單價（SA中的單價））     PERFORM SET_EXCEL_CELL USING LV_EXCEL                                  LV_LINE                                  LW_ALVDATA-KBETR                                  LV_COLS. *   設定單元格-列（銷售金額）     PERFORM SET_EXCEL_CELL USING LV_EXCEL                                  LV_LINE                                  LW_ALVDATA-SAL_AMOUNT                                  LV_COLS. *   設定單元格-列（標準價格）     PERFORM SET_EXCEL_CELL USING LV_EXCEL                                  LV_LINE                                  LW_ALVDATA-STPRS                                  LV_COLS. *   設定單元格-列（標準成本總額）     PERFORM SET_EXCEL_CELL USING LV_EXCEL                                  LV_LINE                                  LW_ALVDATA-SUM_AMOUNT                                  LV_COLS. *   設定單元格-列（天數）     PERFORM SET_EXCEL_CELL USING LV_EXCEL                                  LV_LINE                                  LW_ALVDATA-ATAGE                                  LV_COLS.   ENDLOOP.   GET PROPERTY OF LV_EXCEL 'ACTIVESHEET'    = LV_SHEET.     "啟用工作簿   GET PROPERTY OF LV_EXCEL 'ACTIVEWORKBOOK' = LV_WORKBOOK.  "啟用工作區   CALL METHOD OF       LV_WORKBOOK       'SAVEAS'     EXPORTING       #1          = LV_XLSNAME       #2          = 1.   "將excel檔案儲存   CALL METHOD  OF LV_WORKBOOK 'CLOSE'.                  "關閉工作區   CALL METHOD OF       LV_EXCEL       'QUIT'.   "退出excel *WRITE:/ XLSNAME,'DONE'.   "退出成功，輸出done   FREE OBJECT LV_SHEET.                               "釋放操作   FREE OBJECT LV_WORKBOOK.   FREE OBJECT LV_EXCEL. ENDFORM.                    " FRM_DOWNLOAD_DATA *&---------------------------------------------------------------------* *&      Form  SET_EXCEL_CELL *&---------------------------------------------------------------------* *       設定單元格-列 *----------------------------------------------------------------------* *      -->P_IN_EXCEL     excel物件 *      -->P_IN_LINE      行號 *      -->P_IN_FIELD     專案 *      <--P_OUT_COLS     列號 *----------------------------------------------------------------------* FORM SET_EXCEL_CELL  USING  P_IN_EXCEL  TYPE OLE2_OBJECT                             P_IN_LINE   TYPE I                             P_IN_FIELD  TYPE ANY                             P_OUT_COLS  TYPE I.   DATA: LV_CELL   TYPE OLE2_OBJECT. * 指定單元格   CALL METHOD OF       P_IN_EXCEL       'CELLS'    = LV_CELL     EXPORTING       #1         = P_IN_LINE       #2         = P_OUT_COLS. * 寫入值   SET  PROPERTY OF LV_CELL                    'VALUE' = P_IN_FIELD.   P_OUT_COLS = P_OUT_COLS + 1. ENDFORM.                    " SET_EXCEL_CELL *&---------------------------------------------------------------------* *&      Form  GET_SAVE_PATH *&---------------------------------------------------------------------* *       獲取下載檔案完整路徑 *----------------------------------------------------------------------* *      <--P_IN_PATH  text *----------------------------------------------------------------------* FORM GET_SAVE_PATH  CHANGING P_IN_PATH  TYPE STRING.   DATA: LV_FILENAME   TYPE STRING,         LV_PATH       TYPE STRING.   CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_SAVE_DIALOG     EXPORTING       WINDOW_TITLE         = '下載檔案'       FILE_FILTER          = '*.xls'     CHANGING       FILENAME             = LV_FILENAME       PATH                 = LV_PATH       FULLPATH             = P_IN_PATH     EXCEPTIONS       CNTL_ERROR           = 1       ERROR_NO_GUI         = 2       NOT_SUPPORTED_BY_GUI = 3       OTHERS               = 4.   IF SY-SUBRC <> 0. *   Implement suitable error handling here   ENDIF. ENDFORM.                    " GET_SAVE_PATH

相關推薦

SAP 將內表的資料匯出到本地xls檔案 abap例項 INCLUDE OLE2INCL

*&---------------------------------------------------------------------* *&      Form  FRM_DOWNLOAD_DATA *&------------------------------------

abap將內表資料匯出為excel檔案

SPAN { font-family: "Courier New"; font-size: 10pt; color: #000000; background: #FFFFFF } .L0S31 { font-style: italic; color: #808080 } .L0S32 { color: #33

SAP ABAP將內表資料匯出到TXT和從TXT讀取到內表

*&---------------------------------------------------------------------**& Report  ZCMH0010*&*&--------------------------------------------

ABAP 通過控制代碼將內表資料寫入記憶體，然後在SMARTFORM中呼叫

首先要在SMARTFORM 中定義控制代碼。在全域性設定-》表格介面中定義PRT_HANDLER1和PRT_HANDLER2. 在全域性定義中定義和程式中內表結構相同的內表，注意在全域性資料中要定義工作區方便呼叫。   然後在程式中呼叫SMARTFORM，利用S

ABAP將內表資料轉換為HTML格式的檔案

TYPES: BEGIN OF TY_VBAP,          VBELN TYPE VBELN,          POSNR TYPE POSNR,          MATNR TYPE MATNR,        END OF TY_VBAP.*-ALL rel

使用SE16獲取透明表資料儲存成xls檔案

進行資料複製的過程，或者遷移的過程，一種方式如下所示： 1.進入SE16 2.輸入需要檢視的透明表的名字，點選“表內容”按鈕 3.輸入過濾條件，點選執行 按鈕  4.得出搜尋結果 5.使用上方工具欄中 “系統--列表--儲存--本地檔案” 6.彈出對話方塊 至此

SAP ABAP如何將內表的資料匯出到EXCEL

INCLUDE OLE2INCL. "定義OLE變數DATA: EXCEL    TYPE OLE2_OBJECT,       SHEET    TYPE OLE2_OBJECT,       CELL     TYPE OLE2_OBJECT,       WORKBOOK TYPE OLE2_OBJEC

Qt將Sqlite中的表資料匯出為CSV格式表格資料

開發環境ubuntu16.04+Qt5.6.1   WIN7+Qt5.6.1兩個環境都測試過 1.問題 寫一個小軟體的時候，帶有匯出excel功能，但是要在linux下執行，最後瞭解到csv格式，實現起來方便多了，只是用excel開啟中文有亂碼的現象有一個簡單的解決辦法。 2.

Sql2012如何將遠端伺服器資料庫及表、表結構、表資料匯入本地資料庫

1、第一步，在本地資料庫中建一個與伺服器同名的資料庫        2、第二步，右鍵源資料庫，任務》匯出資料，彈出匯入匯出提示框，點下一步繼續        3、遠端資料庫操作，確認伺服器名稱（伺服器地址）、身份驗證（輸入使用者名稱、密碼）、選擇需要匯出的源資料庫，點下一步繼續       4、本地目標伺服器

mysql 將資料匯出成excel檔案(.xls格式)

匯出為txt檔案： select * from xi_table into outfile ’d:\test.txt’; 有時候有excel開啟的時候會出現亂碼， 因為office預設的是gb2312編碼，伺服器端生成的很有可能是utf-8編碼，這個時候你有兩種選擇： 在伺服器端使用iconv來進行編碼轉換:

mysql命令列下將資料匯出成excel檔案(.xls格式)

在mysql命令列下執行以下sql語句: mysql>select * from xi_table into outfile ’/tmp/test.xls’; 一句話搞定。 linux系統儘量匯出在/tmp目錄下，不會涉及讀寫許可權問題！ 匯出為txt檔案： se

SAP ABAP: 把內表資料以excel或csv格式，通過前臺或者後臺的方式上傳至FTP伺服器

今天接到一個FTP的需求，就是每天晚上把當天某個報表的資料自動儲存excel上傳到FTP伺服器。 SAP已經有現成的FTP函式使用，可以通過函式的方式來實現，實現前先準備一些資料： User：登入FTP的使用者名稱 Password：登入FTP的密碼 Host：FTP 的IP地址 Path: FTP的檔案存放

PHPExcel將資料庫內的資料匯出成excel檔案

        前兩天用到了將excel檔案匯入至資料庫中，果不其然，很快就用到了將資料庫內資料匯出成excel檔案，在網上瀏覽學習了很多網站之後終於完成了，今天就分享一個小例項。 一：上乾貨         1

利用shell將mysql中資料匯出到檔案和執行mysql語句

利用mysqldump匯出mysql資料 匯出指定條件的資料庫 命令格式 mysqldump -u使用者名稱 -p密碼 -h主機 -P埠 資料庫名 表名 --where "sql語句" > 路徑 示例程式碼 #!/bin/bash #變數定義 host="127.0.

如何將mysql表結構匯出成Excel格式的（並帶備註）

方法一： 1.使用一個MySQL管理工具：SQLyog，點選選單欄“資料庫”下拉的最後一項： 匯出的格式如下： 2.要想轉成Excel格式的只需手動將該表複製到Excel中去。 方法二： 1.以下用的是Navicat Premium，可以換成

關於大表資料匯出方案設想

本方案和需求都是本人設想僅代表個人觀點，沒有實際開發過，肯定有很多細節需要推敲，這裡針對粗劣的需求提供解決方案。實際使用還請看實際需求和相關資源情況。 背景    很多時候我們需要系統做表格匯出的功能，excel或csv，或記事本等等功能需求。本質上這種情況是我們產品功

將資料庫的資料轉換為excel檔案下載到本地的方法中遇到的困難及解決方案

以下是將資料庫的資料轉換為excel檔案下載到本地的方法 @Autowired private BooksService booksService; @RequestMapping("/downloadBooksExcel") public void down

impala表資料匯出，批量插入elasticsearch

1.從impala表匯出檔案，匯出格式為Csv impala-shell -q "select * from qscar.kcar " -B --output_delimiter="," --print_header -o kcar.csv 2.將Csv檔案轉化為指定格式（索引頭+jsono

輕鬆將所有iPhone資料匯出到Mac或PC

iMazing（http://www.imazing.cc/）可讓您將資料複製到iPhone或iPad，還可以匯出資料，例如照片，簡訊和iMessage，通話記錄等。在大多數情況下，您只需要匯出一種型別的資料，但您也可以使用“ 匯出所有資料”工具一次性匯出所有型別的資料。這對於維修車間以人類

內表資料更新到資料庫

一行資料更新到資料庫 MODIFY zqmt002  FROM ls_zqmt002. 一個表的資料更新到資料庫（一行先放到表，批量更新）   MODIFY zmmt009a FROM TABLE&