Hallo allerseits,
ich möchte einen Datenbankbereich (mit Maus aus dem Datenbankexplorer F4 ins
Sheet gezogen) in Calc per Basic aktualisieren. Per Hand geht das ja über
<Daten> <Bereich aktualisieren> nachdem man den Cursor in den Bereich
gesetzt hat. Das habe ich mit dem Makrorekorder aufgezeichnet. So
funktioniert das auch.
Da ich aber 7 Datenbereiche in verschiedenen Sheets habe holpert das Makro
jetzt zwischen den Sheets und Bereichen hin und her.
Nun wollte ich selbst ein Makro schreiben:
-------------------------
Sub BereichAktualisieren
odoc=thisComponent
oSheet=odoc.sheets(3)
CellRange = oSheet.getCellRangeByName("A1:M3")
CellRange.DataAreaRefresh
End Sub
-------------------------
Bei CellRange.DataAreaRefresh gibt es eine4n Laufzeitfehler. Ist jetzt die
Methode DataAreaRefresh falsch, oder muß ich den Bereich anders auswählen?
Ich hab trotz stundenlangem suchen und lesen nichts zum aktualisieren von
Datenbereichen gefunden, hab aber sonst einiges dazugelernt ;-)
Wer kann mir da einen Tipp geben?
Wäre echt Super! danke schonmal.
Gruß Thomas
Hier noch der Code vom Rekorder (hierher habe ich auch das mit dem
DataAreaRefresh):
sub BereichAktualisieren2
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$Änderungen.$A$1:$M$3"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:DataAreaRefresh", "", 0, Array())
end sub
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
