OpenOffice.info

Ich würde dir empfehlen von der Verwendung des Makrorekorders wann immer möglich abzusehen, da stößt man meißt auf mehr Probleme als man damit löst.

Hier mal ein Codebeispiel das dein Problem weitesgehend lösen dürfte:


sub kopieren
Dim oSheet as Object
ThisComponent.Sheets().copyByName ...

Unnötig, da REM wie Remark vor der Zeile steht. Ist damit ein Kommentar und wird nicht ausgeführt (als Code).

zwei Posts vorher hat er den Tip bekommen, dass er alle REMs entfernen soll. Deswegen der Hinweis den Teil zu löschen.

und nimm noch folgenden Teil raus:
Rem Attribute VBA_ModuleType=VBADocumentModule

Du hast ja dann kein VBA mehr sondern StarBasic.
Und dann sag mal welche Zeile nicht läuft.

PS: an deiner Stelle würde ich mich aber mal etwas mit Starbasic beschäftigen. Gibt ein sehr gutes FAQ von Michael ...

Hallo Komma4,

Da ist ja mein Problem. Ich versuch das schon das Wochenende mit xRay und Andrew Pitoniak.
Anbei mal mein Beispielcode:

Sub Button
Dim btnControl as Object
Dim btnShape as Object
Dim oEvents(0) As New com.sun.star.script.ScriptEventDescriptor

'buttonContolsAnlegen
btnControl ...

Der Teil funktioniert nun ganz gut.
Allerdings habe ich jetzt ein anderes Problem. Wie verlinke ich eine Methode auf den Button.
Ich schätze das läuft mittels eines Eventlisteners, aber ich habe weder eine Ahnung, wie der Aussehen muss, noch bin ich bisher fündig geworden.

Es geht also darum dem so ...

Hallo Zusammen,

Ich möchte gerne in einem Spreadsheet einen Button zur Laufzeit erstellen.
Soweit bin ich dabei bisher gekommen.

oButton = CreateUnoService("com.sun.star.form.component.CommandButton")
oButton.Label = "Test123"
ThisComponent.Sheets(0).DrawPage.Forms.getByIndex(0).InsertByName ...

Habe jetzt nach einer Lösung gesucht. Das Problem das ich habe liegt bereits am Import des HTML Sheet in meinem Macro.
Dies geschiet über die Codezeilen


oImportSheet.LinkMode = 1
oImportSheet.LinkUrl = PfadReportdateiHTML
oImportSheet.LinkMode = 0
oImportSheet.setLinkURL("")


Sobald die LinkURL ...

Hallo Zusammen, Erstmal vorab vielen dank für die vielen Anmerkungen und Kommentare dazu.

Der HTML Report enthällt leider Finanzdaten und daher darf ich den nicht als Beispiel hier hochladen (auch wenn ich zum testen einen uralt report nehme)
Da sind von Strings, über Kommazahlen bis hin zu ...

sagen wir mal so, wenn ich deren Einstellung auslesen und verändern kann, dann kann ich die aktuellen Einstellungen sichern und danach wieder zurücksetzen wenn der Report eingelesen ist.

Das zweite Makro ist recht gut um alle möglichen Einstellungen auszulesen. Allerdings habe ich damit keine ...

Hi komma4, das geht zwar in die Richtige Richtung, aber irgendwie komme ich damit noch nicht so ganz zu Recht.

Mein Problem ist folgendes. Ich lese einen HTML Report via Makro ein. Das klapt ganz gut. Allerdings ist mein Makro nicht in der Lage dabei die Dezimalpunkte entsprechend den Einstellungen ...

Hallo Zusammen,
Ich habe mal wieder ein kleines Problem.
Ich benötige per Makro irgendwie Zugriff auf die Ländereinstellungen (also welches Dezimalzeichen wird verwendet usw). Am besten auch so, dass ich die ändern kann.
Kann mir hier irgendwer helfen?

PS: Es geht nicht darum die ...

DANKE DANKE DANKE DAS FUNKTIONIERT GENAU SO WIE ICH ES WOLLTE!!!!!!!!!!!!!!!!!!!
Ich zerbrech mir seit gestern morgen den Kopf darüber und so schnell geht es!!!!

Faszinierenderweise bei mir nicht....Welche OOo Version nutzt du?

Für die beiden Bedingungen "" und Manuelle Eingabe musst du die IF etwas anpassen


If ThisComponent.Sheets.GetByName("Tabelle1").getCellByPosition(vorgabe, x).String = "" [b]OR ThisComponent.Sheets.GetByName("Tabelle1").getCellByPosition(vorgabe, x).String = "Manuelle Eingabe" [/b] Then

Noch ...

Ich würde dir empfehlen deine Bereiche mit einer For Schleife zu durchlaufen und den Rest auszulagern
Das Problem wegen der beiden Eingaben muss ich noch kurz testen.


Sub Iteration

For i= 9 to 27 REM Erster Zellbereich (Nicht vergessen Zeilen werden als Array addressiert und das beginnt bei ...