| 
    
     |  | お世話になります。 VBA初心者ですが、よろしくお願いいたします。
 No.8726(http://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=8726;id=excel)あたりで
 複数のEXCELアプリに関する記述をみかけたので、過去ログにもあるのかもしれませんが、
 検索で見つけられなったので質問させていただきます。
 
 book2.xlsに配置されたボタンを押下するとbook1.xlsのセルを参照するプログラムを作成しました。(下記)
 期待通り動作する場合と動作しない場合があります。
 動作しない場合は、実行時に下記のエラーメッセージが表示されます。
 
 1.【動作するケース】…1つのEXCELウィンドウで、book1.xlsとbook2.xlsを開いている場合。
 2.【動作しないケース】…2つのEXCELウィンドウで、book1.xlsとbook2.xlsを開いている場合。
 
 今回のソフトは、2.の状態で動作させなければならないのですが、
 どのようなコードをかけばよいのか、教えてください。
 
 ' --- ↓↓↓ VBAのコード ---
 
 > Sub ボタン1_Click()
 >
 > Dim strCell As String
 > strCell = Excel.Application.Workbooks("book1.xls").Worksheets("sheet1").Cells(1, 1).Value
 >
 > End Sub
 
 ' --- ↓↓↓ エラーメッセージ ---
 
 実行時エラー'9':
 インデックスが有効範囲にありません。
 
 
 よろしくお願いいたします。
 
 |  |