VBScript 无法运行 - 错误“预期语句”答案

【问题标题】：VBScript wont run - Error "Expected Statement"VBScript 无法运行 - 错误“预期语句”
【发布时间】：2011-06-26 06:51:41
【问题描述】：

我有以下代码：

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

【解决方案1】：

在 VBScript 中，Case 语句不允许使用 x To y 语法。您只能使用单个值或以逗号分隔的值列表。您必须改用 If/ElseIf 语句。

【讨论】：

【解决方案2】：

尝试以下方法：

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 才能使其正常工作。不过老实说，这与 If/ElseIf/Else 并没有太大区别。
@Cheran 我现在明白了。谢谢你。我会坚持使用 VBA，谢谢 :)