tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]  [ワード検索]  [Home]

タイトル 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のプロセスを
終了させる事ができました。

今回、私の参考不足のせいで、煩わしい思いをさせてしまい申し訳ありませんでした。
この先質問させていただく事もあるかと思いますが、今後気をつけますので宜しくお願い致します。

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。