2014-09-28 60 views
-1

我在OpenOffice中有一個電子表格,我需要添加一個宏到基本上只計算一定數量。我更喜歡使用Python,因爲我最熟悉它,但是我沒有將它應用於OpenOffice中的宏的經驗。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電子表格中工作?

回答

0

想通了......

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