回答編集履歴
1
情報追加
answer
CHANGED
|
@@ -29,4 +29,25 @@
|
|
|
29
29
|
```
|
|
30
30
|
|
|
31
31
|
記載された内容を、ほかのPCで実行すると、オブジェクトが未定義でエラーが発生します。
|
|
32
|
-
質問文に記述があるのではないでしょうか？
|
|
32
|
+
質問文に記述があるのではないでしょうか？
|
|
33
|
+
|
|
34
|
+
**追記**
|
|
35
|
+
jinoji さんのご指摘通り、for ループ内に、転記先の行の位置を決定している変数 i があるため、ファイルが変わるたびに 4行目に戻っています。
|
|
36
|
+
このため、最後のファイルのみ転記された（ように見える）状態になっています。
|
|
37
|
+
|
|
38
|
+
|
|
39
|
+
```ここに言語を入力
|
|
40
|
+
Dim i As Long
|
|
41
|
+
i = 4
|
|
42
|
+
```
|
|
43
|
+
|
|
44
|
+
for ループの外に移動させましょう。
|
|
45
|
+
こんな感じで
|
|
46
|
+
|
|
47
|
+
```ここに言語を入力
|
|
48
|
+
Dim i As Long
|
|
49
|
+
i = 4
|
|
50
|
+
|
|
51
|
+
Dim f As File
|
|
52
|
+
For Each f In fso.GetFolder(ThisWorkbook.Path & "\データ格納先").Files
|
|
53
|
+
```
|