OpenOffice宏計數器幫助請

Question

我在OpenOffice中有一個電子表格，我需要添加一個宏到基本上只計算一定數量。我更喜歡使用Python，因爲我最熟悉它，但是我沒有將它應用於OpenOffice中的宏的經驗。

這段代碼在Python的GUI正常工作：

---

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