Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10756 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【19987】Excelの起動状況 コウ 04/11/22(月) 14:56 質問[未読]
【19988】Re:Excelの起動状況 ぴかる 04/11/22(月) 15:48 回答[未読]
【19989】Re:Excelの起動状況 コウ 04/11/22(月) 16:20 質問[未読]
【19991】Re:Excelの起動状況 ぴかる 04/11/22(月) 16:41 回答[未読]
【19992】Re:Excelの起動状況 コウ 04/11/22(月) 16:53 お礼[未読]
【20027】Re:Excelの起動状況 コウ 04/11/24(水) 15:55 質問[未読]
【20028】Re:Excelの起動状況 ichinose 04/11/24(水) 19:15 発言[未読]
【20038】Re:Excelの起動状況 コウ 04/11/25(木) 10:13 質問[未読]
【20039】Re:Excelの起動状況 つん 04/11/25(木) 11:05 発言[未読]
【20040】Re:Excelの起動状況 ぴかる 04/11/25(木) 11:10 発言[未読]
【20042】Re:Excelの起動状況 つん 04/11/25(木) 14:05 発言[未読]
【20043】Re:Excelの起動状況 yuu1 04/11/25(木) 15:09 回答[未読]
【20044】Re:Excelの起動状況 コウ 04/11/25(木) 15:49 お礼[未読]
【19987】Excelの起動状況
質問  コウ  - 04/11/22(月) 14:56 -
引用なし
パスワード
   たびたびすいません。よろしくお願いします。
マクロを起動した際に、Excelが既に起動されている場合はマクロを終了させたい
のですが、"Excelの起動を確認する"という方法が良く分かりません。
過去ログを検索して以下のコードで起動確認ができるというのは分かったのですが、
そもそもマクロを含んだExcel自身を見てしまうようで、必ず"起動している"と判定
します。どなたか良い解決法をご存知ではないでしょうか?

Dim obExcel As Object　　　 'Excelオブジェクト
'Excelオブジェクトを取得する
Set obExcel = GetObject(, "Excel.Application")
'Excelが起動しているか判定(起動していればモジュールを抜ける)
If Err.Number = 0 Then
　　Exit Sub
End If
【19988】Re:Excelの起動状況
回答  ぴかる  - 04/11/22(月) 15:48 -
引用なし
パスワード
   コウさん、こんにちは。

他のブックが開いているという観点でいいんなら、こんなんで出来るかなと思います。
以前につんさんから、教えて頂いたものを少しいじくりました。

Sub Auto_Open()

　　Dim BOOK数 As Long
　　Dim wb As Workbook
　
　　BOOK数 = 0
　
　　For Each wb In Workbooks
　　　　If Windows(wb.Name).Visible = True Then
　　　　　　BOOK数 = BOOK数 + 1
　　　　End If
　　Next wb
　
　　If BOOK数 > 1 Then
　　　　MsgBox "既に他のブックが開いています。" & vbLf & _
　　　　　　　　"このブックを終了します。"
　　　　Application.DisplayAlerts = False　'警告メッセージオフにする
　　　　ActiveWorkbook.Close
　　End If

End Sub
【19989】Re:Excelの起動状況
質問  コウ  - 04/11/22(月) 16:20 -
引用なし
パスワード
   ぴかる さん返信有難うございます。
教えてくださったコードでうまくいきました。
一つ良く分からないのですが、以下のコードで立ち上がっている自分のブックが、
wbに入らない(表現間違っているかもしれませんが)のはなぜなのでしょうか?
>　　For Each wb In Workbooks
>　　　　If Windows(wb.Name).Visible = True Then
>　　　　　　BOOK数 = BOOK数 + 1
>　　　　End If
>　　Next wb
【19991】Re:Excelの起動状況
回答  ぴかる  - 04/11/22(月) 16:41 -
引用なし
パスワード
   ▼コウ さん：
>ぴかる さん返信有難うございます。
>教えてくださったコードでうまくいきました。
>一つ良く分からないのですが、以下のコードで立ち上がっている自分のブックが、
>wbに入らない(表現間違っているかもしれませんが)のはなぜなのでしょうか?
>>　　For Each wb In Workbooks
>>　　　　If Windows(wb.Name).Visible = True Then
>>　　　　　　BOOK数 = BOOK数 + 1
>>　　　　End If
>>　　Next wb

マクロが入っているブックだけなら、BOOK数 = 1 となりメッセージは表示されません。
他のブックがあると、BOOK数 > 1 となりメッセージ表示となります。
こういう事でよろしいです？。ちゃうかな？(^_^;)
【19992】Re:Excelの起動状況
お礼  コウ  - 04/11/22(月) 16:53 -
引用なし
パスワード
   ああ･･･、そうですね。
教えてくださったコードの中に、
If BOOK数 > 1 Then
がありました。自分以外のブックが開いていたら、BOOK数が2以上になるわけですね。
よく見ていませんでした。
どうも有難うございました。
【20027】Re:Excelの起動状況
質問  コウ  - 04/11/24(水) 15:55 -
引用なし
パスワード
   こんにちは。お世話になります。
この投稿で教えていただいたコードでExcelの起動状況は判定できたのですが、
以下の条件だと"インデックスが有効範囲にありません"というエラーが発生します。
何度も申し訳ありませんが、良い手立てがあれば教えていただきたく思います。
（条件）
１．起動状況判定を含むマクロを起動させる
２．１のマクロにて他のbookを作成する（そういう機能があるマクロです）
３．１のマクロを終了する
４．マクロを含むbookと作成したbookがある状態で再びマクロを実行させる

ちなみに、このコードで発生します
>　　　　If Windows(wb.Name).Visible = True Then
【20028】Re:Excelの起動状況
発言  ichinose  - 04/11/24(水) 19:15 -
引用なし
パスワード
   ▼コウ さん：
こんばんは。

>こんにちは。お世話になります。
>この投稿で教えていただいたコードでExcelの起動状況は判定できたのですが、
>以下の条件だと"インデックスが有効範囲にありません"というエラーが発生します。
>何度も申し訳ありませんが、良い手立てがあれば教えていただきたく思います。
>（条件）
>１．起動状況判定を含むマクロを起動させる
>２．１のマクロにて他のbookを作成する（そういう機能があるマクロです）
ということは、ぴかるさんが提示されたコードのとおりと言うわけでは
ありませんね？


>３．１のマクロを終了する
>４．マクロを含むbookと作成したbookがある状態で再びマクロを実行させる
>
>ちなみに、このコードで発生します
>>　　　　If Windows(wb.Name).Visible = True Then

不具合の場合は、この投稿を見ている人が
上記のエラーが再現できるコードと手順を提示して下さい。


又、不具合は、ExcelのバージョンやWindowsのバージョンによっても
起こる場合と起こらない場合があります。
これも記述して下さい。

沢山の方が再現できれば、いろんな案が投稿されると思いますよ！！

ちなみにぴかるさんのコードでコウ さんの１〜４の手順では、
Excel2000で確認したところ、エラーは発生しませんでした。

手順書を記述するのは大変だと思いますが、それを記述する事で
解決してしまう場合もありますから・・・。
【20038】Re:Excelの起動状況
質問  コウ  - 04/11/25(木) 10:13 -
引用なし
パスワード
   ichinoseさん返信有難うございます。
アドバイスに従って、環境と詳細コードを記述させてもらいます。
<環境>
Windows2000,Excel2000
<コード>
Public Sub Excel_macro()
　　Dim obExcel As Object　　　 'Excelオブジェクト
　　Dim lBookNumber As Long　　 'ブック数カウント
　　Dim wkbbuff As Workbook　　 'バッファ

10
　　'ブック数カウントを初期化する
　　lBookNumber = 0
　　'ワークブック数分ループする
　　For Each wkbbuff In Workbooks
　　　　'他のブックの名前が取得できる場合(他のブックがオープンできる場合)
　　　　If Application.Windows(wkbbuff.Name).Visible = True Then '★
　　　　　　'ブック数カウンタをインクリメントする
　　　　　　lBookNumber = lBookNumber + 1
　　　　End If
　　Next wkbbuff
20
　　'他のブックが既に開かれている場合
　　If lBookNumber > 1 Then
　　　　'警告メッセージオフにする
　　　　Application.DisplayAlerts = False
　　　　'アプリケーションをクローズする
　　　　ActiveWorkbook.Close
　　End If

　　'ワークブックを作成する
　　Set wkbWorkBook = Workbooks.Add
　　wkbWorkBook.Windows(1).Caption = "テスト"
　　wkbWorkBook.Worksheets(Sheet1.Name).Activate

　　Exit Sub
End Sub

一度このマクロを実行後、"テスト"ブックが作成された後、マクロ搭載ブックと"テスト"
ブックがある状態で再びマクロを起動すると★印のところで"インデックスが有効範囲
にありません"のエラーが発生します。
よろしくお願いします。
【20039】Re:Excelの起動状況
発言  つん E-MAIL  - 04/11/25(木) 11:05 -
引用なし
パスワード
   おはようございます。
横から失礼しあｍす。

>Public Sub Excel_macro()
>　　Dim obExcel As Object　　　 'Excelオブジェクト
>　　Dim lBookNumber As Long　　 'ブック数カウント
>　　Dim wkbbuff As Workbook　　 'バッファ
>
>10
>　　'ブック数カウントを初期化する
>　　lBookNumber = 0
>　　'ワークブック数分ループする
>　　For Each wkbbuff In Workbooks
>　　　　'他のブックの名前が取得できる場合(他のブックがオープンできる場合)
>　　　　If Application.Windows(wkbbuff.Name).Visible = True Then '★
>　　　　　　'ブック数カウンタをインクリメントする
>　　　　　　lBookNumber = lBookNumber + 1
>　　　　End If
>　　Next wkbbuff
>20
>　　'他のブックが既に開かれている場合
>　　If lBookNumber > 1 Then
>　　　　'警告メッセージオフにする
>　　　　Application.DisplayAlerts = False
>　　　　'アプリケーションをクローズする
>　　　　ActiveWorkbook.Close
>　　End If
>
>　　'ワークブックを作成する
>　　Set wkbWorkBook = Workbooks.Add

　　　↓ここが問題みたいですね？
　　　　ここを、コメントアウトして、Captionが「Book?」のままだと
　　　　２回目以降もエラーにならないですね。
　　　　どういう意図があるのかわからないですけど、
　　　　「テスト」という名前でファイル保存してしまえば、
　　　　　エラーにならないのではないでしょうか？
>　　wkbWorkBook.Windows(1).Caption = "テスト"
>　　wkbWorkBook.Worksheets(Sheet1.Name).Activate
>
>　　Exit Sub
>End Sub

wkbWorkBook.Windows(1).Caption = "テスト"
これをした場合、２回目の実行で、
>If Application.Windows(wkbbuff.Name).Visible = True Then '★
「wkbbuff.Name」の中身をみると「Book1」になってますが、
実際は、Book1というキャプションのウインドウがないので、エラーになってるような・・・
何故そうなるのかよくわからないですが・・・

また、ichinoseさんが適切なレスを入れてくださると思いますが、
ちょっと気が付いたことを書いてみました。
【20040】Re:Excelの起動状況
発言  ぴかる  - 04/11/25(木) 11:10 -
引用なし
パスワード
   こんにちは。

あたくし、実力不足と仕事の都合で対応はもう無理かなと思います。
ichinoseさん、つんさん、適切なレスよろしくネ！
スンマセン、失礼しま〜す♪
【20042】Re:Excelの起動状況
発言  つん E-MAIL  - 04/11/25(木) 14:05 -
引用なし
パスワード
   どもども。
再び、つなぎのつんです（＾＾;

>横から失礼しあｍす。
すごいタッチミスですね(>_<)

ちょっと時間があったので、いろいろ見てたのですが・・・
また気になったところが。

>>Public Sub Excel_macro()
　　　　　↓この変数使ってないですよね？
>>　　Dim obExcel As Object　　　 'Excelオブジェクト
>>　　Dim lBookNumber As Long　　 'ブック数カウント
>>　　Dim wkbbuff As Workbook　　 'バッファ
>>
>>10
>>　　'ブック数カウントを初期化する
>>　　lBookNumber = 0
>>　　'ワークブック数分ループする
>>　　For Each wkbbuff In Workbooks
>>　　　　'他のブックの名前が取得できる場合(他のブックがオープンできる場合)
>>　　　　If Application.Windows(wkbbuff.Name).Visible = True Then '★
>>　　　　　　'ブック数カウンタをインクリメントする
>>　　　　　　lBookNumber = lBookNumber + 1
>>　　　　End If
>>　　Next wkbbuff
>>20
>>　　'他のブックが既に開かれている場合
>>　　If lBookNumber > 1 Then
>>　　　　'警告メッセージオフにする
　　　　　　↓警告メッセージオフにしてますが、適当なところで
　　　　　　　オンに戻さないと・・・
>>　　　　Application.DisplayAlerts = False
>>　　　　'アプリケーションをクローズする
>>　　　　ActiveWorkbook.Close
>>　　End If
>>
>>　　'ワークブックを作成する
>>　　Set wkbWorkBook = Workbooks.Add
>
　　　↓ここで、
　　　wkbWorkBook.SaveAs (ThisWorkbook.Path & "\テスト.xls")
　　　のように、ファイル保存してみました。
　　　そしたら、２回目以降はエラーになりませんでした。
　　　しかし、２回目以降は、「テスト.xls」がアクティブになってるので、
　　　開いているブックが２つ以上ある場合に閉じられるブックは
　　　１回目のブックとは違ってきてますが、そんでええんですか？
>>　　wkbWorkBook.Worksheets(Sheet1.Name).Activate
>>
>>　　Exit Sub
>>End Sub
>

何度も失礼します。

ところで、ぴかるさん、おひさしぶりです〜＾＾
【20043】Re:Excelの起動状況
回答  yuu1  - 04/11/25(木) 15:09 -
引用なし
パスワード
   >ちなみに、このコードで発生します
>>　　　　If Windows(wb.Name).Visible = True Then

エラーの原因はCaptionを変えたにもかかわらずWindows(wb.Name)としてる
ためです。(wb.NameはCaptionではない)
対処としてはFor Each のループをWindowsでまわせばいいと思います。
WindowsのVisibleを判定するのにWorkbooksでまわす必要性がありません。
コードはいかのような感じでしょうか。

　Dim ww As Window
　For Each ww In Windows
　　If ww.Visible = True Then
　　　lBookNumber = lBookNumber + 1
　　End If
　Next
【20044】Re:Excelの起動状況
お礼  コウ  - 04/11/25(木) 15:49 -
引用なし
パスワード
   返信有難うございます。
教えて頂いたコードで不具合を解消することができました。
みなさんどうも有難うございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10756 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free