Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6761 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【43305】複数のブックを順番に開いて閉じる作業 素人です。 06/10/8(日) 20:11 質問[未読]
【43314】Re:複数のブックを順番に開いて閉じる作業 Mariko 06/10/9(月) 8:43 発言[未読]
【43327】Re:複数のブックを順番に開いて閉じる作業 素人です。 06/10/9(月) 17:48 お礼[未読]
【43328】Re:複数のブックを順番に開いて閉じる作業 Mariko 06/10/9(月) 19:12 発言[未読]
【43329】Re:複数のブックを順番に開いて閉じる作業 素人 06/10/9(月) 20:00 お礼[未読]
【43305】複数のブックを順番に開いて閉じる作業
質問  素人です。  - 06/10/8(日) 20:11 -
引用なし
パスワード
   初めて質問します。

1.概要
ブックA（集計表）とブックB（データ表）とブック（C、D、E、F、G）があります。
ブック（C〜G）はそれぞれに単独のマクロを持っています。
ブックBのデータは、ブック（C〜G）に反映（リンク）しますし、そこで計算した各データを、ブックAに反映（リンク）するように計算式を入力しております。
ここで、ブック（C〜G）の計算データをブックA（集計表）に反映させる作業を自動化したいのです。（現在は、手作業です。）

２．作業内容
1.ブックA（集計表）とブックB（データ表）をあらかじめ開いておきます。
2.ブックBを開いて、リンクしたデータを取り込んだらそのまま保存します。《その際、マクロを「有効にする。」、他ブックからのリンクを「更新する。」、そのシートの変更を上書き「保存する。」の手順となります。》
3.ブックC、D、E、F、Gのそれぞれを、順番に2.と同様に開いて保存する作業を繰り返します。

この2.と3.を自動化するには、どのようにすればよろしいでしょうか。
なお、ブックのメモリの関係で、ブック（C〜G）を一度に開けないため、ひとつずつ順番に開いては閉じる作業を繰り返す必要があります。
この作業が自動化できれば助かります。アドバイスいただければ幸いです。
【43314】Re:複数のブックを順番に開いて閉じる作業
発言  Mariko  - 06/10/9(月) 8:43 -
引用なし
パスワード
   ▼素人です。 さん：

おはようございます。

質問のポイントは、
複数のブックを順次開いて、それぞれのブックでマクロか何か？をさせ、
順次フックを閉じるということですか？(質問は短く分かりやすく書いてネ）

親のブックがAとBがありCから順次GまでOpen･･･Closeさせるのでしょうか。
質問事項が間違いなければ・・・

先ず、親Aのブックにコードを書き、Cをオープンしそして閉じるマクロを書かれては如何です。
これが基本です。このコードを書かれて、再度質問されては如何でしょう。

丸投げの質問では・・・誰も答えてくれない可能性が高いと思いますので、
ちょっと書かせていただきました。

※Bookの場合はPassをはっきり明示する必要がありますので、Passに関して
ちょっと本を開かれて見られては如何でしょう。
【43327】Re:複数のブックを順番に開いて閉じる作業
お礼  素人です。  - 06/10/9(月) 17:48 -
引用なし
パスワード
   　Mariko さん
アドバイスをありがとうございます。
素人の質問で、わかりにくかったと思います。すみません。

>複数のブックを順次開いて、それぞれのブックでマクロか何か？をさせ
　=>　この作業のときは特にマクロは使用しません。あとは、Mariko さんの書かれたポイントのとおりです。

親のAﾌﾞｯｸにﾏｸﾛを書いて、他ﾌﾞｯｸの操作を行うということですね。
実は以前、ﾏｸﾛを少しだけ作ったことはあるのですが、殆ど自分のものになっていないので、改めて自分なりに勉強してとりくんでみます。
連続してのﾌﾞｯｸ操作ができるかどうか、不安ですが･･･。
その上で悩んだときに、改めて質問します。
どうもありがとうございます。
菅原


>▼素人です。 さん：
>
>おはようございます。
>
>質問のポイントは、
>複数のブックを順次開いて、それぞれのブックでマクロか何か？をさせ、
>順次フックを閉じるということですか？(質問は短く分かりやすく書いてネ）
>
>親のブックがAとBがありCから順次GまでOpen･･･Closeさせるのでしょうか。
>質問事項が間違いなければ・・・
>
>先ず、親Aのブックにコードを書き、Cをオープンしそして閉じるマクロを書かれては如何です。
>これが基本です。このコードを書かれて、再度質問されては如何でしょう。
>
>丸投げの質問では・・・誰も答えてくれない可能性が高いと思いますので、
>ちょっと書かせていただきました。
>
>※Bookの場合はPassをはっきり明示する必要がありますので、Passに関して
>ちょっと本を開かれて見られては如何でしょう。
【43328】Re:複数のブックを順番に開いて閉じる作業
発言  Mariko  - 06/10/9(月) 19:12 -
引用なし
パスワード
   ▼素人です。 さん：

質問事項がいまいち分かりにくかったですよ。
もっと整理されて質問されては？
推測ですが･･･マクロサンプル作りました。
転用して、目的が果たせることが出来れば幸いです。

A21,A22,A23のブックを順次開けていきます。
A21,22,23のブックを事前に作成してマクロを実行してください。

Sub WBOpenClose()

Workbooks.Open ThisWorkbook.Path & "\A21.xls"
　　 MsgBox "A21のブックが開きました"
Application.DisplayAlerts = False
　　Workbooks("A21.xls").Close
Application.DisplayAlerts = True

Workbooks.Open ThisWorkbook.Path & "\A22.xls"
　　MsgBox "A22のブックが開きました"
Application.DisplayAlerts = False
　　Workbooks("A22.xls").Close
Application.DisplayAlerts = True

Workbooks.Open ThisWorkbook.Path & "\A23.xls"
　　MsgBox "A23のブックが開きました"
Application.DisplayAlerts = False
　　Workbooks("A23.xls").Close
Application.DisplayAlerts = True

End Sub
【43329】Re:複数のブックを順番に開いて閉じる作業
お礼  素人  - 06/10/9(月) 20:00 -
引用なし
パスワード
   ▼Mariko さん：

上手く行きましたー!!　
Mariko さんのｱﾄﾞﾊﾞｲｽのお陰でこの手間のかかる作業が自動化できます。
感激しました。本当にありがとうございます。

･･･今度質問するときは、もっと整理して短くですよね。
ありがとうございました。

菅原
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6761 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free