回答編集履歴
1
コード修正
test
CHANGED
@@ -8,7 +8,7 @@
|
|
8
8
|
|
9
9
|
On Error Resume Next
|
10
10
|
ret = WorksheetFunction.WebService("http://foo.example.com/")
|
11
|
-
isErr = Err.Number > 0
|
11
|
+
isErr = Err.Number <> 0
|
12
12
|
Err.Clear
|
13
13
|
On Error GoTo 0
|
14
14
|
|