エクセルのプロセス終了について このままでは、プロセスが残ってしまいます。vb2005です。ご教授願います。 シート"sample"をコピーして、同じブックに"まとめ12月"として、追加したいのです。 よろしくお願いします。 Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet '--------------------- ' EXCELファイルを開く '--------------------- Dim strFilename As String 'ファイル名(フルパス) strFilename = "C:\WORK\SAMPLE.XLS" 'ファイル名をセット Dim strSheetName As String 'シート名 strSheetName = "sample" 'シート名をセット xlApp = CreateObject("Excel.Application") 'Application生成 xlApp.Workbooks.Open(Filename:=strFilename, UpdateLinks:=0) 'EXCELを開く xlApp.Visible = True 'EXCELの表示 xlBook = xlApp.Workbooks(Dir(strFilename)) 'Workbook xlSheet = xlBook.Worksheets(strSheetName) 'Worksheet xlSheet.Activate() 'シートをアクティブにする xlBook.Worksheets("sample").Activate() 'シートをアクティブにする 'シートのコピーを、シート(sample) の前に挿入する xlSheet.Copy(Before:=xlBook.Worksheets("sample")) xlBook.ActiveSheet.Name = "まとめ12月" '================================================================== '終了処理 '保存時の問合せを非表示に設定転載禁止 xlApp.DisplayAlerts = False 'Worksheet を名前をつけて保存します転載禁止 xlSheet.SaveAs(strFilename) 'オブジェクトを解放します xlSheet = Nothing xlBook.Close() 'Book を閉じる xlBook = Nothing xlApp.Quit() 'Quit メソッドを使って Excel を終了します。 xlApp = Nothing