LO CALC - Run Macro Hidden

de-users
#1

Sorry, da hatte sich ein Tipp-Fehler eingeschlichen, natürlich "aPV(0)" und nicht "aPV1(0)". Ist ohne "Option Explicit" nicht aufgefallen ...

Unter Anwendung von Thomas' Makro-Code-Beispiel der Vollständigkeit halber in Zusammenfassung:

Mit einem Programm [2] extern ein Makro [1] aufrufen und - ohne das bereits existierende CALC-Dokument sichtbar zu öffnen - in der ersten Tabelle (von links nach rechts gezählt) in die Zelle "A1" die Zeichenkette "Hello world !" schreiben.

Grüße
Hans-Werner

[1] Makro

Option Explicit

Sub RunMacroHidden

Dim oC as Object ' object Cell
Dim oD as Object ' object Document
Dim PathFile as String
Dim aPV(0) as New com.sun.star.beans.PropertyValue

PathFile = "E:\TMP\RunMacroHidden.ods"

aPV(0).name = "Hidden"
aPV(0).value = True

oD = StarDesktop.loadComponentFromURL(ConvertToURL(PathFile),"_blank",0,aPV())
oC = oD.Sheets(0).getCellRangeByName("A1")
oC.string = "Hello World!"
oD.store()
oD.close(true)

End Sub

[2] Externer Makro-Aufruf (hier mit "Perl"-Code):

use strict;
use warnings;

my $L; # Libre Office
my $M; # Makro

$L = "C:/Program Files/LibreOffice 5/program/soffice.exe";
$M = "macro:///Standard.Temporary.RunMacroHidden";

`"$L" --nologo "$M"`;