如何使用 AppleScript 保存为 excel 文件

Question

我想使用 Excel 工作簿(.xlsx) 格式在同一文件夹中另存为 Excel 文件，而不覆盖打开的文档

输入文件类型 --> .xls

输出文件类型 --> .xlsx

告诉应用程序“Finder”

set theWorkbookFile to (choose file with prompt "Select Excel file to process:" of type {"xls", "xlsx"} without invisibles)
set theWorkbookPath to theWorkbookFile as Unicode text


tell application "Microsoft Excel"
    activate
    open theWorkbookFile
    set myBorders to {border top, border bottom, border left, border right}
    tell active workbook to tell active sheet
        
        tell used range to set {rowsCount, columnsCount} to {count of rows, count of columns}
        
        repeat with rowValue from 1 to rowsCount
            
            set theCell to cell ("A1" & ":K" & rowValue)
            repeat with i from 1 to 4
                set theBorder to get border theCell which border (item i of myBorders)
                set weight of theBorder to border weight thin
            end repeat
        end repeat
        repeat with rowValueColor from 1 to rowsCount
            
            
            tell interior object of range ("B1" & ":B" & rowValueColor) of active sheet
                set color to {255, 242, 204}
            end tell
            tell interior object of range ("D1" & ":D" & rowValueColor) of active sheet
                set color to {255, 242, 204}
            end tell
            tell interior object of range ("H1" & ":H" & rowValueColor) of active sheet
                set color to {255, 242, 204}
            end tell
            tell interior object of range ("I1" & ":I" & rowValueColor) of active sheet
                set color to {255, 242, 204}
            end tell
        end repeat      
        
        
        (*
        tell application "System Events"
            keystroke "s" using {shift down, command down} -- shift-command-left
            
        end tell
        *)
                
        
    end tell
end tell

说完

Answer 1

您为什么要使用 GUI 脚本？ Excel 的 AppleScript 界面非常广泛，尽管一团糟。我不知道它在新版本中是否有所改进，但传统上你会像这样使用save workbook as 命令：

set xlsxPath to "/Users/FOO/test.xlsx"

-- very old apps may not accept POSIX file values or POSIX path strings, requiring long-obsoleted HFS paths instead
set hfsPath to xlsxPath as POSIX file as string

tell application "Microsoft Excel"
    activate
    tell workbook 1
        save workbook as filename hfsPath file format Excel XML file format
    end tell
end tell

（没有最新版本来查看它是否已更改，但希望可以帮助您入门。）

Answer 2

终于有了分隔符：这是使用文件提示符将文档保存在同一文件夹中的代码。

告诉应用程序“Finder”

set theWorkbookFile to (choose file with prompt "Select Excel file to process:" of type {"xls", "xlsx"} without invisibles)
set theWorkbookPath to theWorkbookFile as Unicode text

--text delimiter saving a document inside same path

set saveTID to AppleScript's text item delimiters
set AppleScript's text item delimiters to {":"}
set folderPath to (text 1 thru text item -2 of theWorkbookPath) & ":"
set AppleScript's text item delimiters to saveTID


set theOutputFilePath to folderPath & "Output.xlsx"




tell application "Microsoft Excel"
    activate
    open theWorkbookFile
    set myBorders to {border top, border bottom, border left, border right}
    tell active workbook to tell active sheet
        
        tell used range to set {rowsCount, columnsCount} to {count of rows, count of columns}
        
        repeat with rowValue from 1 to rowsCount
            
            set theCell to cell ("A1" & ":K" & rowValue)
            repeat with i from 1 to 4
                set theBorder to get border theCell which border (item i of myBorders)
                set weight of theBorder to border weight thin
            end repeat
        end repeat
        repeat with rowValueColor from 1 to rowsCount
            
            
            tell interior object of range ("B1" & ":B" & rowValueColor) of active sheet
                set color to {255, 242, 204}
            end tell
            tell interior object of range ("D1" & ":D" & rowValueColor) of active sheet
                set color to {255, 242, 204}
            end tell
            tell interior object of range ("H1" & ":H" & rowValueColor) of active sheet
                set color to {255, 242, 204}
            end tell
            tell interior object of range ("I1" & ":I" & rowValueColor) of active sheet
                set color to {255, 242, 204}
            end tell
        end repeat
        
        
    end tell
    save active workbook in theOutputFilePath as Excel XML file format
    close workbooks
    display alert "Processed Completed"
end tell

说完