Repeat/loop help

Question

Hey everyone,
I have an Excel file that has 2 columns - A=date B=event. It's really long, and I was looking for ways to send this info to iCal easily. I'm pretty new to programming (mainly AS3), and this is what I've come up with:
tell application "Microsoft Excel"
repeat with i from 1 to 856
set calDate to value of (cell i of range ("A1:A" & i))
set calTitle to value of (cell i of range ("B1:B" & i)) as string
end repeat
end tell
tell application "iCal"
activate
set theCal to make new calendar at end of calendars with properties {title:"Calendar Title"}
tell theCal
set theEvent to make new event at end of events with properties {start date:calDate, summary:calTitle, allday event:true, status:confirmed}
end tell
end tell
This returns 1 event in iCal, but I need 856 events. Can I add the loopVariable to calDate & Title in some way like this so the script would store 856 calDates i could pass to iCal:
repeat with i from 1 to 856
set calDate(i) to value of (cell i of range ("A1:A" & i))
set calTitle(i) to value of (cell i of range ("B1:B" & i)) as string
end repeat
Thanks for the help

Answer 1

Camelot wrote:
I just don't know how to make calDate and calTitle arrays that hold all the data. suggestion?
That's trivial:
tell application "Microsoft Excel"
  set calDates to value of cells of range "A1:A856"
  set calTitles to value of cells of range "B1:B856"
end tell
Now you can iterate through those in iCal:
tell application "iCal"
  set theCal to (make new calendar at end of calendars with properties {Title: "Old Testament"}
  tell theCal
    repeat with i from 1 to (count calDates)
      set thisDate to item i of calDates
      set thisTitle to item i of calTitles
      set theEvent to make new event at end of events with properties {start date : thisDate, summary: thisTitle, allday event: true, status: confirmed}
    end repeat
  end tell
end tell
actually this throws an error:
iCal got an error: AppleEvent handler failed.