質問編集履歴
1
修正して自己解決できました
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -34,6 +34,10 @@
|
|
|
34
34
|
|
|
35
35
|
1つのファイルしか読みこめていない。
|
|
36
36
|
|
|
37
|
+
**追記**
|
|
38
|
+
|
|
39
|
+
自己解決しました
|
|
40
|
+
|
|
37
41
|
|
|
38
42
|
|
|
39
43
|
**期待する実行結果**
|
|
@@ -56,6 +60,10 @@
|
|
|
56
60
|
|
|
57
61
|
|
|
58
62
|
|
|
63
|
+
追記 Debug.printでFilePathを調べたところ、変化していないことが分かりました。
|
|
64
|
+
|
|
65
|
+
|
|
66
|
+
|
|
59
67
|
### 該当のソースコード
|
|
60
68
|
|
|
61
69
|
|
|
@@ -180,13 +188,25 @@
|
|
|
180
188
|
|
|
181
189
|
```
|
|
182
190
|
|
|
183
|
-
|
|
184
|
-
|
|
185
|
-
|
|
191
|
+
**追記 **
|
|
186
|
-
|
|
192
|
+
|
|
187
|
-
|
|
193
|
+
以下のように変更すると、自己解決できました
|
|
194
|
+
|
|
188
|
-
|
|
195
|
+
```VBA
|
|
196
|
+
|
|
197
|
+
Open FilePath For Input As #FileNumber の部分を
|
|
198
|
+
|
|
199
|
+
Open FileFolder & "\" & FileName For Input As #FileNumber
|
|
200
|
+
|
|
189
|
-
|
|
201
|
+
に変更すると上手く行きました。
|
|
202
|
+
|
|
203
|
+
|
|
204
|
+
|
|
205
|
+
```
|
|
206
|
+
|
|
207
|
+
|
|
208
|
+
|
|
209
|
+
|
|
190
210
|
|
|
191
211
|
|
|
192
212
|
|