フォルダの中にエクセルＢＯＯＫにたいする串刺し集計

フォルダのなかに
エクセルＢＯＯＫが10個あります。
いずれのＢＯＯＫのシート1のＡ１に
数値が入力されています。
この合計額を集計のＢＯＯＫに集計するには
どうしたらいいでしょうか。

質問者からの補足コメント

• 

  他のBookのセルを参照するには
  　＝ ”[” + ファイル名（拡張子付き） + ”]” シート名 + ”!” + セル番地
  　＝[example.xlsx]Sheet1!A1
  
  [” + ファイル名（拡張子付き） + ”]この部分をフォルダのなかに
  あるエクセルデータとしたい。
  
  方法をおしえてください。

  No.1の回答に寄せられた補足コメントです。 補足日時：2018/11/10 19:43

• 

  条件はフォルダの中にエクセルデータがあれば
  エクセルのシート１のＡ１の値を
  合計する
  あるサイトから見つけました。
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set folderObj = fso.GetFolder("C:\Users\xxx\Desktop\vba")
  For Each fileObj In folderObj.Files
  'ファイル名判定
  If fileObj.Name Like "*.xlsx" Then　　　
  ただこのｺｰﾄﾞはコピーだけなので条件とあいませんが
  
  Consolidate _Sources:=Array("'[Book2]1学期'!R2C3:R100C7",
  これをりようすればなんとかいけそうな感じですが一週間経過しました。

  No.4の回答に寄せられた補足コメントです。 補足日時：2018/11/10 20:33

No.6 ベストアンサー 回答者： fujillin 回答日時： 2018/11/12 09:45

No3です

前回答を読んではいないみたいなので、追加で回答したところで意味はないのだろうと思いますが、一応・・・

Sub Sample()
　Dim fileName As String, res As String
　Dim data, total

　Const folderPath = "C:\tmp" '←対象フォルダのパス
　total = 0

　fileName = Dir(folderPath & "\*.xls")
　Do While fileName <> ""
　　data = ExecuteExcel4Macro("'" & folderPath & "\[" & fileName & "]Sheet1'!R1C1")
　　If IsNumeric(data) Then total = total + data
　　res = res & fileName & " / " & CStr(data) & vbCrLf
　　fileName = Dir()
　Loop

　MsgBox res & vbCrLf & "数値の合計 = " & total
End Sub

この回答へのお礼

貴重な時間有難うございました。
試したところ、おもわず
わぁ、すゴィとうなってしまいました。
なにもいうことありません。
有難うございました。

お礼日時：2018/11/13 08:34

No.5 回答者： 銀鱗 回答日時： 2018/11/10 19:57

一つずつ入力すればいい。

自分ならバッチファイルでテキストに出力した物を貼り付けるけどね。
バッチファイルが何なのか分からないなら手を出さないようにしましょう。
本来の目的はそこではありませんよね。

この回答へのお礼

バッチファイルが何なのか分からないです
お時間あれば教えてください。

お礼日時：2018/11/13 08:35

No.4 回答者： めぐみん_ 回答日時： 2018/11/08 07:19

No.2です。

No.2で回答した件は確か以前複数Bookのシートにあるセル範囲を串刺しにって質問されてたと記憶してたからです。
もし今回の件とは違う又は記憶違いなら忘れて下さい。

この回答へのお礼

いつも有難うございます。

お礼日時：2018/11/13 08:35

No.3 回答者： fujillin 回答日時： 2018/11/07 16:16

こんにちは

＞この合計額を集計のＢＯＯＫに集計するには
＞どうしたらいいでしょうか。
「どうしたら」というほどのこともなく、No1様の回答のように関数式を設定しておくか、VBA等を利用して集計するかのどちらかではないでしょうか。
（関数利用に関してはNo1様の回答をご覧ください）

VBA利用の場合は、対象ブックを順に参照してゆくことになりますが、ご質問のように、ブックの固定位置のセル値だけを集計したいのであれば、いちいち OPEN － CLOSE しなくても、ExecuteExcel4Macroを利用すると値を直接取得することができますので便利かもしれません。
（処理速度の向上が図れる可能性も高いです）
https://msdn.microsoft.com/ja-jp/vba/excel-vba/a …

この回答へのお礼

いつも有難うございます。

お礼日時：2018/11/13 08:35

No.2 回答者： めぐみん_ 回答日時： 2018/11/07 14:09

実際本当にBook内の１つのシートの１セルの値だけを集めるというのか、あるいはそれを拡張させて対応するのかでも違うんじゃないでしょ

うか？

この回答へのお礼

有難うございました。

お礼日時：2018/11/13 08:36

No.1 回答者： 銀鱗 回答日時： 2018/11/06 20:12

串刺し計算は同じBookのシート間で行うものですので、この場合には使えません。

一つ一つBookを指定して合計を求めるようにしましょう。

・・・
他のBookのセルを参照するには
　＝ ”[” + ファイル名（拡張子付き） + ”]” シート名 + ”!” + セル番地
　＝[example.xlsx]Sheet1!A1
のように指定します。

　＝[example1.xlsx]Sheet1!A1 + [example2.xlsx]Sheet1!A1 + [example3.xlsx]Sheet1!A1
のようにして合計を求めましょう。

この回答へのお礼

有難うございました。

お礼日時：2018/11/13 08:36