![]() |
If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Search this Thread | Display Modes |
#1
|
|||
|
|||
![]()
Hello all,
I have been working on an Outlook-Excel calender export makro based on the well known Helen Feddema macro "Exporting Calendar Items to Excel". Thank you very much to Helen for a very intuitive and easy to use macro! I do, however have one question about possible Appointment.start and .end object variables: Is it possible to change the output of the start object to the date/ time? I would like to have the date and time output to 2 separate cells in excel. I would like to have something like this: Set rng = wks.Cells(i, j) If itm.start "" Then rng.value = itm.startdate j = j + 1 Set rng = wks.Cells(i, j) If itm.start "" Then rng.value = itm.starttime j = j + 1 Set rng = wks.Cells(i, j) If itm.End "" Then rng.value = itm.Endtime j = j + 1 Any help on this would be greatly appreciated. Thanks, Adam |
Ads |
#2
|
|||
|
|||
![]() Use the Format functon for that. Date=Format(itm.Start, "mm.dd.yyyy") Time=Format(itm.Start, "hh.nn.ss") -- Best regards Michael Bauer - MVP Outlook Synchronize Color Categories & Ensure that Every Item Gets Categorized: http://www.vboffice.net/product.html?id=2006063&cmd=detail&lang=en&pub=6 Am Thu, 29 Nov 2007 13:06:55 -0600 schrieb Adam Flippo: Hello all, I have been working on an Outlook-Excel calender export makro based on the well known Helen Feddema macro "Exporting Calendar Items to Excel". Thank you very much to Helen for a very intuitive and easy to use macro! I do, however have one question about possible Appointment.start and .end object variables: Is it possible to change the output of the start object to the date/ time? I would like to have the date and time output to 2 separate cells in excel. I would like to have something like this: Set rng = wks.Cells(i, j) If itm.start "" Then rng.value = itm.startdate j = j + 1 Set rng = wks.Cells(i, j) If itm.start "" Then rng.value = itm.starttime j = j + 1 Set rng = wks.Cells(i, j) If itm.End "" Then rng.value = itm.Endtime j = j + 1 Any help on this would be greatly appreciated. Thanks, Adam |
#3
|
|||
|
|||
![]()
Hi Michael,
thanks so much for your help! Take Care, Adam |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
Outlook 2007 recurring appointment error "Cannot open this item" | Kat Barnes | Outlook - Calandaring | 0 | October 22nd 07 09:42 PM |
Opening *.PST file: "Can't open this item. Outlook blocked access to this potentially unsafe item." | R2D2 | Outlook - General Queries | 1 | September 16th 07 08:14 AM |
"first day of the week" appointment item | eselk@surfbest.net | Add-ins for Outlook | 2 | January 29th 07 10:46 PM |
I do not have "Encoding" item in my "View" menu of Outlook 2003? | Baher | Outlook - Installation | 0 | June 20th 06 09:35 AM |
In Table View can I group by "Date" instead of "Start" | KLM | Outlook - Calandaring | 1 | January 11th 06 04:52 AM |