View Single Post

Member Since: Jul 12, 2011
Posts: 2
TSMIIINOLA is on a distinguished road

TSMIIINOLA is offline
set theFiles to choose file with multiple selections allowed
set theCount to number of items in theFiles
repeat with i from 1 to theCount
tell application "Microsoft Excel"
set theCells to value of range "a1:a71" of active sheet
end tell
repeat with onecell in theCells

tell application "Finder"

set name of file (item i of theFiles) to (item 1 of onecell)

end tell
end repeat
end repeat
QUOTE Thanks