[gelöst] Kann Datei öfnnen aber nicht Tabelle springen
Verfasst: Do, 18.05.2023 23:25
Hallo,
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:
Der Fehler liegt offenbar in den letzten 3 Zeilen. Allerdings verstehe ich auch diese Zeile nicht: args(0).Value = "Text - txt - ods (StarCalc)". Ich habe sie aus einem Codebeispiel für das Einlesen einer CSV-Datei. Sie stört hier offenbar nicht aber ihren Sinn verstehe ich nicht.
Vielen Dank für eure Hilfe!
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!