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

Question

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

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

Function xls_read()

'----------------------
Dim log_r As Long, log_r1 As Long, temp As Long, temp1 As Long, fst_dstCol As Long
'----------------------

fst_dstCol = dstCol

file = Dir(FLD & "\" & "*.xlsx")
Do While file <> ""
    
    Cells(dstRow, dstCol) = Left(file, Len(file) - 5)
    
    dstCol = dstCol + 1 
    temp = 0
    
    For log_r = 24 To 25
        temp = temp + ExecuteExcel4Macro _
        ("'" & FLD & "[" & file & "]シート名'!R" & log_r & "C4") 
    Next log_r
    
    Cells(dstRow, dstCol) = temp    
    dstCol = dstCol + 1 
    
    'Repetitions x2
    For log_r1 = 26 To 27
        temp1 = temp1 + ExecuteExcel4Macro _
        ("'" & FLD & "[" & file & "]シート名'!R" & log_r1 & "C4") 
    Next log_r1
    
    Cells(dstRow, dstCol) = temp1    
    dstCol = dstCol + 1 
    
     For log_r = 28 To 33
        Cells(dstRow, dstCol) = ExecuteExcel4Macro _
        ("'" & FLD & "[" & file & "]シート名'!R" & log_r & "C4")
        
        dstCol = dstCol + 1 
        
    Next log_r
    
    file = Dir      
    dstRow = dstRow + 1         
    dstCol = fst_dstCol  
Loop

End Function
コード
```

24～25行目と26～27行目はそれぞれの合計を取得し、28～33行目は、各セルの数値を取得します。
上記のコードでは、1ファイル目は期待通りの結果が得られるのですが、2ファイル目から
26～27行目の合計の数値を取得すべきところに、前のファイルの26～27行目の合計の数値が
加算されてしまいます。以降のファイルも、それ以前に読取った全ファイルの同じ箇所の数値が
加算されてしまい、どのように修正すべきか分からず困っています。
どうぞよろしくお願いいたします。

Comments

[y_waiwai]

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

[nbotnk]

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

[y_waiwai]

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

Answer 1

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

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

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

    temp1 = 0 '初期化
    For log_r1 = 26 To 27
        temp1 = temp1 + ExecuteExcel4Macro _
        ("'" & FLD & "[" & file & "]シート名'!R" & log_r1 & "C4") 
    Next log_r1

    Cells(dstRow, dstCol) = temp1    

Comments

[nbotnk]

問題解決しました。ただ、ご教示いただいた箇所だと、なぜかデータが全く取得されなかったので、
dstCol = dstCol + 1 の後にtemp1 = 0を入れると、完全に期待通りに動作しました。
ありがとうございました。