Rudolf Huber wrote:

the following sequence leads to an "indexoutofboundexception". In the beginning I have the opening statements:
    Dim Desktop As Object
    Dim Platzhalter()
    Dim Url As String
    Dim oTabellenDokument As Object                       Rem the entire 
    Dim oTabellenListe As Object                               Rem Collection 
of sheets
    Dim Tabelle11 As Object                                      Rem sheet
Dim Tabelle31 As Object Rem sheet
thereafter a little further down: :

    oTabellenDokument = ThisComponent
EndSpalte = ZellenBereich.EndColumn
    EndZeile = ZellenBereich.EndRow
Desktop = CreateUnoService("")
    Url = "file:///a:/test.ods"
    oTabellenDokument = Desktop.loadComponentFromURL(Url, "_blank", 0, 
    oTabellenListe = oTabellenDokument.getSheets()
    Tabelle11  = oTabellenListe.getByIndex(0)

again further down, the table Tabelle31 throughs the index-error:
    Tabelle31 = oTabellenListe.getByIndex(1)

Up version 2.4 I had no problem with a structure like this. Now, I have version 
ooO 3. The table-collection  oTabellenListe should allow various sheets, 
however, macro stops after one table. In the sheet itself Tabelle1 in the 
beginning; after the url the second sheet shows Tabelle1/1. Neither Tabelle11 
nor the Tabelle31 - which I coded - appear on the sheet. I do not know, why the 
macro ignores the definitions for the tables Tabelle11 und Tabelle31.
You said that more than one sheet exists in the document. What happens if you do this?

Print oTabellenListe.getCount()
Print oTabellenDokument.getSheets().getCount()
Tabelle31 = oTabellenDokument.getSheets().getByIndex(1)

Andrew Pitonyak
My Macro Document:
My Book:
See Also:

To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to