Hallo Liste,
ich hab's befürchtet und es ist eingetreten: Mein Makro von 2.2 läuft
unter 2.4 nicht mehr. Ich hab folgendes vom Makro machen lassen:
- Pfad für eine Datei (steht in einer Zelle in Calc) in Ooo-Format
konvertieren
- Datei laden und ändern
- Datei neu abspeichern.
Bereits beim Laden der Datei bricht OOo jetzt ab. Mein Makro sieht so
aus:
sub DatLaden
rem
----------------------------------------------------------------------
rem define variables
dim dispatcher as object
Dim oCell2 as Object
Dim Args ()
oDoc2 = ThisComponent 'Calc-Datei
DialogLibraries.LoadLibrary ("Standard")
GlobalScope.BasicLibraries.LoadLibrary("Tools")
rem
----------------------------------------------------------------------
rem Dateinamen, der sich in Zelle B1 befindet, übergeben
oView2 = oDoc2.CurrentController
oView2.ActiveSheet
oCell2 = oDoc2.GetCurrentSelection ()
x = oCell2.RangeAddress.Sheet
oCell2 = ThisComponent.Sheets (x).getCellRangeByName ("C35")'Dateipfad
und -name
Select case oCell2.getType ()
case com.sun.star.table.CellContentType.TEXT
datpfad = oCell2.GetString
End Select
sDatpfad = ConvertToURL (datpfad)'Konvertieren des Pfades von '\' nach
'/'
rem
----------------------------------------------------------------------
rem Datei, die im vorhergehenden Schritt kopiert wurde, öffnen
oDoc = StarDesktop.LoadComponentFromURL (sDatpfad, "_blank", 0,
args())'oDoc wird von OOo nicht belegt warum? sDatpfad ist noch belegt.
oDoc.StoreToURL ("file:///c:/dattemp.txt", args ())
oDoc.Close (True)
'Aktuellen Controller übergeben
oDoc = StarDesktop.LoadComponentFromURL ("file:///c:/dattemp.txt", "
_blank", 0, args())
rem Text ändern
----------------------------------------------------------
...
Hat jemand eine Idee, was es sein kann?
Viele Grüße
Kornelia
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
