タイトル : Re^5: Excelのプロセス 投稿日 : 2007/03/05(Mon) 16:36 投稿者 : Jack
こんにちは。 とりあえず、以下のようにソースを書き換えてみたところ タスクマネージャから消えるタイミングが早くなりました…(謎) こんな感じでよろしいのでしょうか? Dim objExcel As Excel.Application Dim objBooks As Excel.Workbooks Dim objBook As Excel.Workbook Dim objWsheets As Excel.Sheets Dim objWSheet As Excel.Worksheet Dim objRangeA As Excel.Range Dim objRangeB As Excel.Range Dim strName As String '開くファイルのパスを入力する MsgBox("出力する帳票を選択して下さい!", MsgBoxStyle.Information, "確認") objExcel = CreateObject("Excel.Application") strName = objExcel.GetOpenFilename("Excelファイル (*.xls), *.xls") objBooks = objExcel.Workbooks() objBook = objBooks.Open(strName) objWsheets = objExcel.Sheets() objWSheet = objWSheets("Sheet1") objRangeA = objWSheet.Cells objRangeB = objRangeA(1, 1) objRangeB.Value = "TestTestTest" objExcel.Quit() System.Runtime.InteropServices.Marshal.ReleaseComObject(objRangeA) System.Runtime.InteropServices.Marshal.ReleaseComObject(objRangeB) System.Runtime.InteropServices.Marshal.ReleaseComObject(objWsheets) System.Runtime.InteropServices.Marshal.ReleaseComObject(objWSheet) System.Runtime.InteropServices.Marshal.ReleaseComObject(objBook) System.Runtime.InteropServices.Marshal.ReleaseComObject(objBooks) System.Runtime.InteropServices.Marshal.ReleaseComObject(objExcel) objRangeA = Nothing objRangeB = Nothing objWSheet = Nothing objWsheets = Nothing objBook = Nothing objBooks = Nothing objExcel = Nothing MsgBox("出力終了", MsgBoxStyle.Information, "報告") |