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

回答編集履歴

1

情報追加

2021/07/07 12:01

投稿

Yoshi88
Yoshi88

スコア623

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
+ ```