回答編集履歴
1
コードを微修正
answer
CHANGED
@@ -17,8 +17,8 @@
|
|
17
17
|
Dim sLine As String
|
18
18
|
Dim vString As Variant
|
19
19
|
Dim oStream As Object
|
20
|
-
Const adTypeText = 2
|
20
|
+
Const adTypeText As Long = 2
|
21
|
-
Const adReadLine = -2
|
21
|
+
Const adReadLine As Long = -2
|
22
22
|
|
23
23
|
Application.ScreenUpdating = False
|
24
24
|
For i = 0 To 2
|