Tentando usar o AppleScript para converter .xls e .xlsx em .txt (Delimitado por tabulação), precisa de conserto

Question

Eu copiei isso de uma resposta que recebi de outro tópico. Eu estou tentando converter ~ 300. Xls e arquivos .xlsx para delimitado por tabulações. Eles estão todos na mesma pasta. Se alguém souber de uma maneira melhor, por favor me avise.

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

Tudo isso abre uma caixa de diálogo e não faz nada. Mesmo que seja um droplet, nada acontece quando eu arrasto um arquivo para ele.

    

Answer 1

Nos encontramos novamente. :)

Recorte e cole o script em uma nova janela no Editor AppleScript. Quando você salvá-lo, na parte inferior da janela onde diz "Formato de arquivo", escolha "aplicativo". Isso ativará o recurso de arrastar e soltar.