Попытка использовать AppleScript для преобразования .xls и .xlsx в .txt (с разделителями табуляции), требует исправления

Question

Я скопировал это из ответа, полученного из другой ветки. Я пытаюсь преобразовать ~ 300 файлов .xls и .xlsx в разделитель табуляции. Они все в одной папке. Если кто-нибудь знает лучший способ, пожалуйста, дайте мне знать.

property type_list : {"XLS6", "XLS7", "XLS8", "XLSX"}
property extension_list : {"xls", "xlsx"}


on open these_workbooks
repeat with k from 1 to the count of these_workbooks
    set this_item to item k of these_workbooks
    set the item_info to info for this_item

    --this if statement tests to make sure the items you're converting are Excel spreadsheets and not folders or aliases
    if (folder of the item_info is false) and (alias of the item_info is false) and ((the file type of the item_info is in the type_list) or the name extension of the item_info is in the extension_list) then

        tell application "Finder" to open this_item

        tell application "Microsoft Excel"
            --this just tacks on ".txt" to your file name
            set workbookName to (name of active workbook & ".txt")
            --save the current open workbook as a tab-delimited text file
            tell active workbook to save workbook as filename workbookName file format text Mac file format
            close active workbook saving no
        end tell
    end if
end repeat
end open

on run
    display dialog "Drop Excel files onto this icon."
end run

Все это делает, это открывает диалоговое окно и ничего не делает. Несмотря на то, что это капля, ничего не происходит, когда я перетаскиваю в нее файл.

Answer 1

Мы снова встречаемся. :)

Вырежьте и вставьте скрипт в новое окно в редакторе AppleScript. Когда вы сохраните его, в нижней части окна, где написано "Формат файла", выберите "Приложение". Это включит функцию перетаскивания.