|
お世話になります。
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':
インデックスが有効範囲にありません。
よろしくお願いいたします。
|
|