代码之家  ›  专栏  ›  技术社区  ›  Crezzer7

VB-将Outlook日历导出到Excel,包括“会议组织者”

  •  0
  • Crezzer7  · 技术社区  · 10 年前

    我有一段很长的代码,可以将Outlook日历中的信息提取到Excel文件中,用户只需选择一个日期范围即可,但这对一个用户来说同样有用,如果有多个用户,那么我需要某种方法来提取“MeetingOrganizer”,就像使用“导入/导出”向导将其提取到CSV文件时所调用的那样,然而,我无法确定我需要添加什么,以下是我需要添加的相关代码,感谢您提供的任何帮助:

    'Write Excel Column Headers
                With excWks
                    .Cells(1, 1) = "Subject"
                    .Cells(1, 2) = "Location"
                    .Cells(1, 3) = "MeetingOrganizer" 'Does not work
                    .Cells(1, 4) = "StartDate"
                    .Cells(1, 5) = "FinishDate"
                    .Cells(1, 6) = "StartTime"
                    .Cells(1, 7) = "FinishTime"
                    .Cells(1, 8) = "Hours"
                End With
    
    
    
    > xcWks.Cells(lngRow, 1) = olkApt.Subject
    >                     excWks.Cells(lngRow, 2) = olkApt.Location
    >                     excWks.Cells(lngRow, 3) = olkApt.MeetingOrganizer 'Does not work
    >                     excWks.Cells(lngRow, 4) = Format(olkApt.Start, "mm/dd/yyyy")
    >                     excWks.Cells(lngRow, 5) = Format(olkApt.End, "mm/dd/yyyy")
    >                     excWks.Cells(lngRow, 6) = Format(olkApt.Start, "hh:nn ampm")
    >                     excWks.Cells(lngRow, 7) = Format(olkApt.End, "hh:nn ampm")
    >                     excWks.Cells(lngRow, 8) = DateDiff("n", olkApt.Start, olkApt.End) / 60
    >                     excWks.Cells(lngRow, 8).NumberFormat = "0.00"
    

    我最想知道的是会议组织者的具体名字。所以,正如你所看到的,地点和主题是两个明显的例子,无论我尝试什么,我似乎都不知道在哪里,希望有人已经解决了这个问题。。。

    谢谢你的帮助

    1 回复  |  直到 10 年前
        1
  •  0
  •   Crezzer7    10 年前

    知道了:

        .Cells(1, 4) = "User"
    
        excWks.Cells(lngRow, 4) = strLst