wieder eine Bitte, um Hilfe:
ich will mit einem Makro eine andere Datei öffnen und in dieser Datei auf die Tabelle3 wechseln. Das Öffnen der Datei schaffe ich aber der Sprung auf die Tabelle3 gelingt mir nicht. Ich habe den von mir verwendeten Code beigelegt:
Code: Alles auswählen
sub Datei
'Zugriff auf die aktuelle Datei
oDoc=ThisComponent
'Öffnen der ods-Datei
Dim args(1) as New com.sun.star.beans.PropertyValue
args(0).Name= "FilterName"
args(0).Value = "Text - txt - ods (StarCalc)"
'Aktuelles Verzeichnis einlesen und Datei.ods öffnen
surl = thiscomponent.url
apfad = split(surl,"/")
apfad(ubound(apfad)) = "Datei.ods"
sURL = convertToURL(join(apfad,"/"))
oODS = StarDesktop.LoadComponentFromURL(sURL, "_blank", 0, args())
'Auf Tabelle3 springen
oView = oODS.CurrentController
oSheet = oODS.Sheets(3)
oView.setActiveSheet(oSheet)
end sub
Vielen Dank für eure Hilfe!