Я скопировал это из ответа, полученного из другой ветки. Я пытаюсь преобразовать ~ 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
Все это делает, это открывает диалоговое окно и ничего не делает. Несмотря на то, что это капля, ничего не происходит, когда я перетаскиваю в нее файл.