Applescript Excel 2016保存为CSV

下面的Applescript工作正常，Excel 2011中没有任何问题。该脚本打开一个Excel文件，删除一列并删除任何“，”或“;” 从Excel文件中，然后将其另存为CSV文件。 我在Excel 2016中遇到的问题是在操作后将其另存为CSV文件的最后一个部分。 没有什么是保存，我没有得到任何错误。

tell application "Microsoft Excel" activate open theWorkbookFile #open the xls file set theWorksheetname to name of worksheet 1 of active workbook set theWorksheet to worksheet 1 of active workbook activate object theWorksheet tell application "System Events" to set visible of process "Microsoft Excel" to false #Remove the first column tell theWorksheet delete range column 1 shift shift to left try ##remove any "," and ";" from the product description and replace it with a " " instead. replace (range "B:B" of worksheet "Sheet1") what "," replacement " " replace (range "B:B" of worksheet "Sheet1") what ";" replacement " " end try end tell #Set the temp csv file to the name of of the Excel sheet followed by -TMP.csv set theFile to theWorksheetname & "-TMP" & ".csv" as text save as theWorksheet filename theFile file format CSV file format with overwrite #save the file in csv format and overwrite if it exist close active workbook saving no #close the csv file without prompting user to save again end tell