如何使用AppleScript在excel中将单元格值递增1？

tell application "Microsoft Excel"
    activate
end tell

tell application "Microsoft Excel"
    set workbookName to name of active workbook
    set worksheetName to name of active sheet
end tell

tell application "Microsoft Excel"
    set cellValue to value of range "A1" of sheet worksheetName of workbook workbookName
    set incrementedValue to cellValue + 1
    set value of range "A1" of sheet worksheetName of workbook workbookName to incrementedValue
end tell