VBScript无法运行-错误“；预期报表“；

我有以下代码：

Dim todaysDate

todaysDate = Day(Now)

Select Case todaysDate

    Case 1 to 5
        Msgbox("1 to 5")

    Case 23 to 31
        Msgbox("23 to 31")
    End Select

当我把它放在一个VBS文件中并运行它时，我得到了第9行和第10行的“预期语句”

如果我将代码复制并粘贴到Excel的VBA编辑器中，它运行良好，没有错误

知道它为什么不能在VBS文件中工作吗？

在VBScript中，该语句不允许使用

x到y

语法。您只能使用单个值或逗号分隔的值列表。您必须改用If/ElseIf语句。

尝试以下操作：

Select Case TRUE 'this is important, HT to Cheran

    Case todaysDate >= 1 And todaysDate <=5
        Msgbox("1 to 5")

    Case todaysDate >=23 And todaysDate <=31
        Msgbox("23 to 31")

    Case else
        'However you want to handle this
End Select

Select Case TRUE'这对Cheran很重要
Case todaysDate>=1，todaysDate=23，而todaysDate您需要使第一行
选择Case True
，才能工作。老实说，这和If/ElseIf/Else没有太大区别。@Cheran我现在明白了。非常感谢。我会坚持使用VBA，谢谢：）