OpenOffice.info

Verfasst: **Sa, 26.01.2008 18:47**

Hallo Dietrich,

zum öffnen einer bestehen Calc-Datei verwende ich normalerweise folgenden Code:

Sub NotizenOeffnen
Dim Dokument as Object
Dim sUrl as String
Dim Dummy()
sUrl = ConvertToUrl ("C:\Notizen.ods") ' Achtung: Pfad anpassen!
'Prüfungsroutine
  gefunden=false
  oComponents = StarDesktop.getComponents()
  oDocs = oComponents.createEnumeration()
  Do While oDocs.hasMoreElements()
    oDoc = oDocs.nextElement()
    datei=odoc.geturl()
     if datei=ConvertToUrl("C:\Notizen.ods") then ' Achtung: Pfad anpassen!
         Dokument=odoc
         gefunden=true
         msgbox "Die Datei ist bereits geöffnet!" ,64, "Datei öffnen"
     end if
  Loop
' Wenn nicht offen, dann öffnen
if gefunden=false then Dokument = StarDesktop.loadComponentFromURL   ( sUrl , "_blank", 0, Dummy() )
End Sub

Dieser Code hat den Vorteil, dass man den Pfad direkt angeben kann.
Es prüft zudem, ob die Datei bereits geöffnet ist weil es sonst zu einer Fehlermeldung kommt.
Aber das hilft Dir jetzt bei Deinem Problem auch nicht weiter.

Karolus hat geschrieben:Kann es sein das dein Makro im falschen Tabellenblatt werkelt:

Der Meinung bin ich mittlerweile auch.

Ich bin mit meinem Latein ziemlich am Ende.

Jürgen

Edit: Hast Du unsere Codes denn mal stand alone in einer normale Calcdatei probiert?

OpenOffice.info

Calc-Programmierung; arbeiten unter VB2005

Re: Calc-Programmierung; arbeiten unter VB2005