tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]　 [ワード検索]　 [Home]

タイトル ： Re: EXCELの作業中を強制終了させたい
投稿日： 2008/11/06(Thu) 15:58
投稿者： まつ
>    For Each ex_wbook In xlApp.Workbooks     'ブック分ループ
>      If ex_wbook.Name = "帳票.xls" Then     '帳票.xlsが起動中なら
>        xlApp.DisplayAlerts = False          '問合せを非表示に設定
>        ex_wbook.Close                        'Book を閉じる
>        xlBook_flg = 1                       'フラグセット
>      End If
>    Next ex_wbook
>
> VBから強制的にセルの作業中を終了させ、メッセージがでることなく
> プログラムを動かすことはできないのでしょうか？
> 宜しくお願い致します。

SendKeysを使うと終了させる事ができました。

For Each ex_wbook In xlApp.Workbooks            'ブック分ループ
    If ex_wbook.Name = "帳票.xls" Then          '帳票.xlsが起動中なら
        AppActivate "Microsoft Excel", True     'Excelをアクティブ
        xlApp.SendKeys "{ESC}", True            'ESCキーを送る
        xlApp.DisplayAlerts = False             '問合せを非表示に設定
        xlApp.ActiveWorkbook.Close              'Book を閉じる
    End If
Next ex_wbook
- 関連一覧ツリー （ をクリックするとツリー全体を一括表示します）

古いスレッドにレスはつけられません。