質問編集履歴
1
修正して自己解決できました
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -16,6 +16,8 @@
|
|
|
16
16
|
### 発生している問題・エラーメッセージ
|
|
17
17
|
フォルダ内の全てのファイルを読みこみたいのに
|
|
18
18
|
1つのファイルしか読みこめていない。
|
|
19
|
+
**追記**
|
|
20
|
+
自己解決しました
|
|
19
21
|
|
|
20
22
|
**期待する実行結果**
|
|
21
23
|
|
|
@@ -27,6 +29,8 @@
|
|
|
27
29
|
実際に読みこんでいるのは、1つのファイルだけのようです。
|
|
28
30
|
|
|
29
31
|
|
|
32
|
+
追記 Debug.printでFilePathを調べたところ、変化していないことが分かりました。
|
|
33
|
+
|
|
30
34
|
### 該当のソースコード
|
|
31
35
|
|
|
32
36
|
```VBA
|
|
@@ -89,10 +93,16 @@
|
|
|
89
93
|
End Sub
|
|
90
94
|
|
|
91
95
|
```
|
|
96
|
+
**追記 **
|
|
97
|
+
以下のように変更すると、自己解決できました
|
|
98
|
+
```VBA
|
|
99
|
+
Open FilePath For Input As #FileNumber の部分を
|
|
100
|
+
Open FileFolder & "\" & FileName For Input As #FileNumber
|
|
101
|
+
に変更すると上手く行きました。
|
|
92
102
|
|
|
93
|
-
|
|
103
|
+
```
|
|
94
|
-
近くに聞くことのできる人もおらず、お手上げ状態です。
|
|
95
|
-
助言いただければ大変助かります。
|
|
96
104
|
|
|
97
105
|
|
|
106
|
+
|
|
107
|
+
|
|
98
108
|
### 補足情報（FW/ツールのバージョンなど）
|