Tekst źródłowy strony Arkusze

<div style="text-align:right; font-size: 130%; font-style: italic; font-weight: bold;">22.03.2020</div>







== Uchwyt do arkusza przez indeks, nazwa arkusza i zmiana nazwy arkusza ==

 <span style="color: green"><b><span style='color:#1f1c1b;'>Sub </span></b>Arkusz1()
     <b><span style='color:#1f1c1b;'>Dim</span></b> sName <b><span style='color:#1f1c1b;'>as</span></b> <span style='color:#000080;'>String</span>
     <b><span style='color:#1f1c1b;'>Dim</span></b> oSht  <b><span style='color:#1f1c1b;'>as</span></b> <span style='color:#000080;'>Object</span>
     <span style='color:#707070;'>'uchwyt do arkusza przez indeks; w tym przypadku uzyskujemy uchwyt do pierwszego arkusza:</span>
     oSht = ThisComponent.getSheets().getByIndex(<span style='color:#ff0000;'>0</span>)
     oSht.Name = <span style='color:#ff0000;'>&quot;Test&quot;</span> <span style='color:#707070;'>'zmiana nazwy arkusza</span>
     sName = oSht.getName() <span style='color:#707070;'>'uzyskanie nazwy arkusza</span>
     MsgBox sName
 <b><span style='color:#1f1c1b;'>End Sub</span></b></span>




== Uchwyt do arkusza przez nazwę, uaktywnienie arkusza ==

 <span style="color: green"><b><span style='color:#1f1c1b;'>Sub </span></b>Arkusz2()
     <b><span style='color:#1f1c1b;'>Dim</span></b> sName <b><span style='color:#1f1c1b;'>as</span></b> <span style='color:#000080;'>String</span>
     <b><span style='color:#1f1c1b;'>Dim</span></b> oSht <b><span style='color:#1f1c1b;'>as</span></b> <span style='color:#000080;'>Object</span>
     oSht = ThisComponent.getSheets().getByName(<span style='color:#ff0000;'>&quot;Test&quot;</span>) <span style='color:#707070;'>'uchwyt do arkusza przez nazwę</span>
     ThisComponent.CurrentController.setActiveSheet( oSht ) <span style='color:#707070;'>'mając uchwyt, możemy uczynić arkuszem aktywnym</span>
 <b><span style='color:#1f1c1b;'>End Sub</span></b></span>




== Uchwyt do aktywnego arkusza, liczba arkuszy w skoroszycie, uaktywnienie ostatniego arkusza ==

 <span style="color: green"><b><span style='color:#1f1c1b;'>Sub </span></b>Arkusz3()
     <b><span style='color:#1f1c1b;'>Dim</span></b> n <b><span style='color:#1f1c1b;'>as</span></b> <span style='color:#000080;'>Long</span>
     <b><span style='color:#1f1c1b;'>Dim</span></b> oSht <b><span style='color:#1f1c1b;'>as</span></b> <span style='color:#000080;'>Object</span>
     oSht = ThisComponent.getCurrentController().getActiveSheet() <span style='color:#707070;'>'uchwyt do aktywnego arkusza</span>
     MsgBox oSht.getName() <span style='color:#707070;'>'nazwa aktywnego arkusza</span>
     n = ThisComponent.getSheets().getCount() <span style='color:#707070;'>'liczba arkuszy</span>
     MsgBox n
     oSht = ThisComponent.getSheets().getByIndex(n - <span style='color:#ff0000;'>1</span>) <span style='color:#707070;'>'uchwyt do ostatniego arkusza</span>
     ThisComponent.CurrentController.setActiveSheet( oSht ) <span style='color:#707070;'>'uaktywnienie ostatniego arkusza</span>
 <b><span style='color:#1f1c1b;'>End Sub</span></b></span>




== Sprawdzanie, czy arkusz o podanej nazwie istnieje, wstawianie nowego arkusza, kasowanie arkusza ==

 <span style="color: green"><b><span style='color:#1f1c1b;'>Sub </span></b>Arkusz4()
     <b><span style='color:#1f1c1b;'>Dim</span></b> sNew, sOld <b><span style='color:#1f1c1b;'>as</span></b> <span style='color:#000080;'>String</span>
     sNew = <span style='color:#ff0000;'>&quot;NowyArkusz&quot;</span>
     sOld = <span style='color:#ff0000;'>&quot;StaryArkusz&quot;</span>
     <b><span style='color:#1f1c1b;'>If </span></b><b><span style='color:#000000;'>NOT</span></b> ThisComponent.getSheets().hasByName( sNew ) <b><span style='color:#1f1c1b;'>Then</span></b> <span style='color:#707070;'>'sprawdza czy arkusz o podanej nazwie już istnieje</span>
          ThisComponent.getSheets().insertNewByName( sNew, <span style='color:#ff0000;'>2</span> ) <span style='color:#707070;'>'wstawia nowy arkusz na pozycję 3 (z indeksem 2)</span>
     <b><span style='color:#1f1c1b;'>End If</span></b>
     <b><span style='color:#1f1c1b;'>If </span></b>ThisComponent.getSheets().hasByName( sOld ) <b><span style='color:#1f1c1b;'>Then</span></b> <span style='color:#707070;'>'sprawdza czy arkusz istnieje</span>
         ThisComponent.getSheets().removeByName( sOld ) <span style='color:#707070;'>'kasuje arkusz o wskazanej nazwie</span>
     <b><span style='color:#1f1c1b;'>End If</span></b>
 <b><span style='color:#1f1c1b;'>End Sub</span></b></span>



Przeglądając powyższe procedury zauważamy, że wygodnie jest zdefiniować obiekt:<br/>
&nbsp;&nbsp;<b>oSheets = ThisComponent.getSheets()</b><br/>
bo skraca to kod procedur i czyni zapis bardziej przejrzystym. Obiekt <b>oSheets</b> jest uchwytem do skoroszytu, czyli do zbioru wszystkich arkuszy w dokumencie.


== Wstawianie nowego arkusza, kopiowanie arkusza, kasowanie i przenoszenie arkusza ==
 <span style="color: green"><b><span style='color:#1f1c1b;'>Sub </span></b>Arkusz5()
     <b><span style='color:#1f1c1b;'>Dim</span></b> oSheets <b><span style='color:#1f1c1b;'>as</span></b> <span style='color:#000080;'>Object</span>
     oSheets = ThisComponent.getSheets()
     oSheets.insertNewByName(<span style='color:#ff0000;'>&quot;Nowy&quot;</span>, <span style='color:#ff0000;'>1</span>) <span style='color:#707070;'>'wstawia nowy arkusz na pozycję 2</span>
     MsgBox <span style='color:#ff0000;'>&quot;Nowy arkusz został wstawiony&quot;</span>
     oSheets.copyByName(<span style='color:#ff0000;'>&quot;Nowy&quot;</span>, <span style='color:#ff0000;'>&quot;Nowy-kopia&quot;</span>, <span style='color:#ff0000;'>2</span>) <span style='color:#707070;'>'tworzymy kopię arkusza &quot;Nowy&quot; i wstawiamy ją na pozycję 3</span>
     MsgBox <span style='color:#ff0000;'>&quot;Kopia arkusza została utworzona&quot;</span>
     oSheets.removeByName(<span style='color:#ff0000;'>&quot;Nowy&quot;</span>) <span style='color:#707070;'>'kasujemy arkusz o nazwie &quot;Nowy&quot;</span>
     MsgBox <span style='color:#ff0000;'>&quot;Arkusz został skasowany&quot;</span>
     oSheets.moveByName(<span style='color:#ff0000;'>&quot;Nowy-kopia&quot;</span>, <span style='color:#ff0000;'>0</span>) <span style='color:#707070;'>'przenosimy arkusz na pozycję pierwszą</span>
 <b><span style='color:#1f1c1b;'>End Sub</span></b></span>




== Polecane strony internetowe ==

Więcej informacji Czytelnik znajdzie na stronach:

[https://wiki.documentfoundation.org/Macros/Basic/Calc/Sheets Macros - Basic reference - Calc - Sheets]

[https://wiki.openoffice.org/wiki/Spreadsheet_common#Working_with_sheets Spreadsheet common – Working with sheets]

[https://wiki.openoffice.org/wiki/Documentation/BASIC_Guide/Structure_of_Spreadsheets The Structure of Spreadsheet Documents]








[[LibreOffice Calc – makra | <b>LibreOffice Calc – makra</b>]]&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;[[Henryk Dąbrowski | <b>Strona główna</b>]]









&nbsp;