Простое решение, выберите лист и запустите скрипт:
set destinationFolder to (path to documents folder as text) & "folder_1:"
tell application "Microsoft Excel"
save as active sheet filename (destinationFolder & "dataworld.pdf") file format PDF file format
end tell