Tema: Re: Dar vienas Excel klausimas
Autorius: Grzegorz Brzęczyszczykiewicz
Data: 2021-02-11 23:15:40
def zyzai_calc():
    import uno
    from com.sun.star.table.CellContentType import EMPTY, VALUE, TEXT, FORMULA

    doc = XSCRIPTCONTEXT.getDocument()
    names = doc.Sheets.ElementNames
    tSheetName = 'Rezultatai'
    
    sheet = doc.CurrentController.ActiveSheet
    
    if not(tSheetName in names):
      tSheet = doc.Sheets.insertNewByName(tSheetName, 0) # make a new sheet
      
    tSheet = doc.Sheets[tSheetName]
    tSheet.IsVisible = True
    
    row = 1
    column = 1
    tRow = 1
    tColumn = 0
    
    cell = sheet[row,column]
    tCell = tSheet[tRow, tColumn]
    tCellName = tSheet[tRow, tColumn+1]
    
    while (cell.Type != EMPTY) :
        while (cell.Type != EMPTY) :
            if (int(cell.Value) > 0) :
                for i in range(int(cell.Value)) :
                  tCell.setString(sheet[row,0].getString())
                  tCellName.setString('{}'.format(sheet[0,column].getString()))
                  tRow += 1
                  tCell = tSheet[tRow, tColumn]
                  tCellName = tSheet[tRow, tColumn+1]
            column += 1
            cell = sheet[row,column] # advance column
        column = 1
        row += 1
        cell = sheet[row,column] # advance row
    return
3Dastronomyagricultureaudioautosautos.audiautos.audioautos.binariesautos.bmwautos.clubautos.fordautos.hondacrxautos.japanautos.mercedesautos.opelautos.sportautos.volvoautos.vwaviaavia.binariesbankcardsbinariesbooksbuildingcinemacommercecomp.hardwarecomp.softwarecomp.lietuvinimascomp.networksculturedarbas.ieskaudarbas.siulaudesigneconomicselectronicsfaunafauna.aquafauna.binariesfishingflorafotofoto.binariesgamesgames.csgames.onlinegsmgurmanaihumourhumour.binariesinternetlawmicrosoftmotomusicmusic.binariesmusic.instrumentsmusic.LT.binariesnavigacijaphppoliticsprogrammingrpgsportstudyingsveikatatalktesttranslationtransportationtraveltravel.binariestvunixvideovideo.binarieswatersportswwwwww.flashpdaautos.supermama.ltmobiledarbasretro.3Dretro.agricultureretro.astronomyretro.audioretro.autosretro.autos.audiretro.autos.audioretro.autos.binariesretro.autos.bmwretro.autos.clubretro.autos.fordretro.autos.hondacrxretro.autos.japanretro.autos.mercedesretro.autos.opelretro.autos.sportretro.autos.supermamaretro.autos.supermama.ltretro.autos.volvoretro.autos.vwretro.aviaretro.avia.binariesretro.bankcardsretro.beosretro.binariesretro.booksretro.buildingretro.cinemaretro.commerceretro.compretro.comp.hardwareretro.comp.lietuvinimasretro.comp.networksretro.comp.softwareretro.cultureretro.darbasretro.darbas.ieskauretro.darbas.siulauretro.designretro.economicsretro.electronicsretro.e-vejasretro.faunaretro.fauna.aquaretro.fauna.binariesretro.fishingretro.floraretro.fotoretro.foto.binariesretro.gamesretro.games.csretro.games.onlineretro.games.rpgretro.genealogijaretro.gsmretro.gurmanairetro.humourretro.humour.binariesretro.internetretro.YZFretro.YZF.nebukretro.YZF.nebuk.netikintisretro.YZF.nebuk.netikintis.bukretro.YZF.nebuk.netikintis.buk.tikintisretro.lawretro.microsoftretro.mobileretro.motoretro.musicretro.music.binariesretro.music.instrumentsretro.music.LTretro.music.LT.binariesretro.navigacijaretro.newsretro.news.taisyklesretro.newuserretro.pdaretro.phpretro.politicsretro.programmingretro.rpgretro.sportretro.studyingretro.sveikataretro.talkretro.translationretro.transportationretro.travelretro.travel.binariesretro.tvretro.unixretro.videoretro.video.binariesretro.watersportsretro.wwwretro.www.flashdiylt.rkm.news.announcelt.rkm.news.newuser