粘贴板导出EXCEL数据

最新推荐文章于 2020-12-24 18:21:43 发布
最新推荐文章于 2020-12-24 18:21:43 发布
阅读量434 收藏
点赞数
分类专栏： ABAP 文章标签： ABAP  EXCEL
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/ABAP_NY/article/details/100291100
版权

&---------------------------------------------------------------------
*& Report ZTEST002
&---------------------------------------------------------------------
*&Description: 用粘贴板导出EXCEL数据
&---------------------------------------------------------------------
REPORT ZTEST002.

TABLES BKPF.
TYPE-POOLS:SLIS,OLE2.
TYPES:
BEGIN OF TYP_BKPF,
BUKRS TYPE BUKRS,
BELNR TYPE BELNR_D,
GJAHR TYPE GJAHR,
BLART TYPE BLART,
BUDAT TYPE BUDAT,
MONAT TYPE MONAT,
TCODE TYPE TCODE,
END OF TYP_BKPF.

DATA: GT_BKPF TYPE TABLE OF TYP_BKPF,
GS_BKPF TYPE TYP_BKPF.

DATA: V_EXCEL TYPE OLE2_OBJECT,
V_BOOK TYPE OLE2_OBJECT,
V_SHEET TYPE OLE2_OBJECT,
V_CELL TYPE OLE2_OBJECT.

*屏幕
SELECT-OPTIONS:
S_BUKRS FOR BKPF-BUKRS,
S_BELNR FOR BKPF-BELNR,
S_GJAHR FOR BKPF-GJAHR,
S_MONAT FOR BKPF-MONAT.

START-OF-SELECTION.
PERFORM FRM_GET_BKPF_DATA.
PERFORM FRM_DOWN_DATA.
&---------------------------------------------------------------------
*& Form FRM_GET_BKPF_DATA
&---------------------------------------------------------------------
FORM FRM_GET_BKPF_DATA .

SELECT BUKRS
BELNR
GJAHR
BLART
BUDAT
MONAT
TCODE
INTO TABLE GT_BKPF
FROM BKPF
WHERE BUKRS IN S_BUKRS
AND BELNR IN S_BELNR
AND GJAHR IN S_GJAHR
AND MONAT IN S_MONAT.
ENDFORM.
&---------------------------------------------------------------------
*& Form FRM_DOWN_DATA
&---------------------------------------------------------------------
FORM FRM_DOWN_DATA .
DATA:
L_NAME LIKE WWWDATATAB,
L_MINE LIKE W3MIME OCCURS 10,
L_TITLE TYPE STRING,
L_FILENAME TYPE STRING,
L_PATH TYPE STRING,
L_FULLPATH TYPE STRING.

L_NAME-RELID = ‘MI’.
L_NAME-OBJID = ‘ZTEST002’.
L_NAME-TEXT = ‘粘贴板测试’.

CALL FUNCTION ‘WWWDATA_IMPORT’
EXPORTING
KEY = L_NAME
TABLES
MIME = L_MINE
EXCEPTIONS
WRONG_OBJECT_TYPE = 1
IMPORT_ERROR = 2
OTHERS = 3.

L_TITLE = ‘粘贴板测试’.
CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_SAVE_DIALOG
EXPORTING
WINDOW_TITLE = L_TITLE
DEFAULT_EXTENSION = ‘xls’
DEFAULT_FILE_NAME = L_TITLE
FILE_FILTER = ‘(电子表格EXCEL)’
CHANGING
FILENAME = L_FILENAME
PATH = L_PATH
FULLPATH = L_FULLPATH
EXCEPTIONS
CNTL_ERROR = 1
ERROR_NO_GUI = 2
NOT_SUPPORTED_BY_GUI = 3
OTHERS = 4.
IF SY-SUBRC <> 0.
STOP.
ENDIF.

IF L_FULLPATH IS INITIAL.
EXIT.
ENDIF.

CALL FUNCTION ‘SAPGUI_PROGRESS_INDICATOR’
EXPORTING
PERCENTAGE = ‘0’
TEXT = ‘正在导出EXCEL’.

CALL FUNCTION ‘GUI_DOWNLOAD’
EXPORTING
FILENAME = L_FULLPATH
FILETYPE = ‘BIN’
TABLES
DATA_TAB = L_MINE.

*–打开excel模板

PERFORM FRM_OPEN_EXCEL USING L_FULLPATH.

*–向excel写数据

PERFORM FRM_WRITE_EXCEL_SHEET TABLES GT_BKPF[].

*–设置excel可见

CALL METHOD OF V_EXCEL ‘Worksheets’ = V_SHEET
EXPORTING
#1 = 1.
CALL METHOD OF V_SHEET ‘Activate’.
SET PROPERTY OF V_EXCEL ‘Visible’ = 1.

*关闭EXCEL并保存

PERFORM FRM_SAVE_EXCEL USING L_FULLPATH.

ENDFORM.
&---------------------------------------------------------------------
*& Form FRM_OPEN_EXCEL
&---------------------------------------------------------------------
FORM FRM_OPEN_EXCEL USING PA_PATH.
CREATE OBJECT V_EXCEL ‘Excel.Application’.

CALL METHOD OF V_EXCEL ‘Workbooks’ = V_BOOK.

CALL METHOD OF V_BOOK ‘Open’ = V_BOOK
EXPORTING
#1 = PA_PATH.

CALL METHOD OF V_BOOK ‘Sheets’ = V_SHEET
EXPORTING
#1 = 1.
ENDFORM.
&---------------------------------------------------------------------
*& Form FRM_WRITE_EXCEL_SHEET
&---------------------------------------------------------------------
FORM FRM_WRITE_EXCEL_SHEET TABLES PT_TAB LIKE GT_BKPF.
DATA: L_STR TYPE STRING,
CH TYPE CHAR20,
L_RC TYPE I.
DATA: LW_XFC TYPE LVC_S_FCAT,
LI_IFC TYPE LVC_T_FCAT.
DATA: BEGIN OF LI_DATA OCCURS 0,
LINE(4096),
END OF LI_DATA.
DATA: L_FGF TYPE C.
DATA: DY_TABLE TYPE REF TO DATA,
DY_LINE TYPE REF TO DATA.
FIELD-SYMBOLS:<DYN_TABLE> TYPE STANDARD TABLE, "动态内表
<DYN_WA>, "动态工作区
<DYN_FIELD>. "动态字段名

L_FGF = CL_ABAP_CHAR_UTILITIES=>HORIZONTAL_TAB.

LW_XFC-FIELDNAME = ‘BUKRS’.
LW_XFC-INTTYPE = ‘C’.
LW_XFC-DATATYPE = ‘C’.
LW_XFC-INTLEN = 4.
APPEND LW_XFC TO LI_IFC.

LW_XFC-FIELDNAME = ‘BELNR’.
LW_XFC-INTTYPE = ‘C’.
LW_XFC-DATATYPE = ‘C’.
LW_XFC-INTLEN = 10.
APPEND LW_XFC TO LI_IFC.

LW_XFC-FIELDNAME = ‘GJAHR’.
LW_XFC-INTTYPE = ‘C’.
LW_XFC-DATATYPE = ‘C’.
LW_XFC-INTLEN = 4.
APPEND LW_XFC TO LI_IFC.

LW_XFC-FIELDNAME = ‘BLART’.
LW_XFC-INTTYPE = ‘C’.
LW_XFC-DATATYPE = ‘C’.
LW_XFC-INTLEN = 4.
APPEND LW_XFC TO LI_IFC.

LW_XFC-FIELDNAME = ‘BUDAT’.
LW_XFC-INTTYPE = ‘C’.
LW_XFC-DATATYPE = ‘C’.
LW_XFC-INTLEN = 10.
APPEND LW_XFC TO LI_IFC.

LW_XFC-FIELDNAME = ‘MONAT’.
LW_XFC-INTTYPE = ‘C’.
LW_XFC-DATATYPE = ‘C’.
LW_XFC-INTLEN = 2.
APPEND LW_XFC TO LI_IFC.

LW_XFC-FIELDNAME = ‘TCODE’.
LW_XFC-INTTYPE = ‘C’.
LW_XFC-DATATYPE = ‘C’.
LW_XFC-INTLEN = 20.
APPEND LW_XFC TO LI_IFC.

*创建动态内表和工作区

CALL METHOD CL_ALV_TABLE_CREATE=>CREATE_DYNAMIC_TABLE
EXPORTING
IT_FIELDCATALOG = LI_IFC
IMPORTING
EP_TABLE = DY_TABLE.

ASSIGN DY_TABLE->* TO <DYN_TABLE>.
CREATE DATA DY_LINE LIKE LINE OF <DYN_TABLE>.
ASSIGN DY_LINE->* TO <DYN_WA>.

LOOP AT PT_TAB.
ASSIGN COMPONENT ‘BUKRS’ OF STRUCTURE <DYN_WA> TO <DYN_FIELD>.
<DYN_FIELD> = PT_TAB-BUKRS.

ASSIGN COMPONENT ‘BELNR’ OF STRUCTURE <DYN_WA> TO <DYN_FIELD>.
<DYN_FIELD> = PT_TAB-BELNR.

ASSIGN COMPONENT ‘GJAHR’ OF STRUCTURE <DYN_WA> TO <DYN_FIELD>.
<DYN_FIELD> = PT_TAB-GJAHR.

ASSIGN COMPONENT ‘BLART’ OF STRUCTURE <DYN_WA> TO <DYN_FIELD>.
<DYN_FIELD> = PT_TAB-BLART.

ASSIGN COMPONENT ‘BUDAT’ OF STRUCTURE <DYN_WA> TO <DYN_FIELD>.
<DYN_FIELD> = PT_TAB-BUDAT.

ASSIGN COMPONENT ‘MONAT’ OF STRUCTURE <DYN_WA> TO <DYN_FIELD>.
<DYN_FIELD> = PT_TAB-MONAT.

ASSIGN COMPONENT ‘TCODE’ OF STRUCTURE <DYN_WA> TO <DYN_FIELD>.
<DYN_FIELD> = PT_TAB-TCODE.
APPEND <DYN_WA> TO <DYN_TABLE>.
ENDLOOP.
LOOP AT <DYN_TABLE> INTO <DYN_WA>.
LOOP AT LI_IFC INTO LW_XFC.
ASSIGN COMPONENT SY-TABIX OF STRUCTURE <DYN_WA> TO <DYN_FIELD>.
CH = <DYN_FIELD>.
CONDENSE CH.
IF LI_DATA-LINE IS INITIAL.
CONCATENATE LI_DATA-LINE CH L_FGF INTO LI_DATA-LINE.
CLEAR CH.
ELSE.
CONCATENATE LI_DATA-LINE CH L_FGF INTO LI_DATA-LINE.
CLEAR CH.
ENDIF.
ENDLOOP.
APPEND LI_DATA.
CLEAR:LI_DATA.

ENDLOOP.

CALL METHOD CL_GUI_FRONTEND_SERVICES=>CLIPBOARD_EXPORT
IMPORTING
DATA = LI_DATA[]
CHANGING
RC = L_RC
EXCEPTIONS
CNTL_ERROR = 1
ERROR_NO_GUI = 2
NOT_SUPPORTED_BY_GUI = 3
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.

CALL METHOD OF
V_SHEET
‘CELLS’ = V_CELL
EXPORTING
#1 = 2
#2 = 1.

CALL METHOD OF
V_CELL
‘SELECT’.

CALL METHOD OF
V_SHEET
‘PASTE’.

ENDFORM.
FORM FRM_SAVE_EXCEL USING P_FULLPATH.
SET PROPERTY OF V_EXCEL ‘DisplayAlerts’ = 0.
CALL METHOD OF V_BOOK ‘SAVEAS’
EXPORTING
#1 = P_FULLPATH.

CALL METHOD OF V_BOOK ‘Exit’ = V_EXCEL.

  • CALL METHOD OF V_BOOK ‘QUIT’.
  • CALL METHOD OF V_EXCEL ‘QUIT’.

FREE OBJECT V_CELL.
FREE OBJECT V_SHEET.
FREE OBJECT V_BOOK.
FREE OBJECT V_EXCEL.
ENDFORM. "FRM_SAVE_EXCEL

西柚e
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
利用剪切板将网页数据导入到excel
武子的专栏
09-22 2200
此方法最开始的想法是要将datagrid的数据连格式一起导入到excelfunction ClipBoard() {document.getElementById("holdtext").innerText= copytext.innerHTML;Copied = document.getElementById("holdtext").createTextRange();Copied.execCo
快速导出数据到Excel（一）：利用剪贴板
编程手札
03-04 3978
　　将数据导出到Excel的方法有多种，速度有快慢之分，我用过三种方法，速度都比较快，下面的一种是通过剪贴板进行，不过在个别W2K以上的系统，由于字符集编码不同，中文内容导出到Excel后可能变成乱码。//定义BlockInput函数function BlockInput (fBlockInput : boolean) : DWord; stdcall; external user32.DLL
ABAP-操作Excel导出数据
03-17
通过OLE操作实现ABAP导出Excel.
利用剪贴板实现高速导出数据到Excel
梅文海的专栏
09-28 1135
    在很多的时候，我们需要将我们的数据导出到Excel中进行加工，在Access中有现成的工具可以实现可是在Delphi中却偏偏没有，无论如何我们需要这么一个工具，那么，事不宜迟，细细一想，最好的方法莫过于直接在程序中按照Excel的格式生成Excel文件，使用Ole技术直接调用Excel实例，由于第一种方法技术实现过于复杂，好在一般的计算机上已经安装了Office，在此就第二种方法“抛一块砖
Delhpi利用剪贴板快速导出(复制)数据到excel
sprbreeze的专栏
07-28 2084
本文介绍一种将数据复制到剪贴板,然后粘帖到excel的技术,目的是快速将数据导入到excel文件。实践证明,普通的电脑可以每秒导入2000条数据以上.网上已有这方面的文章,本人也将自己的实践经历告诉一下大家,以供大家参考.
根据excel模板导出excel
hichinamobile的博客
06-02 3087
1. 代码 package com.base.pf.common.util; import java.io.FileInputStream; import java.io.FileNotFoundException; import java.io.IOException; import java.io.InputStream; import java.io.OutputStream; impo
以Excel模板格式导出数据的快速实现
weixin_47095348的博客
12-24 761
最近白码低代码开发平台更新了一个功能，可以对某一条数据按照一个Excel文件的格式导出。 使用步骤： 选择一条数据，使用“按模板导出”功能，上传一个Excel模板，文件格式必须是xlsx，点击确定，即可导出文件，打开文件就可以看到，刚才选择的数据都已经按照模板填好数据了。 实现步骤： 根据官方的说明，需要准备一个Excel模板，我原本要导出的效果如下图所示； 系统用户端选择的数据如图所示； 则需要上传的Excel模板如图所示； 只需在要填充的单元格内按照”字段名称”的格式来填写就行了，比如要对应收
JS 巧妙获取剪贴板数据 Excel数据的粘贴
10-29
然而，在某些特定场景下，比如在网页中实现Excel数据的粘贴，这种功能是必要的。这里我们将探讨一种巧妙的、不依赖Flash且不受浏览器安全限制的解决方案。 传统的JavaScript获取剪贴板数据的方式是使用`Clipboard ...
delphi获取处理剪贴板中Excel中的数据，封装成自定义的数据集
03-08
本篇文章将详细探讨如何在Delphi中获取剪贴板中的Excel数据，并将其封装成自定义的数据集。 首先，我们要理解剪贴板在操作系统中的作用。剪贴板是操作系统提供的一种临时存储区域，用户可以将数据复制到剪贴板，...
通过剪贴板实现将DataGridView中的数据导出到Excel
01-02
将DataGridView中的数据导出到Excel中有许多方法，常见的... 这里介绍一种直接通过Windows剪贴板将数据从DataGridView导出到Excel的方法。代码如下： 代码如下: using System; using System.Collections.Generic; using
重定向命令行程序的输出到windows剪贴板
03-02
功能：把命令行程序的输出重定向到剪贴板。用来做演示文档，PPT等非常有用。自用程序，做的很简单，没有容错，请别见怪。 用法：[command] [option]|cmd2cb 例如：dir|cmd2cb 会把dir的输出都重定向到剪贴板，打开其他程序，直接CTRL+V。 OS: WINDOWS
通过剪贴板将DataGridView中的数据导出到Excel
ddjq1044的博客
07-24 110
　　将DataGridView中的数据导出到Excel中有许多方法，常见的方法是使用Office COM组件将DataGridView中的数据循环复制到Excel Cell对象中，然后再保存整个Excel Workbook。但是如果数据量太大，例如上万行数据或者有多个Excel Sheet需要同时导出，效率会比较低。可以尝试使用异步操作或多线程的方式来解决UI死锁的问题。参考http:/...
C# DataGridView控件中数据导出到Excel
伤心太平洋
09-26 3097
<br />方法一：<br /><br />using System;<br />using System.Collections.Generic;<br />using System.ComponentModel;<br />using System.Data;<br />using System.Drawing;<br />using System.Linq;<br />using System.Text;<br />using System.Windows.Forms;<br />using Syst
DataGridView直接导出EXCEL
TheoGo的专栏
07-23 948
DataGridView直接导出EXCEL 1.直接将DataGridView显示的内容导出Excel  1public void DataToExcel(DataGridView m_DataView)  2        {  3            SaveFileDialog kk = new SaveFileDialog();   4            k
DataGirdView导出EXCEL文件
nanwang314的专栏
12-31 930
<br /> ///<summary><br />        /// 将DataGirdView数据,导出EXCEL文件.<br />        ///</summary><br />        ///<param name="dgv">DataGridView控件名称</param><br />        ///<param name="name">导出excel文件名称</param><br />        publicstaticvoid ToExcel(DataGridView
AX 利用windows粘贴板功能实现批量数据快速导出EXCEL
mahailiang的专栏
03-07 610
static void test(Args _args) { int lineNum; int titleLines; SysExcelApplication excel; SysExcelWorkbooks books; SysExcelWorkbook book; SysExcelWorksheets sheets; Sy
DataGridView如何快速导出Excel
.NET开源应用程序框架 HYAppFrame
07-20 1320
从DataGridView或DataTable导出Excel文件，为了按照数据类型设置单元格格式，导出Excel时速度都比较慢，一直找不到好的办法。最后从外文网站上找到解决办法，使用ws.get_Range(excelRange, Type.Missing).Value2方法批量设置单元格的值。
将excel中某个数据复制到剪贴板
最新发布
06-06
可以使用Python的openpyxl库来读取和操作Excel文件，使用pyperclip库来操作剪贴板。下面是一个示例代码，可以将Excel文件中第一个工作表中第一行第一列的数据复制到剪贴板： ```python import openpyxl import pyperclip # 打开Excel文件 workbook = openpyxl.load_workbook('example.xlsx') # 选择第一个工作表 sheet = workbook.active # 获取第一行第一列的单元格对象 cell = sheet.cell(row=1, column=1) # 将单元格的值复制到剪贴板 pyperclip.copy(cell.value) ``` 在这个示例中，使用openpyxl库打开Excel文件，并选择第一个工作表。然后，使用cell方法获取第一行第一列的单元格对象，并使用pyperclip库将单元格的值复制到剪贴板。最后，可以在其他程序中使用Ctrl + V来粘贴剪贴板中的值。 注意，使用pyperclip库需要先安装xclip或xsel（在Linux中），或者pyobjc（在Mac OS X中）等剪贴板工具。在Windows中，可以直接使用pyperclip库。你可以使用pip来安装pyperclip库： ```bash pip install pyperclip ``` 完整的示例代码如下： ```python import openpyxl import pyperclip # 打开Excel文件 workbook = openpyxl.load_workbook('example.xlsx') # 选择第一个工作表 sheet = workbook.active # 获取第一行第一列的单元格对象 cell = sheet.cell(row=1, column=1) # 将单元格的值复制到剪贴板 pyperclip.copy(cell.value) ``` 这个示例中，使用openpyxl库读取Excel数据，并使用pyperclip库将单元格的值复制到剪贴板。你可以根据具体的需求使用openpyxl库和pyperclip库提供的更多方法来处理Excel数据和剪贴板。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值