Excel の終了を確実に桐は待てないのでしょうかね？

桐側で無駄なループを回さないためには，Excel の
終了を完全に待てばよいのでしょうが，桐ではでき
ないとなると，結局外部ツールに頼らざるを得ない
わけで，そうなると VBS が手っ取り早いと思われ
ます。　(^_^ゞ　(;_;)

Excel の終了を待つイベントとなると次のように
なるでしょうか？
--------------------------------------------
For Each Process in GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery("SELECT * FROM Win32_Process WHERE NAME='excel.exe'")
    Call WaitExitExcel()
Next
WScript.Quit

Sub WaitExitExcel()
    Set Locator = WScript.CreateObject("WbemScripting.SWbemLocator")
                                                'SWbemLocatorオブジェクト作成
    Set oService = Locator.ConnectServer        'SWbemServicesオブジェクト取得

    On Error Resume Next                        'ここからエラー処理を有効に。
    Set oEvent = oService.ExecNotificationQuery _
                ("select * from __InstanceDeletionEvent within 1 " & _
                "where targetinstance isa 'Win32_Process' " & _
                "and targetinstance.Name = 'excel.exe' ")

    'イベントクラス(__InstanceDeletionEventクラス。
    'インスタンスの削除イベント)の作成。
    'within 1 …該当イベントを1秒間隔でポーリング
    'where targetinstance isa 'Win32_Process' …Win32_Processクラスのインスタンスを監視対象にする
    'targetinstance.Name = 'excel.exe' …インスタンス名が、excel.exeであるものを選ぶ

    Do
        WScript.Sleep 100                       'ループをまわしとく。100msec 待つ。
        Set oEvt = oEvent.NextEvent(500)
                                                'SWbemEventSourceオブジェクトのNextEventメソッド。
                                                '500msecでタイムアウトする。
        If Err.Number = -2147209215 Then        'タイムアウトすると、上記のエラー発生。
            Err.Clear
        Else                                    'エラーが発生しない場合は、正常に終了したということとなる。
            'MsgBox oEvt.TargetInstance.ExecutablePath & "が終了しました。"
                                                'SWemObject(__InstanceDeletionEventクラス)のTargetInstanceプロパティ
                                                'は、ターゲットインスタンスを返す。この場合はWin32_Processクラスのインスタンス。
             Exit Do
        End If
    Loop
End Sub
--------------------------------------------
で，桐側で「エクセル書き出し」した後に上記 VBS を
走らせ確実に Excel の終了するのを待ちますか？

・
・
・
エクセル書き出し "都道府県別住所録",&都道府県[&i],項目名行=する,上書き=する,開く=しない,終了状態=&終了
sh "excel_wait.vbs",プ=&秒
kill &秒
・
・
・

むらさんこんにちは

>桐Ver8 sp7の共有環境で（サーバ使用）処理中に、併合処理（一括処理）を行うと
>”ロールバック領域があふれました”のエラーメッセージが表示され、処理が中断されることがあります。
>原因と対処法について、アドバイスを頂ければ幸いです。  

残念ながら私は経験ありませんが、幅田さんのＢＢＳに過去に質問があってるようです

下記を参照下さい。下記アドレスが改行されてる場合は、続けてご利用下さい

http://www.fuku3.com/~habata/cgi-bin/namazu.cgi?query=%A5%ED%A1%BC%A5%EB%A5%D0%A5%C3%A5%AF&submit=%C1%B4%CA%B8%B8%A1%BA%F7%B3%AB%BB%CF%21&whence=0&max=20&result=normal&sort=score

　URL

E-Mail

E-Mail

E-Mail