Macros/Calc/ba022/es

This page is a translated version of the page Macros/Calc/ba022 and the translation is 7% complete.

TDF LibreOffice en español Document Liberation Project Blogs comunitarios Weblate Nextcloud Redmine Preguntas y respuestas Donar

Other languages:

Summary

This page provides a LibreOffice Basic macro procedure that creates a new database range referencing $Sheet1.$A$1:$F$10. It is an example drawn from Chapter 13 ("Calc as a Database") of the 7.0 Calc Guide.

Description

In a macro, a database range is created, accessed, and deleted using the DatabaseRanges service. This service has many of the same methods as the NamedRanges service, but lacks the addNewFromTitles method. DatabaseRanges also uses a reduced version of the addNewByName method that lacks arguments for a relative base address and range type

:

addNewByName(Name, Range): Adds a new database range to the current document.

As an example of creating a range using this method, the macro below creates a database range named MyName and automatically applies auto filters to each of the range’s columns:

Code

Sub AddNewDatabaseRange()
  Dim oRange '<span lang="en" dir="ltr" class="mw-content-ltr">DatabaseRange object.</span>
  Dim oAddr  '<span lang="en" dir="ltr" class="mw-content-ltr">Cell address range for the database range.</span>
  Dim oSheet '<span lang="en" dir="ltr" class="mw-content-ltr">First sheet, which will contain the range.</span>
  Dim oDoc   '<span lang="en" dir="ltr" class="mw-content-ltr">Reference ThisComponent with a shorter name.</span>

  oDoc = ThisComponent
  If NOT oDoc.DatabaseRanges.hasByName("MyName") Then
    oSheet = ThisComponent.getSheets().getByIndex(0)
    oRange = oSheet.getCellRangeByName("A1:F10")
    oAddr = oRange.getRangeAddress()
    oDoc.DatabaseRanges.addNewByName("MyName", oAddr)
  End If
  oRange = oDoc.DatabaseRanges.getByName("MyName")
  oRange.AutoFilter = True
End Sub

This Calc spreadsheet contains the above LibreOffice Basic code.