Hallo,
Jörg Kleinfeld schrieb:
am Freitag, 23. Juli 2010 um 01:57 schrieben Sie:
Zitatanfang
option explicit
dim ser_man
dim desk
...
Ich denke Du hast nichts übersehen,
= Zitatende =
das bedeutet, dass eine als variant deklarierte Variable auch
Daten vom Typ object aufnehmen kann!? Geht das sogar soweit,
dass alle Typen funktionieren?
Ein bisschen komische Frage weil sich meine Aussage garnicht auf die
Variablendeklaration im DEtail bezog sondern auf das geschilderte
Problem insgesamt und weil ich nicht verstehe wieso Du sowas jetzt
fragst, denn wäre es nicht so wäre ja der ganze Code überhaupt nicht
lauffähig gewesen.
das bedeutet, dass eine als variant deklarierte Variable auch
Daten vom Typ object aufnehmen kann!?
ja.
Du kannst Dich auch leicht davon überzeugen das sich der Typ mit
Zuweisung des Inhalts ändert:
dim ser_man
Msgbox TypeName(ser_man)
Set ser_man = WScript.CreateObject(com.sun.star.ServiceManager)
Msgbox TypeName(ser_man)
(die erste MsgBox liefert Empty weil nicht explizit mit Typ angegebene
Variablen Variant sind und dann als Empty initialisiert werden, die
zweite MsgBox liefert Object)
Geht das sogar soweit,
dass alle Typen funktionieren?
ja, sofern ich nichts Spezielles übersehe ist das im Konkreten wohl so.
Anmerkung:
In Deiner ersten mail liegt kein Type-Problem im Eigentlichen vor,
welches auf einer Variable beruhen würde, lediglich versuchst Du
fälschlich auf eine Zelle innerhalb der Auflistung aller
Tabellenblättter zuzugreifen, was jedoch nur für ein Tabellenblatt geht
und der Wortlaut der Fehlermeldung ist dann mißverständlich.
Nachdem ich bereits geschrieben hatte das:
---
Du kannst Dich auch davon überzeugen das Du die Fehlermeldung deshalb
bekommst weil in:
Set Cell = Sheet.getCellByPosition (1, 1)
garkein Zugriff auf das richtige Objekt besteht, weil hier von OOo
beliebige Ausdrücke der Zeile davor, z.B. selbst wenn die Mappe weniger
als 11 Blätter hat, der Ausdruck:
Set Sheet = Doc.Sheets(10)
nicht zu einem Fehler führt, sondern dieser quasi immer nur als
Doc.Sheets() verstanden wird.
---
sollte das aber auch verständlich sein.
Gruß
Jörg
-
To unsubscribe, e-mail: users-unsubscr...@de.openoffice.org
For additional commands, e-mail: users-h...@de.openoffice.org
