• ベストアンサー
※ ChatGPTを利用し、要約された質問です(原文:複数のブックを扱っているとエラーが出てしまいます)

エクセルで複数のブックを扱う際に発生するエラーの解決法

このQ&Aのポイント
  • エクセルで複数のブックを扱う際に「インデックスが有効範囲にありません」というエラーが発生する問題があります。片方のブックを使用している際にもう一方のブックを使用するとエラーが発生します。何か解決法はありますか?
  • エクセルで複数のブックを扱う際、アクティブブックを切り替えると「インデックスが有効範囲にありません」というエラーが発生します。一つのブックの場合はエラーが発生しないのですが、二つのブックを使用する場合に問題が発生します。解決法があれば教えてください。
  • エクセルのマクロ初心者です。二つのブックを開いて操作する際に「インデックスが有効範囲にありません」というエラーが発生してしまいます。解決法はありますか?

質問者が選んだベストアンサー

  • ベストアンサー
  • keithin
  • ベストアンサー率66% (5278/7940)
回答No.1

解決策1:推奨 >「Activebook」等のコード…などいろいろ試してみました お話の状況からすると,まだ試しが不十分です。 アナタの実際の具体的な「このマクロが上手く行きません,ここの行がよくエラーになって止まります」といった目に見える姿をキチンと情報提供し,そのどこが悪いのか,具体的な指摘を受け修正するのが一番の解決の早道です。 一回このご相談を終了し,改めて事実をキチンと示してご相談を投稿し直してください。 解決策2:次善 >二つのブックを開いて、シートの表から抽出などの操作をしています。  : >その二つのブックを頻繁にアクティブに切り替えながら作業をしようとしているのです 手順: 一つめのブックをエクセルで開き,マクロを動かしながら作業します。 ウィンドウズのスタートメニューからエクセルをもう一回起動します。 新しく開いたエクセルで2つ目のブックを開き,マクロを動かしながら作業します。

noname#256688
質問者

お礼

早速のご回答ありがとうございました。おっしゃる方法で試したところ、エラーは出ませんでした。マクロを確認したところ二つのブックの「「vba プロジェクト」が同系列に入っていなく、開いたエクセルで独立されておりました。 こんな方法があったのですね! アイコンショートカットで開くことができないのが少々慣れないですが、いまのところのベターな方法として行ってみようと思います。 たいへんありがとうございました。 感謝いたします。

全文を見る
すると、全ての回答が全文表示されます。

関連するQ&A

  • 複数のブックを開いているとエラーが出てしまいます

    エクセルのマクロ初心者でたいへん恐縮です。質問の仕方が悪ければお詫び申し上げます。  エクセルでそれぞれ違うマクロが記録された二つのブックを開いて、シートの表から抽出などの操作をしています。例えば、(1).xlsと (2).xlsにはそれぞれ部品表のようなリストを含めて3つのシートがあります。その二つのブックを頻繁にアクティブに切り替えながら作業をしようとしているのですが、片方を使っていると別のブックを使った時に「インデックスが有効範囲にありません」というエラーが出て、アクティブブックとは違うシートを読み込んでしまっているようです。 ちなみにブックを一つだけ開いて操作している時は全くエラーはでません。二つのブックを扱っている時だけです。マクロはエンターを押すと実行されるようになっており、一方を実行するともう片方のブックでエラーが出てしまいます。 その二つのブックのコードでエラー(黄色く表示)になるのは以下の★~★の部分です。 ------------------------------------------------------------------------------------ <(1).xlsのマクロ> Sub Auto_Open() ' Auto_Open Macro ActiveSheet.Unprotect ' ★Sheets("パッキンリスト").Columns("B:N").AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Range("B2:B3"), CopyToRange:=Range("検索出力表!Extract"), Unique _ :=False★ ActiveWindow.SmallScroll Down:=-28 Range("C19:N19").Select Selection.Copy Range("D3:E14").Select Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _ xlNone, SkipBlanks:=False, Transpose:=True ActiveWindow.SmallScroll Down:=4 Rows("21:21").Select Range(Selection, Selection.End(xlDown)).Select Application.CutCopyMode = False Selection.Delete Shift:=xlUp ActiveWindow.ScrollRow = 1 Range("B3").Select Application.OnKey Key:="{RETURN}", Procedure:="Auto_Open" Application.OnKey Key:="{ENTER}", Procedure:="Auto_Open" ActiveSheet.Protect UserInterfaceOnly:=True End Sub ----------------------------------------------------------------------------------- <(2).xlsのマクロ> Sub Auto_Open() ' Auto_Open Macro ActiveSheet.Unprotect If Range("B3").Cells = "" Then MsgBox "  ☆ パーツNo,が未入力です。" ActiveSheet.Protect UserInterfaceOnly:=True Exit Sub End If ★Sheets("パーツリスト").Columns("C:G").AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Range("B2:B3"), CopyToRange:=Range("B20:E20"), Unique:= _ True★ Range("C21:E21").Copy Range("D3:E5").Select Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _ xlNone, SkipBlanks:=False, Transpose:=True ActiveWindow.ScrollRow = 1 Application.OnKey Key:="{RETURN}", Procedure:="Auto_Open" Application.OnKey Key:="{ENTER}", Procedure:="Auto_Open" ActiveSheet.Protect UserInterfaceOnly:=True End Sub ------------------------------------------------------------------------------------  二つのブックを開いて、下のタスクバーでブックを切り替えて操作してもお互いが干渉せずそれぞれのブックのプログラムがエラー無く動くようにしたいのですが、 もし、何か解決法などございましたらご教授いただければ幸いです。 何卒よろしくお願い申し上げます。

  • 複数のブックのデータを一つのブックにまとめたい

    http://t_shun.at.infoseek.co.jp/My_Page/Excel-VBA/vba_page1.htm ↑の 7. 指定したフォルダ内にあるExcelファイルを検索して開く の部分のマクロを利用して、集計.xlsというブックで、複数のブックを開くようにしましたが、そのブックを開いた時にそのブックのSheet2の中のデータのみコピーして、集計.xlsに貼り付けたいのですが、どのようにすればよいのか困っています。 指定したフォルダの中には、回答01.xls 回答02.xls ・・・と16個のブックがあります。順番に開いてコピーをするときに、どのようにブック名とシート名を指定すればよいのかわからず困っています。 何か参考になるものがあれば教えてください。 よろしくお願いします。

  • ブック間のシート移動

    EXCEL VBA初心者です。 ブックAのシートAをブックBのシートの一番左側に移動させようと思います。 以下を実行するとエラーが出ますがなぜでしょうか? エラーの原因と対策方法を教えて下さい。 Sub シート移動() Worksheets("シートA").Move _ Before:=Workbooks("ブックB.xls").Sheets(1) End Sub ブックAはブック名が毎回変わります。 ブックAはメール添付を開いたブックです。 ブックAはシートがシートAしかありません。 シートAは名前が変わりません。 マクロコードはブックBあるいは個人用マクロブックに置きます。 よろしくお願いします。

  • 複数のExcelブックから特定シートの特定セル抽出

    同一フォルダ内にある複数のExcelブックから特定シートの特定セル値を抽出して一覧表にまとめるExcel マクロ(VBA)を教えてください。 よく似ている質問、回答を読んだのですが、私のレベルではとても応用できず質問させていただきます。 全く同じものがあれば、そのアドレスを回答いただくだけでも助かります。 【前提】 ・実行する端末のOSはWindows XP(SP3)、Excelは2003 ・対象フォルダはネットワーク接続フォルダ「\\share\target」  この中に、複数のExcelブックがあります。 ・抽出したい対象は、各ブック内の「概要」シートの「C3」セルで統一されています。 【抽出一覧作成イメージ】 ・「集約.xls」ブックの「Sheet1」の2行目から抽出した結果を一覧表示する。 ・表示はA列に抽出元ブック名(=ファイル名)、B列に抽出元C3セルの値。 ・C3セル値を「集約.xls」ブックの「Sheet1」に貼り付ける際には「値で貼り付ける」が望ましい。 というようなイメージです。 とても勝手なお願いではありますが、宜しくお願いいたします。

  • Excel2007VBA ブックのアクティブ化

    ●質問の主旨(2点) 1.以下のコードは、なぜエラーが返されるのでしょうか? 2.タスクバーにあるアクティブ状態ではないブックの1枚目シートを 選択するためには、以下のコードをどのように書き換えれば良いでしょうか? ●質問の補足 タスクバーにはエクセルブック「Book1」と「Book2」を表示させ、 「Book1」の「sheet1」がアクティブになっています。 Book1の標準モジュールに以下のコードを記述しています。 Sub sample1() Workbooks("Book2.xlsx").Activate Worksheets("sheet1").Select End Sub しかし実行すると「実行時エラー9インデックスが有効範囲にありません」と エラーが返されます。なぜそうなるのかが分かりません。 ご存知の方がいらっしゃればご教示よろしくお願い申し上げます。 私はVBA初心者です。

  • 一つのブックで作成したマクロを複数のブックにコピーするには?

    OSはXP_SP2、EXECEのバージョンは2003です。 (たとえば) D:\testというフォルダに1.xlsから2000.xlsというシート構成同一のブックが2000個あるとします。 「1.xls」のThisWorkbookにprivate subマクロを作成してテストを行い、 その後、2.xls~2000.xlsまでのブックのそれぞれのThisWorkbookにそのマクロを一気にコピーするとかの方法があるのでしょうか?

  • 複数のエクセルブックから特定シートの特定セル抽出

    同一フォルダ内にある複数のExcelブックから特定シートの特定セル値を抽出して一覧表にまとめるExcel マクロ(VBA)を教えてください。 よく似ている質問、回答を読んだのですが、私のレベルではとても応用できず質問させていただきます。 【前提】 ・実行する端末のOSはWindows XP(SP3)、Excelは2003 ・対象フォルダはネットワーク接続フォルダ「\データ解析\データ」  この中に、複数のExcelブックがあります。 ・抽出したい対象は、各ブック内のシート(シート名はファイル名と同じ)の「BO6からBW16までの□の範囲」で統一されています。 【抽出一覧作成イメージ】 ・「集計.xls」ブックの「Sheet1」の2行目から抽出した結果を一覧表示する。 ・表示はA列に抽出元ブック名(=ファイル名)、B列に抽出元BO6セルの値。以降,C列・D列と 順に値を入れていきたい。 ・BO6~BW16までのセル値を「集計.xls」ブックの「Sheet1」に貼り付ける際には「値で貼り付ける」が望ましい。 というようなイメージです。 とても勝手なお願いではありますが、宜しくお願いいたします。

  • マクロで、別ブックのデータを、既存ブックの一欄に

    マクロで以下のような操作をしたいと思っております。 どのようなコードを書けばよろしいでしょうか。ご教授ください。 【顧客データ一覧.xls】というブックのシート1に顧客データ一覧表があります。 同ブックのシート1上部にコマンドボタンを作成し、ボタン押下で以下のような操作を行いたい 1.ファイルダイアログを開いて、【顧客データひとり分.xls】というブックを選択 2.【顧客データひとり分.xls】に入力されているデータを、【顧客データ一覧.xls】の顧客データ一覧表の末尾に、コピーして追加・上書保存 顧客データひとり分はセル(3,4)に年齢が入力されている等、入力箇所は固定です。 3.顧客データひとり分.xlsは閉じて、更新された顧客データ一覧.xlsを表示させる よろしくお願いいたします。マクロは作成したことがありますが、何年もブランクがあり、かなり忘れてしまいました・・・。 と、エクセル2003以来久しぶりに操作ですので、エクセルそのものに大変戸惑っております。。。実力不足でお恥ずかしいのですが、お力をお借りできれば幸いです。

  • Excel2010マクロ有効ブックを開く際のエラー

    いつもお世話になっています。 ちょっと長いご相談ですがよろしくお願いいたします。 Office2003、2007、2010をインストールしているPCで Excel2010でマクロ有効ブック(.xlsm)を開く際にエラーが表示されてしまいます。 インストールは下位バージョンから順に入れました。 3バージョンをインストール後、数時間は普通に使えていたのですが、 保存されているブックをダブルクリックで開くと、デフォルト2007で開くようになってしまったので ファイルの関連付けを手動で修正したところ Excel(.xlsx)を開く際に下記エラーが表示されるようになってしまいました。 「C:¥Documents.xlsが見つかりません」  →[OK]をクリック→さらに次のメッセージが表示 「and.xlsが見つかりません」  →[OK]をクリック→さらに次のメッセージが表示 「Settings\(ユーザー名)¥My.xlsが見つかりません」  →[OK]をクリック→さらに次のメッセージが表示 「Documents¥(ファイル名).xlsが見つかりません」 マイクロソフトのサポートに事例があったので、参考にレジストリキーを修正しました。 (ファイルの種類の [開く] アクションに意図的に %1 を追加した場合、レジストリ キーに %1 が追加され、%1 を [開く] アクションのエントリから削除してもレジストリ キーは変更されず、手動で編集する必要があるそうです)  http://support.microsoft.com/kb/207574 レジストリキーは「HKEY_CLASSES_ROOT\Excel.Sheet.8\shell\Open\command」とありますが2010のため「Excel.Sheet.12」を修正しました。 マクロが含まれていないブック(.xlsx)はエラーは表示されなくなり、 デフォルト2010で開くようになったのですが マクロ有効ブック(.xlsm)を開く際、上記エラーが表示されてしまいます。 マイクロソフトのサポートページでは、マクロブックには触れておらず どうしたらよいのかわからずにいます。 同じような現象をご存知の方いらっしゃいましたら解決策を教えてください。 よろしくお願いいたします。

  • エクセル:複数ブックをマクロを使い同一条件で集約・抽出したい

    教えて下さい 複数のエクセルブックがあります(全て1フォルダーに集約してある) それぞれA列に日付、B列に金額が入っている 複数あるブックを指定する日付で次から次へと検索しその金額とファイル名を新しいブックに縦に全てコピー(抽出)したい ちなみに、必ず条件にあうデータがそれぞれのブックにあるとは限りません 無い場合もあります 無い場合は特に抽出する必要はありません ========================================================= 例:2007/12のデータを抽出したい ★抽出結果イメージ    A      B    C 1 2007/12   200   ああああ.xls 2 2007/12   300   いいいい.xls 3 2007/12   100   うううう.xls 4   ・      ・      ・ 5   ・      ・      ・ 6   ・      ・      ・ 7   ・      ・      ・ ========================================================= このような場合、マクロでできますか?マクロは初心者です 教えてください よろしくお願いします 複数あるブックとは数的に60とかあります ちなみに現状はファイルを一つ一つ開き、指定日付を検索し見つけだし その行をコピーペーストしています たくさんブックがあるので、これをしていると目がチカチカしてきてしまいます この作業がマクロでできると、すごく感激なのですが・・・ どなたか、お知恵・お力をおかしくださいませ

このQ&Aのポイント
  • 「スキャンできませんA5」の表示がでてきます。電源を入れなおすと、「同じファイル名があります。ファイル名を変えてください」と出ます。ファイル名を変えても「スキャンできませんA5」の表示がでてきます。コピーはできます。PCと連携していません。スキャンしてUSBメモリーに保存している操作中に発生したエラー表示です。
  • 「MFC-J7100CDW」でスキャンする際に「スキャンできませんA5」のエラー表示が出る場合、電源を入れなおしても解決しないことがあります。また、「同じファイル名があります。ファイル名を変えてください」というエラーも表示される可能性があります。この問題はPCとの連携ができていない場合に発生し、コピーは正常に行えることが報告されています。さらに、USBメモリーに保存する際にもエラーが発生することもあります。
  • 「MFC-J7100CDW」でのスキャン時に「スキャンできませんA5」のエラーが表示されて困っている場合、電源を再度入れ直しても解決しない可能性があります。さらに、「同じファイル名があります。ファイル名を変えてください」というエラーメッセージも表示されることがあります。この問題はPCとの連携ができていない状態で発生することが多く、コピーは正常に行えることが報告されています。USBメモリーに保存する際にも同様のエラーが発生することがあります。
回答を見る

専門家に質問してみよう