Q: Import data from Excel to iCal?

I'm delighted you found it, 'cos without a copy of Office 2011 I would have been struggling. Don't be too free with the beer offers - I've cousins in Chicago (who hasn't!) that I might pop over to visit.

i could use some help doing the same process. I make a weekly schedule on excel for my job. it contains names, days of the week and start and end time. I would like to automatically send to ical and have events created for me. Im not sure what my spreadsheet needs to llok like in order to work with ical..help?

Look in the comments at the start of the script posted back in June. If you are using this script, you should change the line "set TheCalendar to FindInList(Chosen, CalList)" to "set TheCalendar to FindInList(item 1 of Chosen, CalList)"

Thanks - that is VERY useful!

BTW I couldn't find the cell format you mentioned but used, 'Custom' 'dd/mm/yyyy hh:mm'. This worked perfectly.

What'll you have to drink?

Glad it helped. Coffee, thanks!

Hi,

Thanks so much for the script it was running fine up until it asked me to have title and start columns. I fixed this then tried again but for some reason it didn't work.

Here is what the spreadsheet looked like.

Also I was wondering if there was any way to import the priority and reminders using the spreadsheet.

Thanks,

The heading on your 2nd column should be Start Date. Or you could modify the script to just look for the word Start.

By reminders you possibly mean what my version of iCal calls "To Dos". Yes, you could modify the script to make these instead of events, and assign them a priority.

Quick question is there a way to reverse the screen on your mac or mirror it.

Hello!

This was just what i did needed too! But can anyone help to update that script so that i can add there allso "ALL DAY" event? There was some scripts about it where "ALL DAY" event where marked in exel colum TRUE / FALSE.

Here is thet script with TITLE, START and END colums...

on open DroppedFile

          tell application "Microsoft Excel"

  open DroppedFile

                    set UsedCells to value of used range of sheet 1

  quit --remove this if Excel sholud stay open

          end tell

          set SummaryCol to FindInList("Title", item 1 of UsedCells)

          set StartCol to FindInList("Start", item 1 of UsedCells)

          set EndCol to FindInList("End", item 1 of UsedCells)

          tell application "Calendar"

                    set CalList to title of every calendar

          end tell

          set Chosen to choose from list CalList with prompt "Choose calender for the new events"

          if Chosen is not false then

                    set TheCalendar to FindInList(Chosen, CalList)

                    if (SummaryCol > 0) and (StartCol > 0) and (EndCol > 0) then --REQUIRE Title, Start and End

                              set DescripCol to FindInList("Description", item 1 of UsedCells) --look for additional items

                              set LocCol to FindInList("Location", item 1 of UsedCells)

                              if (count of item 1 of UsedCells) > 1 then --there are some data rows

                                        set UsedCells to rest of UsedCells

                                        repeat with AnEvent in UsedCells

                                                  set theSummary to (item SummaryCol of AnEvent)

                                                  set TheStart to (item StartCol of AnEvent)

                                                  set TheEnd to (item EndCol of AnEvent)

                                                  tell application "Calendar"

                                                            tell calendar TheCalendar

                                                                      set CalEvent to make new event at end of events with properties {summary:theSummary, start date:TheStart, end date:TheEnd}

                                                                      if LocCol > 0 then set location of CalEvent to item LocCol of AnEvent

                                                                      if DescripCol > 0 then set description of CalEvent to item DescripCol of AnEvent

                                                            end tell --calendar

                                                  end tell --iCal

                                        end repeat --AnEvent

                              end if --are datarows

                    else

                              display dialog "Spreadsheet must have Title, Start, and End columns" with icon stop

                    end if --missing headers

          end if --no calendar selected

end open

on FindInList(Needle, HayStack)

          set FoundAt to 0

          if Needle is in HayStack then

                    repeat with FoundAt from 1 to count of HayStack

                              if Needle is item FoundAt of HayStack then exit repeat

                    end repeat

          end if

          return FoundAt

end FindInList

Hey there!

I tried it and unfortunately it saved the calendar as a Birthday and I can't delete it as it not associated with a contact..

I forgot to say thanks!

Your script seems really good but Im a newbie an cannot find the mistake that makes it transfer the schedule into a birthday calendar even tho its not the one i chose. But at least I know how to delete it now