Excel VBA 複数のブックからデータ（複数セルの合計、各セルの数値）を取得する

お世話になります。
今、複数の解析ログファイルが入ったフォルダを選択すると、その中にある各ファイルの
所定のデータを取得するコードを作っています。

コードは次のような感じです。

Option
1
2Function xls_read()
3
4'----------------------
5Dim log_r As Long, log_r1 As Long, temp As Long, temp1 As Long, fst_dstCol As Long
6'----------------------
7
8fst_dstCol = dstCol
9
10file = Dir(FLD & "\" & "*.xlsx")
11Do While file <> ""
12    
13    Cells(dstRow, dstCol) = Left(file, Len(file) - 5)
14    
15    dstCol = dstCol + 1 
16    temp = 0
17    
18    For log_r = 24 To 25
19        temp = temp + ExecuteExcel4Macro _
20        ("'" & FLD & "[" & file & "]シート名'!R" & log_r & "C4") 
21    Next log_r
22    
23    Cells(dstRow, dstCol) = temp    
24    dstCol = dstCol + 1 
25    
26    'Repetitions x2
27    For log_r1 = 26 To 27
28        temp1 = temp1 + ExecuteExcel4Macro _
29        ("'" & FLD & "[" & file & "]シート名'!R" & log_r1 & "C4") 
30    Next log_r1
31    
32    Cells(dstRow, dstCol) = temp1    
33    dstCol = dstCol + 1 
34    
35     For log_r = 28 To 33
36        Cells(dstRow, dstCol) = ExecuteExcel4Macro _
37        ("'" & FLD & "[" & file & "]シート名'!R" & log_r & "C4")
38        
39        dstCol = dstCol + 1 
40        
41    Next log_r
42    
43    file = Dir      
44    dstRow = dstRow + 1         
45    dstCol = fst_dstCol  
46Loop
47
48End Function
49コード
50```
51
5224～25行目と26～27行目はそれぞれの合計を取得し、28～33行目は、各セルの数値を取得します。
53上記のコードでは、1ファイル目は期待通りの結果が得られるのですが、2ファイル目から
5426～27行目の合計の数値を取得すべきところに、前のファイルの26～27行目の合計の数値が
55加算されてしまいます。以降のファイルも、それ以前に読取った全ファイルの同じ箇所の数値が
56加算されてしまい、どのように修正すべきか分からず困っています。
57どうぞよろしくお願いいたします。

y_waiwai

2021/10/06 06:19

このままではコードが読みづらいので、質問を編集し、<code>ボタンを押し、出てくる’’’の枠の中にコードを貼り付けてください

nbotnk

2021/10/06 06:26

更新しました。これで大丈夫でしょうか？

y_waiwai

2021/10/06 06:27

ありがとうございます。助かります

行動規範の内容に同意します

回答1件

ベストアンサー

上記のコードでは、1ファイル目は期待通りの結果が得られるのですが、2ファイル目から

26～27行目の合計の数値を取得すべきところに、前のファイルの26～27行目の合計の数値が
加算されてしまいます。

加算用の変数 temp1 が初期化されていないからでは。

vba
1    temp1 = 0 '初期化
2    For log_r1 = 26 To 27
3        temp1 = temp1 + ExecuteExcel4Macro _
4        ("'" & FLD & "[" & file & "]シート名'!R" & log_r1 & "C4") 
5    Next log_r1
6
7    Cells(dstRow, dstCol) = temp1