タイトル : Re^3: Excelのプロセスが終了しない 投稿日 : 2005/04/04(Mon) 13:51 投稿者 : 花ちゃん
> しかも、デバッグのためにxlCells以外のところを全てコメントアウトしてもダメでした。 だったらそれ以外にもまずいところがあるのでは。 キチンと終了するところまでコメント化してみて下さい。 (起動と終了だけのプログラムでキチンと終了していますか) ここのサンプル参照。 # 返信がすぐにできない理由があるのなら質問の時に記入しておいて下さい。 最初のコードの If row_cnt > 5 Then 〜 End If の部分をコメント化すれば プロセスがキチンと終了するのではなかったのですか? If 文のところを下記にように変数に受けてReleaseComObject して見てください。 (下記はとりあえず試すのに使っただけで貴方のやりたい事とは違うかもしれません) If row_cnt > 5 Then Dim xlRange1 As Excel.Range Dim xlRange2 As Excel.Range Dim xlRows As Excel.Range xlRows = xlSheet.Rows xlRange1 = xlRows(row_cnt - 1) xlRange1.Copy() xlRange2 = xlRows(row_cnt) xlRange2.Insert() xlApp.CutCopyMode = False xlRange2.ClearContents() System.Runtime.InteropServices.Marshal.ReleaseComObject(xlRows) System.Runtime.InteropServices.Marshal.ReleaseComObject(xlRange1) System.Runtime.InteropServices.Marshal.ReleaseComObject(xlRange2) End If |