teratail header banner
teratail header banner
質問するログイン新規登録

回答編集履歴

1

コードを微修正

2021/05/23 03:57

投稿

plomte
plomte

スコア46

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