タイトル : Re^3: Excelのプロセスが正常に終了しない 投稿日 : 2006/09/29(Fri) 01:19 投稿者 : oka
結果の方ご報告させていただきます。 最初に書かせていただきました 'エクセルシート内から対象のシェイプを取得する。 '******************************************************* intSheetShapeCount = xlSheet.Shapes.Count For i = 1 To intSheetShapeCount For j = 1 To xlSheet.Shapes.Item(i).GroupItems.Count '↓このif文のところが原因と思われます。 '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% If xlSheet.Shapes.Item(i).GroupItems.Item(j).Name = "テキスト Name1" Then '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% NSyori End If Next Next '******************************************************** の部分ですが、ご指摘いただいたように↓のように修正し、 '********************** intSheetShapeCount = xlShapes.Count For i = 1 To intSheetShapeCount xlShape = xlShapes.Item(i) xlGroupItems = xlShape.GroupItems For j = 1 To xlGroupItems.Count xlGroupItem = xlGroupItems.Item(j) If xlGroupItem.Name = "テキスト Name1" Then GoTo NSyori End If Next Next '********************** それらに対して「Marshal.ReleaseComObject() 」を実行する事によって、Excelのプロセスを 終了させる事ができました。 今回、私の参考不足のせいで、煩わしい思いをさせてしまい申し訳ありませんでした。 この先質問させていただく事もあるかと思いますが、今後気をつけますので宜しくお願い致します。 |