OpenOffice.info

Steppenwolf hat geschrieben:Oder ist es egal ob ich ein Excel oder Calc Dokument im Makro auslese ?

Genau vor der Frage stand ich auch, als ich mit dem Macro begonnen habe
Versuch es einfach.

Ist zwar nicht konkret das was du suchst, aber könnte ein Anfang sein: Datenbereich von einem Dokument in ein anderes übertragen.

Du musst erst den Bereich auswählen/markieren, dessen Anzahl du haben möchtest.
z.B. so:
Sub Main
' Startposition fuer CellRangeByPosition festlegen
CRBP_L = 0 ' CellRangeByPosition Links Spalte A
CRBP_O = 0 ' CellRangeByPosition Oben Zeile 1

oSheet = thisComponent.sheets(0)

oCellCursor ...

Auch wenn ich noch nicht so lange dabei bin ...
Irgendwo habe ich gelesen, dass nur Funktionen einen Wert zurückgeben können. Das es auch mit einer Sub geht, nun ja.
Ich verwende für Rückgaben lieber ausschließlich Funktionen. Ist irgendwie eindeutiger für mich.

Ich würde an die Fehlersuche wie folgt rangehen (ab Kommentar "NEU"):

Sub FormSitesButton(oButtonName)
REM Globalscope.BasicLibraries.LoadLibrary( "MRILib" )
Dim oDataBaseContext as Object
Dim oMyForm as Object
Dim oMyActiveButton as Object
Dim oPB as Object
Dim oMRI as object
Dim Context AS ...

Das mit dem Entfernen des Macros habe ich nun auch hinbekommen.
Zusätzlich soll nun ein FreezeAtPosition (Fenster/fixieren) an Position "B2" ausgeführt werden. Dies funktioniert leider noch nicht richtig. Es wird immer nur die komplette Spalte B fixiert. Ob hier ein Bug vorliegt?

Weiterhin werden ...

Hier nun mein erstes, für mich zufriedenstellendes und vor allem funktionierendes Ergebnis.

Kurze zusammenfassende Erklärung dazu (falls es jemand anderes mal brauchen sollte).
Eingebettet ist das Macro in einer Vorlagendatei (.odt).
Eine (Calc- oder Excel-) Datei mit beliebigen Namen wird aus ...

Inzwischen habe ich ein funktionierendes Macro, dass mir einen bestimmten Cellbereich (Range) von einem Dokument in ein anderes kopiert:

Sub Main
Dim sPath, fullPath, iVal, iResult As String
Dim r as Integer
Dim oDocument, thisDoc, oSheet, ocell1, oVal, oSrcRange, oDstRange as Object

' Start ...

Sippe hat geschrieben:Kann mir da jemand helfen bitte.

Meine Glaskugel bleibt dunkel. Ohne den Code dazu, wirst du nicht viel Hilfe bekommen können.

Excel (VBA) funktioniert nicht (immer) direkt mit OOo.

Ein erster Erfolg ist dank diesen Beitrages nun schon zu verzeichnen.
Ich hatte nicht erwartet, dass es mit OOo doch so einfach ist, mit einer Exceldatei zu arbeiten :)

Sub Main
Dim sPath, fullPath, iVal, iResult As String
Dim r as Integer
Dim oDocument, thisDoc, oSheet, ocell1, oVal as Object ...

Hallo

Folgendes soll als automatische Abarbeitung in einem Macro umgesetzt werden:
Gegeben ist eine Exceltabelle mit Daten (A1:H1 als Beschriftung, alles darunter gefüllt mit Daten; ca. 4000 Zeilen),
und eine OOCalc Vorlagendatei in der die erste Zeile von A1:H1 mit einer Beschriftung und ...

Hier mit OOo 3.2.1 geht das nicht, da sind 'bei diesem Weg' nur 'globale Makros' wählbar, nicht die Makros der aktuellen Datei.
Oh, tatsächlich! Das ist mir gar nicht aufgefallen.

Ja, das bewirkt indirekt eine Neuberechnung aller Formeln.
Habe dafür eine einfachere Lösung gefunden. Workbook ...

mit einem M.E. 'unschönen Trick' scheint das zu funktionieren.
Jap, funktioniert wunderbar. Besten Dank.

Weise das Makro Workbook_Open via Extras - Anpassen (!) - Ereignisse dem Ereignis Dokument Öffnen zu. Ggf. musst Du noch auf mehreren Tabellen Suchen & Ersetzen.
Nur der Vollständigkeit ...

Stephan hat geschrieben:Ich bin im Moment im Unklaren ob es eine sonstige allgemeine Lösung gibt.

Könnte man das Thiscomponent-Objekt mit einer IF-Abfrage auf dessen vorhandensein/Inhalt prüfen und dann ansteller der Fehlermeldung lieber einen Leerstring, also "", ausgeben lassen?

Werd mich mal daran versuchen.

Function FARBFUNKTION(Zelle As String)
x1 = Thiscomponent.CurrentController.ActiveSheet
FARBFUNKTION = Hex(x1.getCellRangeByName(Zelle).CellBackColor)
End Function
einzig muß der Aufruf mittels String erfolgen, also:
=WENN(FARBWERT( " A1 " )= "00FF00"; A1+A2; A1-A3)...
Super, genau das brauchte ...