Excel VBA質問箱 IV

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

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


61315 / 76732 ←次へ | 前へ→

【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

一度このマクロを実行後、"テスト"ブックが作成された後、マクロ搭載ブックと"テスト"
ブックがある状態で再びマクロを起動すると★印のところで"インデックスが有効範囲
にありません"のエラーが発生します。
よろしくお願いします。

0 hits

【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 お礼

61315 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free