エクセルVBAで別ブックを参照してDSUM

質問

エクセルVBAで別ブック（閉じてる）を参照してDSUMをしたいです。

インターネットや本等で調べたのですが、全然分かりませんでした。
何卒、よろしくお願い申し上げます。

【前提】
・エクセルファイルが２つあります。
１つ目は「ＤＢ」ファイル（Ｃドライブ直下）。
２つ目は「表示」ファイル（デスクトップ上。「ＤＢ」ファイルとは別の場所）。

・「ＤＢ」ファイルの仕様は、Sheet１に以下のとおりです。
Ａ列：会社（１行目には、会社と記載して２行目以降に値）
Ｂ列：部署（１行目には、部署と記載して２行目以降に値）
Ｃ列：氏名（１行目には、指名と記載して２行目以降に値）
Ｄ列：金額（１行目には、金額と記載して２行目以降に値）

※値（データ）の行数は、数万行となる見込みです。

【実現したいこと】
・「ＤＢ」ファイルのSheet１のデータを、DSUM関数の”データベース”として、 金額を集計して、「表示」ファイルで集計・表示させたい。
・なお、DSUM関数の"条件"としては、会社と部署と氏名の３つとしたい。

※具体的には、「読み出し」ファイルのSheet１のセルＡ2に会社を、セルＢ2に部署を、 セルＣ2に氏名を入力できるようにる。
それらすべてをAND条件として、金額を集計させたい（金額の集計は、セルD2に出力）です。

以上の内容で考えています。
ひとつのエクセルファイルで作成してみたのですが、データが数万行もあるため、容量が非常に大きくなってしまいます。
集計結果（集計条件を変更させて確認できる状態）は、複数メンバーで共有したいと思っています。

エクセルのVBAで上記のことを実現できないでしょうか。
Accessは、自分含め他のメンバーも知識が乏しいため、避けたいと思っています。

よろしくお願い申し上げます。

回答No.2

keithin · ベストアンサー

閉じたブックに対してDSUM関数を使う方法はありませんが、マクロを使ってという前提なら話は簡単です。

例：
sub macro1()
　application.screenupdating = false
　workbooks.open filename:="C:\DB.xlsx"　’拡張子他注意
　with thisworkbook.worksheets("Sheet1")　’シート名不明注意
　　.range("D2").formula = "=DSUM([DB.xlsx]Sheet1!A:D,4,A1:C2)"
　　.range("D2").value = .range("D2").value
　end with
　workbooks("DB.xlsx").close false
　application.screenupdating = true
end sub

集計ブックのSheet1のＡ２：Ｃ２に条件を記入後、マクロを実行するとＤ２にコタエが記入される。
マクロを登録した集計ブックをもちろん複数メンバーで共有して構わないが、ＤＢブックへのアクセスについてどうしたいのか不明なので適切に応用する事。

お礼

ありがとうとざいます。ご教示いただきましたVBAで実行したところ、約10秒で完了し、大変使い勝手が良いです。ありがとうございます。

ただ、複数メンバーの共有という点で更に教えていただけないでしょうか。

そもそも私の言葉不足だったのですが、『複数メンバー共有の運用』というのは、DSUMのマクロを実行するエクセルファイルは共有サーバー内に置いておき、そのファイルを複数メンバーで共有します。一方、DSUMの集計元となるデータベースのファイルは、私個人のローカルＣドライブ内に置いておき、データベースのファイル更新は私個人が行っていくというものです。

ですので、教えていただきましたVBAを活用の上、実際の運用処理をすると
workbooks.open filename:="C:\DB.xlsx"
の部分が上手いこといきません（私の言葉不足でスミマセンでした）。

共有サーバーからローカルドライブを参照するVBAはどのように記述すればよか教えていただけないでしょうか。
何度も誠に申し訳ございませんが、何卒よろしくお願い申し上げます。

回答No.1

catpow

>>インターネットや本等で調べたのですが、全然分かりませんでした。
何卒、よろしくお願い申し上げます。

エクセルＶＢＡでやりたいことに近いことが可能でしょうから、ネットや書籍に情報があったわけですね。
それをやるためには、その「全然分からないこと」を理解する必要があります。
腰をすえて、それなりに勉強すれば、いくらか分かるようになるかもしれませんので、それをめざして勉強をしましょう。

>>エクセルのVBAで上記のことを実現できないでしょうか。
ccessは、自分含め他のメンバーも知識が乏しいため、避けたいと思っています。

可能かもしれませんが、件数が多いから、効率が悪い、つまり処理スピードが遅くなると思います。
件数的には、アクセスか、その上位のSQL Serverで処理すべき領域のデータ量といえるでしょう。

まあ、ＶＢＡの処理を起動して数時間後に、あるいは、翌日までに結果が出れば良いっていうなら可能でしょう。

>>集計結果（集計条件を変更させて確認できる状態）は、複数メンバーで共有したいと思っています。

まあ、こうなるとアクセスでも能力不足で、SQL Serverが出番となる領域です。
もしくは、ファイルメーカというソフトを購入して勉強し、使いこなす方法もあると思えます。

例えていえば、犬小屋や長さ１ｍ程度の橋は、素人が日曜大工でできるかもしれません。
質問者さんは、そんなのじゃあなく、ちょっと大きめの物置小屋や長さ５ｍ程度の橋を、日曜大工で作りたいという感じですね。

まあ、「小屋が潰れたり風で飛んだり、歩いていて橋が落ちてもいいや！」と割り切れるなら、エクセルＶＢＡでチャレンジしてもいいとおもいます。