ich habe mir für Oo calc einen Dialog mit 3 Schaltflächen gebastelt, Schaltfläche 1 "NEU", Schaltfläche 2 "Bearbeiten", Schaltfläche 3 "Kopieren", für Schaltfläche 1 und 3 habe ich "Standard" ausgewählt, für Schaltfläche 2 "Abbrechen". Beim Drücken von 1 und 2 wird eine Funktion gestartet (Ereignisse/Aktion ausführen), die den Wert in einer Zelle um 1 erhöht (bekannt von der Dannenhöfer Seite)
Code: Alles auswählen
function GetAndSetNumber as string
dim f as Integer
dim anummerdatei as string
dim anummer as string
Dim document as Object
Dim dispatcher as Object
Dim StringName as String
Dim OrdnerPos as String
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
myDoc = ThisComponent
myView = myDoc.CurrentController
mySheet = myDoc.Sheets.getByName("Kal")
myView.setActiveSheet(mySheet)
OrdnerPos = "X:/Auf/"
anummerdatei=OrdnerPos & "A-Nummer" & ".txt"
if FileExists("file:///"&anummerdatei) then
f = FreeFile()
Open "file:///"&anummerdatei for Input as #f
Line Input #f, anummer
close #f
f = FreeFile()
Open "file:///"&anummerdatei for output as #f
Print #f, val(anummer)+1
close #f
else
anummer=0
endif
GetAndSetNumber=anummer
rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$G$2"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "StringName"
args2(0).Value = GetAndSetNumber
dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args2())
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Save", "", 0, Array())
rem ----------------------------------------------------------------------
dim args10(0) as new com.sun.star.beans.PropertyValue
args10(0).Name = "ToPoint"
args10(0).Value = "$A$6"
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args10())
REM Messagebox
msgbox ("Es wurde eine neue A-Nummer angelegt! ", 64, "Herzlichen Glückwunsch!")
rem end if
End function
Ich würde mich freuen wenn mir jemand helfen könnte.
Gruß
Dirk