Applescript to read Excel sheet

Question

Hi All,
I'm a learner of applescript and I have a problem to solve so any help will be very appreciated.
I have thousands of photographies in a folder called "images0". I just want to organize this photos by customer (every customer has its own folder)
I have an Excel sheet with this information: column A: CustomerId / column B: photography name / and column C: name of folder (customer)
How can I read this Excel sheet to make an applescript that automatically move every picture to its correct folder?
Thank you very much to everybody!
Alex

Answer 1

Hi all
I have reached to create what I asked for by taking examples from internet. I have done it step by step following my needs and for sure there is a better and easy way to do it but it works anyway!
Now I want to create a repeat (loop) for that script but I do not reach to make it work!
I have done the script with this features:
1. Open and filter an Excel file with a given value through a dialog box
2. Select the rows filtered and create a txt file with these content on it (the content are files names)
3. Create a folder with the same name as the given value in step 1
4. Move files from the source folder to the destination folder
Anyone could help me please?
Here you are the script:
property c1 : "A"
property r1 : 1
tell application "Microsoft Excel"
  --open workbook workbook file name "Macintosh HD:Users:Alex:Desktop:Libro2.xlsx"
  activate object worksheet "Hoja1"
  set mycriteria to text returned of (display dialog "Num client" default answer "" buttons {"OK"} default button 1)
  autofilter range range "A:B" field "1" criteria1 mycriteria
  set {tRow, tCol, lastCell} to {first row index, first column index, last cell} of range object of autofilter object of active sheet
  select range (((get address of cell (tRow + 1) of column (tCol + 1))) & ":" & (get address of lastCell))
  copy range selection
  tell application "Finder"
  --set theDestinationFolder to "Macintosh HD:Users:Alex:Desktop" --choose folder
  set source_folder to "Macintosh HD:Users:Alex:Desktop:Images:FotoFinder2007:images0" as alias
  --make new folder at theDestinationFolder with properties {name:mycriteria as string}
  tell application "TextEdit"
  open file "Macintosh HD:Users:Alex:Desktop:direcciones.txt"
  activate
  tell application "System Events"
  keystroke "a" using {command down}
  keystroke "v" using {command down}
  keystroke "s" using {command down}
  end tell
  tell application "Finder"
  set thefoldername to mycriteria
  set this_folder to "Macintosh HD:Users:Alex:Desktop:Fotofinder"
  set theFolder to (make new folder at this_folder with properties {name:thefoldername})
  set source_folder to "Macintosh HD:Users:Alex:Desktop:Images:FotoFinder2007:images0" as alias
  set the_files to every paragraph of (read (file "Macintosh HD:Users:Alex:Desktop:direcciones.txt"))
  repeat with this_file in the_files
  try
  move item this_file of source_folder to theFolder --with properties {name:mycriteria as string}
  end try
  end repeat
  end tell
  end tell
  end tell
end tell
(*set theDestinationFolder to desktop --choose folder
tell application "Finder"
  --repeat with theIncrementValue from 1 to 10
  make new folder at theDestinationFolder with properties {name:mycriteria as string}
  --end repeat
end tell*)