VBScriptが文句を言わない実行 - エラー「期待声明」

Question

私は、次のコードを持っている：私はVBSファイルに入れて、それを実行すると

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 

、私はライン9シャア10

ための「期待文」を取得します

ExcelのVBAエディタにコードをコピーして貼り付けると、エラーなく正常に動作します。

なぜVBSファイルで作業していないのですか？

Answer 1

VBScriptでは、Caseステートメントではx To yの構文を使用できません。単一の値またはコンマで区切られた値のリストのみを使用できます。代わりにIf/ElseIfステートメントを使用する必要があります。

Answer 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