Performante Datenübertragung nach Excel mittels OLE2_OBJECT

Alles rund um die Sprache ABAP®: Funktionsbausteine, Listen, ALV
6 Beiträge • Seite 1 von 1
6 Beiträge Seite 1 von 1

Performante Datenübertragung nach Excel mittels OLE2_OBJECT

Beitrag von Haubentaucher (ForumUser / 11 / 0 / 0 ) »
Hallo miteinander,

ich habe ein kleines Problem bei der Datenübertragung von SAP nach Excel. Das Ganze habe ich mittels OLE2 Objekten realisiert.

Hierzu steht eh schon einiges im Forum.

Die Datenübertragung regel ich mit folgender Funktion:

Code: Alles auswählen.

*---------------------------------------------------------------------*
*       FORM FILL_CELL                                                *
*---------------------------------------------------------------------*
*  -->  I      Zeile                                                  *
*  -->  J      Spalte                                                 *
*  -->  SIZE   Größe                                                  *
*  -->  BOLD   Fett=1, Normal=0                                       *
*  -->  VAL    Wert                                                   *
*  -->  FORMAT Format der Zahl (Bsp.: 10.000,00)=1, Normal=0
*  -->  COL    Farbe:                                                 *
*              1=Schwarz, 2=weiss, 3=rot, 4=grün, 5=blau, 6=gelb      *
*---------------------------------------------------------------------*
FORM fill_cell USING p_obj_xls_worksheet TYPE ole2_object
                     i j size bold col format val.

  DATA:
      obj_xls_cell TYPE ole2_object,           "Zelle
      obj_xls_font TYPE ole2_object.           "Farbe/Fett

  CALL METHOD OF p_obj_xls_worksheet 'Cells' = obj_xls_cell
       EXPORTING #1 = i #2 = j.

  SET PROPERTY OF obj_xls_cell 'Value'          = val.
  GET PROPERTY OF obj_xls_cell 'Font'           = obj_xls_font.
  SET PROPERTY OF obj_xls_font 'Bold'           = bold .
*  SET PROPERTY OF obj_xls_font 'ColorIndex'     = col.
  SET PROPERTY OF obj_xls_font 'Size'           = size.

  IF format = 1.
    SET PROPERTY OF obj_xls_cell 'NumberFormat' = '#,##0.00'.
  ELSE.
  ENDIF.

ENDFORM.
Da die Datenmengen einige tausend Zeilen werden sollen, ist die Laufzeit mit dieser Funktion misserabel. (Bei 50 Zeilen * 10 Spalten ergibt sich eine Laufzeit von 5 Minuten :-()

Nun meine Frage:

Gibt es eine bessere Möglichkeit die Daten von einer internen Tabelle in den Excel Worksheet zu bekommen? Z.B.: bei Angabe eines Ranges!?!?!?

Danke für eure Unterstützung.

mfg
Alex

gesponsert
Stellenangebote auf ABAPforum.com schalten
kostenfrei für Ausbildungsberufe und Werksstudenten


Beitrag von ewx (Top Expert / 4885 / 319 / 644 ) »
Hi Alex,

ich glaube, die Verwendung der Zwischenablage hat sich hierbei bewährt. Müsste was im Forum stehen.
Die Formaiterung müsstest du dann über ranges hinbekommen.

lg,

Beitrag von Haubentaucher (ForumUser / 11 / 0 / 0 ) »
Die Verwendung der Zwischenablage? Könntest du das näher erläutern?!?!?!
Hab im Forum nix gefunden!

Mir gehts rein darum die Daten so schnell wie möglich von der internen Tabelle in das jeweilige Excelsheet zu bekommen!

mfg
Alex


Beitrag von tomcat13 (ForumUser / 29 / 0 / 0 ) »
Versuch doch mal GUI_DOWNLOAD.
Gruß Tomcat13
_______________________________
Heute ist nur das Gestern von Morgen

Beitrag von Haubentaucher (ForumUser / 11 / 0 / 0 ) »
Hallo nochmal,

in meinen Programm muss ich mehrere Worksheets mit Daten füllen.
Den ersten Worksheet füllt er problemlos. Aber das Füllen der anderen Worksheets macht mir sehr viele Probleme. Hast du einen Tipp?
Hängt das mit dem Flush etwas zu tun?

PS: Kann man eigentlich auch Excel Dateien mit der "Desktop Office Integration" erzeugen und automatisch abspeichern? (Also Excel soll bei der Erzeugung nicht geöffnet werden)

mfg
Alex

Seite 1 von 1

Vergleichbare Themen

2
Antw.
1876
Views
Desktop Office Integration oder OLE2 Object
von jupp » 14.07.2005 18:01 • Verfasst in ABAP Objects®
6
Antw.
2647
Views
OLE2 Excel
von dkast » 21.11.2017 13:16 • Verfasst in ABAP® Core
1
Antw.
1949
Views
OLE2 Excel
von dexter » 07.07.2006 09:48 • Verfasst in ABAP Objects®
1
Antw.
856
Views
Excel OLE2 Objekt
von Manfred K. » 17.05.2023 10:25 • Verfasst in ABAP® für Anfänger
0
Antw.
1388
Views
OLE2 mit excel makro
von matthes » 25.07.2007 14:39 • Verfasst in ABAP® Core

Über diesen Beitrag


Unterstütze die Community und teile den Beitrag für mehr Leser und Austausch

Aktuelle Forenbeiträge

Gewährleistungsende im Equipment
vor 7 Stunden von Yourairld gelöst 8 / 22049
IF mit AND und OR
vor einer Woche von GastX 6 / 9721
Meine Inbox
vor einer Woche von Rabea1103 1 / 7373
PCL2 Cluster auslesen
vor einer Woche von DeathAndPain 2 / 8536

Newsletter Anmeldung

Keine Beiträge verpassen! Wöchentlich versenden wir lesenwerte Beiträge aus unserer Community.
Die letzte Ausgabe findest du hier.
Details zum Versandverfahren und zu Ihren Widerrufsmöglichkeiten findest du in unserer Datenschutzerklärung.

Aktuelle Forenbeiträge

Gewährleistungsende im Equipment
vor 7 Stunden von Yourairld gelöst 8 / 22049
IF mit AND und OR
vor einer Woche von GastX 6 / 9721
Meine Inbox
vor einer Woche von Rabea1103 1 / 7373
PCL2 Cluster auslesen
vor einer Woche von DeathAndPain 2 / 8536