Problem mit Excelmakro bei Excel-Inplace Anzeige im ALV-Grid
1 Beitrag
•
Seite 1 von 1
1 Beitrag
Seite 1 von 1
Hallo zusammen,
kennt sich hier jemand zufällig mit der Kombination SAP R/3 -> Excel aus?
Ich verwende im SAP ein ALV-Grid Control zur Anzeige von Daten.
Die Daten werden dann in einem Excel-Template, das ich im SAP hinterlegt habe, weiterverarbeitet. Beim Aufruf von Excel wird ein lokal installiertes Excel-AddIn geladen.
Anschließend wird auf ein Excel-Tabellenblatt navigiert, das eine Pivottabelle enthält und durch den Benutzer ein Makro gestartet, das sich in dem AddIn befindet...
In dem VBA-Quellcode möchte ich auf alle Pivottabellen des "ActiveSheet" zugreifen... Das funktioniert aber nicht mit nachfolgendem Quellcode...
Es wird direkt "Form_error" prozessiert.
Der Quellcode funktioniert aber problemlos mit einer 0815 Standard Tabelle... 
Hat jemand eine Idee?
Viele Grüße,
Oliver
kennt sich hier jemand zufällig mit der Kombination SAP R/3 -> Excel aus?
Ich verwende im SAP ein ALV-Grid Control zur Anzeige von Daten.
Die Daten werden dann in einem Excel-Template, das ich im SAP hinterlegt habe, weiterverarbeitet. Beim Aufruf von Excel wird ein lokal installiertes Excel-AddIn geladen.
Anschließend wird auf ein Excel-Tabellenblatt navigiert, das eine Pivottabelle enthält und durch den Benutzer ein Makro gestartet, das sich in dem AddIn befindet...
In dem VBA-Quellcode möchte ich auf alle Pivottabellen des "ActiveSheet" zugreifen... Das funktioniert aber nicht mit nachfolgendem Quellcode...
Es wird direkt "Form_error" prozessiert.
Code: Alles auswählen.
On Error GoTo Form_error
' ComboBox füllen
Call ComboBoxPivotTable.Clear
For Each pt In ActiveSheet.PivotTables '<---- bricht hier ab
Call ComboBoxPivotTable.AddItem(pt.name)
Next
' Pivottabelle vorhanden?
If ComboBoxPivotTable.ListCount = 0 Then
Call MsgBox("Abbruch - Keine Pivottabelle auf aktivem Tabellenblatt vorhanden !")
Call Unload(SelectionComplex)
Else
' Element auswählen
ComboBoxPivotTable.ListIndex = 0
' nicht änderbar
ComboBoxPivotTable.Style = fmStyleDropDownList
End If
Exit Sub
' Fehlerbehandlung
Form_error:
Call MsgBox("Abbruch - Ausführung des Makros ist hier nicht vorgesehen")
Call Unload(SelectionComplex)
End Sub
Hat jemand eine Idee?
Viele Grüße,
Oliver
gesponsert ⓘ
Stellenangebote auf ABAPforum.com schalten
kostenfrei für Ausbildungsberufe und Werksstudenten
kostenfrei für Ausbildungsberufe und Werksstudenten
Seite 1 von 1
Vergleichbare Themen
6
Antw.
Antw.
9329
Views
Views
0
Antw.
Antw.
1873
Views
Views
0
Antw.
Antw.
1085
Views
Views
Smartforms-Anzeige (Inplace in eigenem Control?)
von webster » 27.12.2005 11:22 • Verfasst in ABAP® Core
von webster » 27.12.2005 11:22 • Verfasst in ABAP® Core
3
Antw.
Antw.
6425
Views
Views
Document Viewer: Inplace-Anzeige (view_document_from_table)
von joto » 22.03.2011 13:24 • Verfasst in ABAP® für Anfänger
von joto » 22.03.2011 13:24 • Verfasst in ABAP® für Anfänger
Frage die ABAP Experten
Über diesen Beitrag
olli-x
Unterstütze die Community und teile den Beitrag für mehr Leser und Austausch
Aktuelle Forenbeiträge
Newsletter Anmeldung
Keine Beiträge verpassen! Wöchentlich versenden wir lesenwerte Beiträge aus unserer Community.Die letzte Ausgabe findest du hier.