prima di tutto chiedo scusa pubblicamente a BART della confusione che ho
creato e nel non essere stato chiaro con le mie domande
ora ci riprovo
dovrei automatizzare la verifica del contenuto di una cella o nome di
area e se non contiene nulla uscire con un messaggio "Dati incomleti!"
il codice sotto riportato non funziona dove ho sbagliato?
sub selData
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 = "DATA"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
Dim NamedRange as Object
NamedRange = Document.NamedRanges.getByName(DATA)
Dim Cell as Object
Cell = NamedRange.getReferredCells(DATA).getCellByPosition(DATA)
GetNamedCell = Cell.getValue(DATA)
If Cell = "" Then
MsgBox (" DATI INCOMPLETI")
End
End If
end sub
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
