VBScriptエラーのエラーである" 'With' ステートメントがありません。"の原因と対処に関して説明します。
エラーメッセージ：
'With' ステートメントがありません。
エラーメッセージ(英語)：
Expected 'With'
スポンサード リンク
エラーコード：
1029
エラー原因：
with 〜end with に関して「end with」の「with」が見つかりません。
【誤】
Dim myClass
Set myClass = New SampleClass
with myClass
.addValue
.showValue
end
rem ↑ここが誤り
Class SampleClass
Dim val1
Private Sub Class_Initialize()
val1 = 1
End Sub
Public Function addValue()
val1 = val1+1
End Function
Public Function showValue()
WScript.Echo "val1=" & val1
End Function
End Class
【正】
Dim myClass
Set myClass = New SampleClass
with myClass
.addValue
.showValue
end with
rem ↑ここを修正
Class SampleClass
Dim val1
Private Sub Class_Initialize()
val1 = 1
End Sub
Public Function addValue()
val1 = val1+1
End Function
Public Function showValue()
WScript.Echo "val1=" & val1
End Function
End Class
スポンサード リンク
対処：
with 〜end with のwith を付加します。
スポンサード リンク