OpenOffice.info

Datenarray = myCell.getDataArray 

Sub Main
   Dim Datenarray(1 To 66) As Variant
   
   for i = 1 to 66
      redim arHilf(1 to 128)
      for j = 1 to 128
         arHilf(j) = 100*j+i
      next
      Datenarray(i) = arHilf
   next
   Dim mArgs()
   oDocument = StarDesktop.loadComponentFromURL ("private:factory/scalc","_blank", 0, mArgs())
   mySheet = oDocument.sheets(0)
   myCell = mySheet.getCellRangeByPosition(1,1,128,66)
   myCell.setDataArray Datenarray
End Sub

Auch Hallo,

Dein Array ist M.E. falsch dimensioniert. Am einfachsten, M.E., nimm zuvor ein:

[code]Datenarray = myCell.getDataArray [/code]

dann hast Du ein Array mit der richtigen Dimensionierung. Alternativ scheint auch dieses zu funktionieren.

Beachte dass hier der ReDim innerhalb der Schleife steht!! Wenn ich das hier nicht mache bekommen alle Zellen einer Spalte den gleichen Inhalt?

cu, Bernd
--
[code]Sub Main
Dim Datenarray(1 To 66) As Variant

for i = 1 to 66
redim arHilf(1 to 128)
for j = 1 to 128
arHilf(j) = 100*j+i
next
Datenarray(i) = arHilf
next
Dim mArgs()
oDocument = StarDesktop.loadComponentFromURL ("private:factory/scalc","_blank", 0, mArgs())
mySheet = oDocument.sheets(0)
myCell = mySheet.getCellRangeByPosition(1,1,128,66)
myCell.setDataArray Datenarray
End Sub
[/code]

myCell.setDataArray( Datenarray )

Lade Dir OOoDIL und schau den Code an.

Beide Antworten sind da drinn:

HIDDEN bei den DateiEigenschaften des Öffnens [color=#008000]FileProperties[/color]

[code]
myCell.setDataArray( Datenarray )[/code]


Leider keine Zeit mir das näher anzuschauen... kommst Du so schon weiter?

Moin Hein,

JEIN - Du brauchst schon die Schleife, da Du immer nur eine Zeile des [color=#008000]ResultSet[/color]s bekommst.
Was Deinen Code langsam macht (bei mehr als ein Paar Werten) ist das Setzen der einzelnen Werte pro Zelle.

Fülle erst ein Array und nehme dann [color=#008000].setDataArray[/color] um alles auf einmal in einen Bereich zu schreiben.

Beispiele für die Array-Bearbeitung mit der Forensuche und in meiner Extension [url=http://extensions.services.openoffice.org/de/project/OOoDIL]OOoDIL - DoumentInfoListe[/url]

Noch ein Tipp: erzeuge das Calc-Doument im Hintergrund (Suchbegriff: [color=#0040FF]HIDDEN[/color]) und zeige es erst nach Ende des Füllvorgangs an (auch in OOoDIL).

Hilft das weiter?


Was meinst Du mit "Ausgabe in Base"?
Du kannst auch eine Abfrage definieren und die aufrufen... hab' ich aber noch nicht probiert.