page3
LibOBasic-3-Calc-Flat-A4-pt-br-v111..ods
3 de 8
Planilhas (Sheets)
Acesso a planilhas
Trabalhar com objetos Planilhas:
Planilha ativa
MySheet = oDoc.CurrentController.ActiveSheet
Listar planilhas
AllSheets = oDoc.Sheets
Número de planilhas
NumberSheets = oDoc.Sheets.Count
MySheet = oDoc.Sheets(index)
Objeto de planilha (por nome)
MySheet = oDoc.Sheets.getByName("SheetName")
Verificar existència (nome)
Exist = oDoc.Sheets.hasByName("SheetName")
Ìndice de planilha
Index = MySheet.RangeAddress.Sheet
Modificar planilhas
oDoc.Sheets.insertNewByName(Name, p)
Excluir uma planilha
oDoc.Sheets.removeByName("SheetName")
Duplicar uma planilha
oDoc.Sheets.copyByName("SourceName","TargetName", p)
para a posição p (base 0)
Mover planilha
oDoc.Sheets.moveByName(SheetName, p)
para a posição p (base 0)
Gerenciar planilhas
MySheet é um objeto de pasta.
Ativar planilha
oDoc.CurrentController.ActiveSheet = MySheet
Proteger planilha
MySheet.protect(password)
(senha pode estar vazia)
Desproteger planilha
MySheet.unprotect(password)
Cor da guia
MySheet.tabColor = RGB(255, 255, 0)
Vincular uma folha
MySheet.link(URL, "", "Text - txt - csv (StarCalc)", _
Filter, com.sun.star.sheet.SheetLinkMode.VALUE)
Quebrar um link
MySheet.setLinkMode(com.sun.star.sheet.SheetLinkMode.NONE)
Encontrar a última linha / coluna usada
Dim oCursor As Object' cursor na célula
Dim oRange As Object' o alcance usado
Dim oRow As Long
Dim oCol As Long
oCursor = MySheet.createCursorByRange(MySheet.getCellRangeByName("A1"))
Cur.gotoEndOfUsedArea(True)
oRange = MySheet.getCellRangeByName(oCursor.AbsoluteName)
oRow = Range.RangeAddress.EndRow
oCol = Range.RangeAddress.EndColumn
O objeto Doc aponta para o documento (ex:
oDoc=ThisComponent
).
Objeto de planilha (pelo índice
[base 0])
Adicione planilha chamada
Name e posição p (base 0)
Link para um arquivo
(ex: CSV)
MySheet
é o objeto de pasta a ser explorado.
Row
e
Col
são informações para buscar.