複数のEXCEL間によるシートコピーを行なった後に閉じる際、
タスクが残ってしまう現象が起こってしまいました。
複数のBookを開く場合、処理は特殊な事をしなければならな
いのでしょうか？

アドバイスをお教えていただきたいです。
よろしくお願いします。

以下処理です。

        Set myXlsAPP = CreateObject("Excel.Application")
        Set myExcel1 = myXlsAPP.Workbooks.Open(NewFileName)
        Set myExcel2 = myXlsAPP.Workbooks.Open(myFileName)

        '/* エクセルの環境設定 */
        myXlsAPP.Application.Windows(1).Visible = True
        myXlsAPP.DisplayAlerts = False

　　　　'/* シートコピー */
        Windows(myExcel2.Name).Activate
        myExcel2.Sheets("様式３ 製品データシート").Select
        myExcel2.Sheets("様式３ 製品データシート").Copy After:=Workbooks(myExcel1.Name).Sheets(1)
        
        myExcel1.Sheets("様式３ 製品データシート").Select
        ActiveWindow.SelectedSheets.Delete
        Sheets("様式３ 製品データシート (2)").Select
        Sheets("様式３ 製品データシート (2)").Name = "様式３ 製品データシート"
        Range("A1").Select
        
        myXlsAPP.Visible = True
        myExcel2.Save
  
        '/* エクセルの終了・オブジェクトの開放 */
        myExcel1.Close
        myExcel2.Close
        myXlsAPP.Application.Quit
        Set myXlsAPP = Nothing
        Set myExcel1 = Nothing
        Set myExcel2 = Nothing

環境 WIN2000 VB6

> 複数のEXCEL間によるシートコピーを行なった後に閉じる際、
> タスクが残ってしまう現象が起こってしまいました。
> 複数のBookを開く場合、処理は特殊な事をしなければならな
> いのでしょうか？

このサイトのExcel＆Word関係にある、
【VBからExcel及びWordを操作する時の注意事項】を参考にされてはいかがでしょうか？

多分、myXlsAPPやワークブックオブジェクトを省略していることが
原因じゃないでしょうか？

> 多分、myXlsAPPやワークブックオブジェクトを省略していることが
> 原因じゃないでしょうか？
まったくその通りでした。
単純な私のミスでした申し訳ありません。

言い訳にはなりませんが、ワークブックオブジェクトの参照は何度も
チェックしていたのですがExcel.Applicationの参照はすべて抜けて
いた様です。

batchman様どうもありがとうございました。