回答編集履歴
1
コードを微修正
test
CHANGED
@@ -36,9 +36,9 @@
|
|
36
36
|
|
37
37
|
Dim oStream As Object
|
38
38
|
|
39
|
-
Const adTypeText = 2
|
39
|
+
Const adTypeText As Long = 2
|
40
40
|
|
41
|
-
Const adReadLine = -2
|
41
|
+
Const adReadLine As Long = -2
|
42
42
|
|
43
43
|
|
44
44
|
|