[[20030909093055]]　『アクティブウインドウ以外の選択』（さかな）　ページの最後に飛ぶ

『アクティブウインドウ以外の選択』（さかな）

　マクロを使用しているのですが、２つのファイルを開いていたとして、ファイル名を指定せずに、アクティブでない方のファイルを選択することは、可能ですか？
　ファイル名を指定しないというのは、片方のファイルはマクロが登録されていて、ファイル名は固定されているのですが、もうひとつのファイルは状況に応じていくつかのパターンの中から選択してひとつを開くので、名前を指定せずにアクティブにしたいのです。
　よろしくお願いします。

あまり自信がないのに答えられては却って迷惑かもしれませんが、ぼくはこれは無理ではないかと思うんですが…。通常、最初にオープンしたブックは、workbooks(1) で扱えます。その名前を得るのは、workbooks(1).name です。二つ目にオープンしたブックは、workbooks(2) です。

問題は、アクティブブックが(1)か(2)か簡単には分からないことです。name を知るのは簡単ですが、この番号は、直接ではわからないんじゃないかと、ぼくは思っています。ぼくも同じ問題で悩んでいるのです。だれか教えて下さるとありがたい。

オープンしているブックが２つだけだと、以下の記述で、もう一つの方をアクティブにすることはできるのですが……あんまりスマートじゃない。

 IIf(Workbooks(1).Name = ActiveWorkbook.Name, Workbooks(2), Workbooks(1)).Activate

 （通りすがりの者）

 1. workbooks.open "?.xls" ファイルを開きます。
 2. Dim NewBookName As string
    NewBookName = ActiveWorkbook.name 
　　開くとアクティブになるので、ファイル名を変数に格納します。
 3.Workbooks(NewBookName).worksheets("sheet1")･･･
   以後は、このようにブックを指定できます。　　　
　
   こんな感じでいかがでしょうか？(INA)

　確かに、ファイルを開く度にファイル名を取得し変数として扱えばいいのですが
WorkBooks.Open・・・で開くのであれば、ファイル名がわかる場合もしくは指定
できる場合ではないでしょうか？
　二つのファイルしか開いていないのなら、
　　1.マクロが登録してある（ファイル名の明確な）ファイルをアクティブにする。
　　　Windows("?.xls").Activate
　　2.もうひとつのファイルをアクティブにする。
　　　ActiveWindow.ActivateNext
　　3.この状態で(INA)さんの感じを頂いて変数に格納すればよいのでは・・・
　　※３つ以上のファイルを開いている場合選択する順序に注意してください。
　　　偉そうにスミマセン（我流のValk）

 >我流のValk さん
  ファイルは２つと決まっているようですので、ActivateNextの方が適切な回答でしたね。
  失礼いたしました。
  　
 >WorkBooks.Open・・・で開くのであれば、ファイル名がわかる場合もしくは指定
 >できる場合ではないでしょうか？
  以下のような場合を、想定していました。（勘違いです。すいません。）
　 ファイル = Dir("*.xls")  
  Do While ファイル <> ""
    If ファイル <> ThisWorkbook.Name Then
         Workbooks.Open Filename:=ファイル
    End If
    ファイル = Dir()
  Loop
　　　(INA)

 そうですね。ActivateNext がありました。この方が同じ１行とはいえ、ぼくが紹介
 したものより、はるかにスマートです。

 activewindow.ActivateNext

 これだけでいいし、何度でも使えます。ありがとうございました。（通りすがりの者）

 色々教えていただきありがとうございました。
 ほとんど何もわからずにあれこれ手探りでやっている状態なので、大変参考になりました。
 これからチャレンジしてみたいと思います。
 ありがとうございました。　　　　　　　　　　　　　　　　　　　(さかな)

コメント返信：

[ 一覧(最新更新順) ]

[[20030909093055]] 『アクティブウインドウ以外の選択』（さかな） ページの最後に飛ぶ

[[20030909093055]]　『アクティブウインドウ以外の選択』（さかな）　ページの最後に飛ぶ