回答編集履歴
1
変更例追記
answer
CHANGED
|
@@ -1,4 +1,21 @@
|
|
|
1
1
|
`For i = 0 To 99`
|
|
2
2
|
を、
|
|
3
3
|
`For i = 0 To 149`
|
|
4
|
-
に。
|
|
4
|
+
に。
|
|
5
|
+
#追記
|
|
6
|
+
普通は、個数限定せず、その番号のファイルがなくなるまでループということにすると思います。
|
|
7
|
+
```VB
|
|
8
|
+
～～
|
|
9
|
+
i = 0
|
|
10
|
+
Do
|
|
11
|
+
xPath = cPath & Format(i + 1, "000")
|
|
12
|
+
xFile = Dir(xPath)
|
|
13
|
+
If xFile = "" Then Exit Do ' ファイルがなければループから抜ける
|
|
14
|
+
Workbooks.OpenText Filename:=xPath, StartRow:=1, DataType _
|
|
15
|
+
～～
|
|
16
|
+
End With
|
|
17
|
+
i = i + 1
|
|
18
|
+
Loop
|
|
19
|
+
Application.ScreenUpdating = True
|
|
20
|
+
End Sub
|
|
21
|
+
```
|