質問: 同フォルダ内、複数あるブックの同場所にある値の合計を求めたいです、 宜しくお願い致します。 ・ 値を取得したい複数のブックは全て閉じていて、合計を表示したいブック だけ開いておりユーザーフォーム1表示の状態からスタートです。 ・ ユーザーフォーム1にあるコマンドボタン1ClickでBook1が開きます、 その時のClickイベントにコードを入れたいです。 ・ Book1,Sheet1,セルB3に合計の値を表示したいです。 ・ 参照する全てのブックのシート名は”工事履歴”、セル番地は"K1"です。 ・可能であればアクティブブックはBook1だけにしたいです。 ・※同フォルダ内にある値を取得したい複数のブックはブック数が決まっておらずブックを追加して増やしていきますが、参照するシート名とセル位置は同じです。 ・まとめ 同フォルダ内のシート名”工事履歴”のセルK1の合計値をBook1の Sheet1,B3に合計表示です。 宜しくお願い致します。
回答: Book1.xlsxも同じフォルダーということですね。 myPath = "C:\Users\×××\○○○" のところにファイルエクスプローラからパスをコピペしておきます。ファイル名抜きのパスだけです。 Private Sub CommandButton1_Click() Dim myPath As String, myFile As String Dim x As Variant, total As Variant myPath = "C:\Users\×××\○○○" myFile = Dir(myPath & "\*.xls*") Do Until myFile = "" If myFile = "Book1.xlsx" Then Else x = ExecuteExcel4Macro("'" & myPath & "\[" & myFile & "]工事履歴'!R1C11") If IsNumeric(x) Then total = total + x End If End If myFile = Dir() Loop Workbooks.Open myPath & "\Book1.xlsx" Sheets("Sheet1").Range("B3") = total End Sub