How to extract a all sheet name in libreoffice calc?

வினா
1

My libreoffice calc document contains more than 100 sheets. I want to get all the sheet name. I have tried (F5) navigator then drag option.Is there any other easy way available to extract all the sheet name?
Please help me to solve this issue.

2

Create a new sheet named “Sheet List” at the end of all your existing sheets. Post that, configure the given macro and execute it. You will get the all the sheet names in “Sheet List” sheet.

Sub ListSheetNames
   Dim oSheet As Object
   Dim oNewSheet As Object
   oNewSheet = ThisComponent.Sheets.getByName("Sheet List")
   If IsNull(oNewSheet) Then
      oNewSheet = ThisComponent.Sheets.getByName("Sheet1").copy(ThisComponent,ThisComponent.Sheets.getCount)
      oNewSheet.Name = "Sheet List"
   End If
   oRow = 0
   For Each oSheet In ThisComponent.Sheets
      oRow = oRow + 1
      oNewSheet.getCellByPosition(0,oRow).setString(oSheet.Name)
   Next
End Sub
2 Likes
3

ThankYou. It is working.

4

Could you please explain what is macro and why we are using this kind of code?
It is very new to me. Previously I had worked with Excel. Now only I have started using Libreoffice calc.

5

https://help.libreoffice.org/latest/lo/text/sbasic/shared/main0601.html?DbPAR=BASIC

இங்கே பார்க்கவும்.

1 Like
6

Thank you