Accessから呼び出したExcelの入力状態を解除したい

解決済

質問者：tom7net
質問日時：2008/07/23 15:30
回答数：1件

WinXP-pro
Access 2003 (Excel 2003)

お世話になります。
以下のコードで、AccessのフォームからExcelファイルを開きます。

～～～～～～～～～～～～～～～
Dim obj As Object
Set obj = CreateObject("Excel.Application")
obj.Visible = True
obj.Workbooks.Open Application.CurrentProject.Path & "test.xls"
～～～～～～～～～～～～～～～

新しく開かれたtest.xlsファイルの上で入力を行い、Accessに戻ってフォーム上にあるボタンをクリックし、Excelファイルを閉じる処理までを行います。

問題はExcel操作中にセル上で「F2キー」を押下すると、入力状態になると思います。
この状態の時にAccess側で「obj.Quit」や「obj.cells(1, 1).select」のようなExcelへの操作を行おうとすると、ExcelとAccessの間で「ビジー状態である」と警告が表示され、処理が固まってしまいます。

Excelが入力状態であることが問題のようですので、入力を解除してやれば良いと思うのですが、この方法がわからず詰まっております。

入力状態解除の方法、もしくはこのようなフリーズ状況が回避できる方法がないものでしょうか。

よろしくお願いいたします。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

このQ&Aに関連する最新のQ&A

「Excel 問題」に関するQ&A： Word、Excelの問題集

さらに表示

「以下エクセル」に関するQ&A：エクセル　IF文　範囲の中に　以上　以下の数値がある場合

「アクセスコード」に関するQ&A： Accessの画像挿入のVBAコード

「問題エクセル」に関するQ&A：エクセル使用後にクローズする時の問題点

「キーアクセス」に関するQ&A：キーワード検索だけでアクセス解析されるのでしょうか

「excel」に関するQ&A：難易度が非常に高いExcelの重複チェック関数

回答 (1件)

ベストアンサー優先
最新から表示
回答順に表示

No.1ベストアンサー

回答者： KenKen_SP
回答日時：2008/07/23 16:52

> 問題はExcel操作中にセル上で「F2キー」を押下すると、入力状態になると思います。

とりあえず、Access 側で AppActivate で Excel をアクティブにし、
SendKeys で Enter キーを２回送信してみてはどうでしょう？

正直に言うと、おやりになりたいことがイメージできません。

> 新しく開かれたtest.xlsファイルの上で入力を行い、Accessに戻って
> フォーム上にあるボタンをクリックし、Excelファイルを閉じる処理

という仕様ですから、

　　セルの編集終了--（手動操作）--＞ Access 側ボタンクリック --> Excel 閉じる

という過程で「セルの編集中」というのは問題にならないと思いますが。
セルの編集状態を解除してから、Access 側のボタンをクリックすれば
良いだけなのでは？

Excel のデータ入力中は、Access 側は待機状態なのですよね？なぜ

> この状態の時にAccess側で「obj.Quit」や「obj.cells(1, 1).select」
> のようなExcelへの操作を行おうとすると

といった状況が発生するのでしょうか？

この回答への補足

>とりあえず、Access 側で AppActivate で Excel をアクティブにし、
>SendKeys で Enter キーを２回送信してみてはどうでしょう？
ありがとうございます、試してみます。

>セルの編集終了--（手動操作）--＞ Access 側ボタンクリック --> Excel 閉じる
>という過程で「セルの編集中」というのは問題にならないと思いますが。
>セルの編集状態を解除してから、Access 側のボタンをクリックすれば
>良いだけなのでは？
>Excel のデータ入力中は、Access 側は待機状態なのですよね？なぜ
>> この状態の時にAccess側で「obj.Quit」や「obj.cells(1, 1).select」
>> のようなExcelへの操作を行おうとすると
>といった状況が発生するのでしょうか？

本来はExcelで編集状態を解除してから、Accessのフォームに戻ります。
ただ、Excelで値だけ打ち込んで、ENTERキーなどで決定をしないままAccessフォームに戻ってくるなどの操作が考えられるため、例外処理として対処をしたいと思った次第です。

なんか見当違いな事書いてましたらすいません。

補足日時：2008/07/23 18:11

通報する

- 0
- 件

通報する

この回答へのお礼

解決しました。
AppActivateでは上手く動かすことができませんでしたので、WinAPIからSetForegroundWindowを利用しました。

事前にExcelのハンドルを取得しています。

～～～～～～～～～～～～～～～
Dim handle AS Long
Dim obj As Object
Set obj = CreateObject("Excel.Application")
obj.Visible = True
obj.Workbooks.Open Application.CurrentProject.Path & "test.xls"
handle = obj.hwnd
・
・
・
SetForegroundWindow handle
SendKeys "{ENTER}", True
SendKeys "{ENTER}", True
～～～～～～～～～～～～～～～

objにアクセスするだけで固まってしまうので、このような方法を取ってみました。
もっとスマートな方法や回避策はあると思いますが、希望通りの動作になりましたので、これでクローズさせていただきます。

アドバイスありがとうございました。