将VBA格式$转换为VBS

debugcn 发表于 Dev

普拉莫·卡兰迪卡（Pramod Karandikar）

我正在使用一个简单的VBA来显示Outlook日历中明天的会议。想法是安排这个VBA每天晚上安排，以显示第二天的约会，以防万一我错过了在离开办公室之前检查约会的机会。

为了测试代码，我将其编写为MS Excel宏。这是完整的代码：

Sub getMyAppointmentsForTomorrow()
    Dim objOutlook
    Dim objNameSpace
    Dim objFolder
    Dim MyItems
    Dim CurrentAppointment
    Dim meetingDetails
    Dim dateTomorrowWihoutTime

    Dim restrictionString

    Const olFolderCalender = 9

    Set objOutlook = CreateObject("Outlook.application")
    Set objNameSpace = objOutlook.GetNameSpace("MAPI")
    Set objFolder = objNameSpace.GetDefaultFolder(olFolderCalender)
    Set olItems = objFolder.items
    olItems.Sort "[Start]"
    olItems.IncludeRecurrences = True

    myStart = Date
    myEnd = DateAdd("d", 3, myStart)

    StartDate = Format$(Date, "mmm-dd-yyyy")
    EndDate = Format$(DateAdd("d", 1, StartDate), "mmm-dd-yyyy")

    strRestriction = "[Start] >= '" & _
    Format$(myStart, "mmm-dd-yyyy") _
    & "' AND [End] <= '" & _
    Format$(myEnd, "mmm-dd-yyyy") & "'"
    Set oItemsInDateRange = olItems.Restrict(strRestriction)

    dateTomorrow = Format$(DateAdd("d", 1, StartDate), "mmm-dd-yyyy")
    dayAfterTomorrow = Format$(DateAdd("d", 2, StartDate), "mmm-dd-yyyy")

    For Each CurrentAppointment In oItemsInDateRange
        If CurrentAppointment.Start >= DateValue(dateTomorrow) And CurrentAppointment.Start <= DateValue(dayAfterTomorrow) Then
            meetingDetails = meetingDetails & CurrentAppointment.Subject & " " & CurrentAppointment.Start & vbNewLine
        End If
    Next
    MsgBox ("*** Tomorrow's Meetings ***" & vbNewLine & vbNewLine & meetingDetails)

End Sub

我需要将其作为独立文件运行。我试图将此文件保存为名为.vbs并运行它，但它显示错误Invalid Character的Format$。我也尝试将脚本嵌入到HTA文件中，但是遇到相同的错误。

有没有办法在独立文件中运行此代码？

麦克

' StartDate, EndDate, myStart, myEnd variables not needed; so, I removed them
' dateTomorrowWihoutTime variable is not being used; removed it
' dateTomorrow, dayAfterTomorrow are being used as Date Values; so, removed conversion to (and back from) string
' restrictionString is not being used; renamed to strRestriction which is being used.
' "Option Explicit" is needed at the top of the module (both VBA and VBScript) to enforce variable declaration; added it.
' Added some declarations needed
' Initiallized meetingDetails variable outside the For loop; just a matter of practice, not really needed in this case
' Added strMeetings to show additional meeting information in a slightly different format
' Works in Excel VBA and as VBScript without any changes
' Scope for improvement: Optionally send the message text to the default printer

Option Explicit

Sub getMyAppointmentsForTomorrow()
    Dim olItems
    Dim CurrentAppointment

    Dim dateTomorrow
    Dim dayAfterTomorrow

    Dim meetingDetails
    Dim strRestriction
    Dim strMeetings

    Const olFolderCalender = 9




    dateTomorrow = DateAdd("d", 1, Date)
    dayAfterTomorrow = DateAdd("d", 2, Date)

    Set olItems = CreateObject("Outlook.application").GetNameSpace("MAPI").GetDefaultFolder(olFolderCalender).items
    olItems.Sort "[Start]"
    olItems.IncludeRecurrences = True

    strRestriction = "([Start] >= '" & dateTomorrow & "') AND ([End] < '" & dayAfterTomorrow & "')"

    meetingDetails = ""
    strMeetings = ""
    For Each CurrentAppointment In olItems.Restrict(strRestriction)
        If (CurrentAppointment.Start >= dateTomorrow) And (CurrentAppointment.Start <= dayAfterTomorrow) Then
            meetingDetails = meetingDetails & CurrentAppointment.Subject & " " & CurrentAppointment.Start & vbNewLine
            strMeetings = strMeetings & CurrentAppointment.Start & " - " & CurrentAppointment.Location & vbNewLine & CurrentAppointment.Subject & vbNewLine & vbNewLine
        End If
    Next
    If (Len(strMeetings) > 4) Then ' Eliminate trailing newlines
        strMeetings = Left(strMeetings, Len(strMeetings) - 4)
    End If

    MsgBox ("*** Tomorrow's Meetings ***" & vbNewLine & vbNewLine & meetingDetails)
    MsgBox strMeetings, vbInformation, "Tomorrow's Meetings"
End Sub

getMyAppointmentsForTomorrow

本文收集自互联网，转载请注明来源。

如有侵权，请联系[email protected] 删除。