複数のエクセルブック間でのデータの渡し方

質問

こんにちは。環境：WinNT4.0、エクセル97

二つのエクセルブックがあります。（AとB）
Aは個人のデータが記入されています。このAは個人個人のデータのため
実際には複数存在します。（A1、A2・・・）
Bはこの個々のブックを集計したものになるため、Bを直接開くことはありません。
実際にAのみにデータを追加していって、それをBに反映させることは
できるのでしょうか？

以上、お願いします。

回答No.2

yohsshi · ベストアンサー

VBAでイベントプロシージャーを使用して、AのデータシートをBの然るべきシートにコピーするようにすれば良いと思います。

Private Sub Workbook_BeforeClose()
Sheets("Aのデータ").Cells.Select
Selection.Copy
Workbooks.Open Tinename:="B.xls"
Sheets("Aデータ貼付先").Cells.Select
ActiveSheet.Paste
WorkBooks("B.xls").Close SaveChanges:=True
End Sub

動作確認していませんが、Excel９７だと上記のような形となると思います。

お礼

上記のやりかただとBを開けなければならず、ちょっと違うんです。
Bを開けてやるなら上記でOKだと思います。

回答ありがとうございます。

回答No.3

yohsshi

＞ ブックＢのＡ１で＝を入力し、アクティブ画面ををブックＡに切替え（ウィンドウで）ブックＡのＡ１を左クリックします。ブックＢのＡ１は”=[Ａ.xls]Sheet1!$A$1”となるはずです。

私はこれが可能でしたよ。但し表示は、=[Ａ]Sheet1!$A$1 でしたけど。
同じ環境：WinNT4.0、エクセル97 です

また、そのまま、=[Ａ]Sheet1!$A$1というように打ち込んでもＯＫでした。

ちょっと謎です。

お礼

すいません、わかりました。
ウインドウ自体が複数になっていました。
2000とかだとファイルを開くごとにウインドウ（下のバー）が
増えていきますよね？
NT（エクセル97のほう？）の場合は、メニューバーのウインドウの中に
追加されていくだけなんですよね。
おっしゃっていた方法はこっちのやり方みたいですね。

確かにその方法でできました。
ありがとうございました。

回答No.1

borg

簡単にブックＢのＳｈｅｅｔ１のＡ１に、ブックＡのＳｈｅｅｔ１のＡ１を表示させる場合、ブックＡとブックＢを両方開き、ブックＢのＡ１で＝を入力し、アクティブ画面ををブックＡに切替え（ウィンドウで）ブックＡのＡ１を左クリックします。ブックＢのＡ１は”=[Ａ.xls]Sheet1!$A$1”となるはずです。この後、Ａ２以下からＡ１０まで追加が予想されるとしたら、Ａ１の計算式の行番号１の前の＄を外し（$A1の形）、Ａ１０までオートフィルを使ってコピーします。このあと先にブックＡを閉じると計算式が'C\Winnt\Profiles\xxxxxx\デスクトップ\[A.xls]sheet1!A1'となるのを確認できると思います（ブックＡがデスクトップに保存されているとした場合）。これでリンクは確立できたのでブックＢを閉じ保存します。ブックＡのＡ２以降にデータを追加した後保存し、ブックＢを開けば確認できると思います。このときブックＢを開く際、他にリンクされているうんぬんのメッセージが出るので、これを反映させる方を選択します。そうしないと意味がありません。あとブックＡも新規に作成する場合は、必ずブックＡから先に保存してください。

お礼

＞ ブックＢのＡ１で＝を入力し、アクティブ画面ををブックＡに切替え（ウィンドウで）ブックＡのＡ１を左クリックします。ブックＢのＡ１は”=[Ａ.xls]Sheet1!$A$1”となるはずです。

それがなりませんでした。＝を入力後、アクティブ画面をAに切り替えてA1セルを
選択して、Bに戻しても＝以降なにも表示されません。シート間の場合はそれでいけるのですが、Book間だとうまくいきません。

回答ありがとうございます。