投稿日	： 2002/10/16(Wed) 10:58
投稿者	： kai
Ｅメール	：
ＵＲＬ	：
タイトル	： 複数Book起動時の制御

複数の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

★ - 複数Book起動時の制御 - kai 10/16-10:58No.1022
• Re: 複数Book起動時の制御 - batchman 10/16-11:04 No.1023
  • Re^2: 複数Book起動時の制御 - kai 10/16-11:48 No.1024