[OpenOffice Calc macro] recupero dati da tutti i fogli presenti

[deleted_110]

mai programmato in openoffice basic.

Ad ogni modo conosci almeno i nomi dei fogli con le distinte? Io ho ipotizzato che si chiamassero 'distinta' 'pippo' e 'pluto'

io quindi farei così

Function Prova
Doc = Thiscomponent
Sheet = Doc.Sheets
row = 14
distinta = Doc.sheets.getbyname("distinta")   
for each sheet in Doc.Sheets
    if(sheet.name <> "distinta" and sheet.name <> "pippo"  and sheet.name <> "pluto") Then
        valore =  sheet.getCellByPosition(1, 6).String
        distinta.getCellByPosition(0, row).String = valore
        row = row + 1
    endif
next sheet
NomeFoglio=Sheet.name
End function