OpenOffice macro counter help please

Question

У меня есть электронная таблица в OpenOffice, что мне нужно добавить макрос, который в основном просто подсчитывается до определенного числа. Я предпочитаю использовать Python, как я его больше всего знаю, но у меня нет опыта применения этого макроса в OpenOffice.

Этот код прекрасно работает в GUI Python:

---

import time 

a = 0 
b = 500 

while a < b: 
    a = a + 1 
    print(a) 
    time.sleep(2) 

---

Электронная таблица содержит список элементов, пронумерованных 1-50. Выбор основан на количестве, введенном в ячейку E5. Я хотел бы, чтобы макрос «подсчитывал» в ячейке E5, чтобы каждый элемент циклически переключался по формулам выбора.

Я считаю, что могу кодировать то, что мне нужно, но как мне получить код Python для работы в электронных таблицах OpenOffice Calc?

Answer 1

Фигурные это ...

Sub Main 

Dim oDoc As Object 
Dim oSheet As Object 

oDoc=ThisComponent 
oSheet=oDoc.Sheets.getByName("Sheet1") 
oCell=oSheet.getCellRangeByName("d20") 
a=0 

Do 
a=a+1 
oCell.SetString(a) 
Wait 2500 
Loop While a < 10 

End Sub