Calc-Programmierung; arbeiten unter VB2005

[turtle47]

Hallo Dietrich,

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

Code: Alles auswählen

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.

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?