Re[6]: Excel Com オブジェクトの増殖 - DOBON.NETプログラミング道掲示板

DOBON.NETプログラミング道掲示板

■35255 / 6階層)

　Excel Com オブジェクトの増殖

□投稿者/ 魔界の仮面弁士大御所(1494回)-(2022/11/28(Mon) 06:16:23)

■No35251に返信(たこさんの記事)
> 問題は無い様に思えるのですが…
Friend Sub WorkSheet_Select には、もう一つ問題点がありそうです。

> If Not check Then
> 　　_xlsWorkSheet = CType(xlsSheets.Add(), Excel.Worksheet)
> 　　xlsWorkSheet.Name = strSheetName
> Else
> 　　_xlsWorkSheet = CType(xlsSheets(strSheetName), Excel.Worksheet)
> End If
これだと、「以前に _xlsWorkSheet が参照していた COM オブジェクト」が
解放されなくなってしまいます。

No35247 において、解説の最後に
>> Dim y As Excel.Workbooks = x.Workbooks
>> Dim z As Excel.Workbooks = x.Workbooks
という実験コードを書いていますが、この場合、VBA や VBS とは異なり、
.NET においては y と z が別インスタンスとなることに注意が必要です。

この場合、COM の参照カウントは y と z それぞれに対して減じねばなりません。
y と z の両方を RelaseComObject した場合と、どちらか一方しか
解放しなかった場合とで、Excel の残存性を確認してみてください。

仮に同一インスタンスを返す仕様であったとしたら、
　Trace.WriteLine(Marshal.ReleaseComObject(z))　'ア
　Trace.WriteLine(Marshal.ReleaseComObject(y))　'イ
において、ReleaseComObject の戻り値から得られる残存参照カウント数が
「イ = ア - 1」の関係となるはずですが、実際には別インスタンスであるため
「イ = ア」な戻り値で返されていると思います。

違反を報告

上記関連ツリー
前の記事(元になった記事)	次の記事(この記事の返信)
←Re[5]: Excel Com オブジェクトの増殖 /たこ	返信無し
Excel Com オブジェクトの増殖 / たこ (22/11/27(Sun) 04:14) #35241
`└` Re[1]: Excel Com オブジェクトの増殖 / 魔界の仮面弁士 (22/11/27(Sun) 08:37) #35244
`└` Re[2]: Excel Com オブジェクトの増殖 / たこ (22/11/27(Sun) 10:59) #35245
`├` Re[3]: Excel Com オブジェクトの増殖 / 魔界の仮面弁士 (22/11/27(Sun) 11:36) #35247
`│└` Re[4]: Excel Com オブジェクトの増殖 / 魔界の仮面弁士 (22/11/27(Sun) 11:43) #35248
`└` Re[3]: Excel Com オブジェクトの増殖 / 魔界の仮面弁士 (22/11/27(Sun) 12:56) #35249
`└` Re[4]: Excel Com オブジェクトの増殖 / たこ (22/11/27(Sun) 16:46) #35250
`├` Re[5]: Excel Com オブジェクトの増殖 / たこ (22/11/27(Sun) 19:11) #35251
`│├` Re[6]: Excel Com オブジェクトの増殖 / 魔界の仮面弁士 (22/11/27(Sun) 22:56) #35253
`│└` Excel Com オブジェクトの増殖 / 魔界の仮面弁士 (22/11/28(Mon) 06:16) #35255 ←Now
`└` Re[5]: Excel Com オブジェクトの増殖 / 魔界の仮面弁士 (22/11/27(Sun) 22:32) #35252
`└` Re[6]: Excel Com オブジェクトの増殖 / radian (22/11/28(Mon) 11:57) #35256
`└` Re[7]: Excel Com オブジェクトの増殖 / たこ (22/11/28(Mon) 22:38) #35257
`└` Re[8]: Excel Com オブジェクトの増殖 / たこ (22/11/28(Mon) 23:06) #35258
上記ツリーを一括表示 / 上記ツリーをトピック表示
上記の記事へ返信

入力内容にタグは利用できません。
引用部分（行頭に「>」や「■」が付いている部分）が全体の 80% 以上のコメントは投稿できません。

半角カナは使用しないでください。文字化けの原因になります。
削除キーを覚えておくと、自分の記事の編集・削除ができます。
記事中に No*** のように書くとその記事にリンクされます(No は半角英字/*** は半角数字)。
- 使用例)
- No123 → 記事No123の記事リンクになります(指定表示)。
- No123,130,134 → 記事No123/130/134 の記事リンクになります(複数表示)。
- No123-130 → 記事No123～130 の記事リンクになります(連続表示)。

投稿前に必ずお読みください

初めて投稿される方は、必ず「書き込みのルールについて（12/4/2更新）」をお読みください。読むのが面倒、ルールを守りたくないという方は、「お気楽掲示板」へ投稿してください。
質問を投稿する場合は、「質問をする際のアドバイス」を参考にしてください。
投稿は、明記のない限り、パブリックドメインになります。
マルチポストされた投稿を報告する時は匿名で投稿し、マルチポストされている場所を併記してください。以下のリンクをクリックしていただくと、自動で下のフォームが埋まりますので、その後「送信」ボタンを押してご投稿ください。
- マルチポストの報告をする
- マルチポストの報告をするが、マルチポスト先の投稿が嫌がらせである（元の投稿者とは別人が行なっている）可能性が高い（投稿日時に開きがあり、こちらの投稿の方が早い場合は、その可能性が高いです）

Name	/
E-Mail	/
Title	/
URL	/
Comment/ 通常モード->　図表モード-> (適当に改行して下さい/半角10000文字以内) ■No35255に返信(魔界の仮面弁士さんの記事) > ■No35251に返信(たこさんの記事) >>問題は無い様に思えるのですが… > Friend Sub WorkSheet_Select には、もう一つ問題点がありそうです。 > >>If Not check Then >>　　_xlsWorkSheet = CType(xlsSheets.Add(), Excel.Worksheet) >>　　xlsWorkSheet.Name = strSheetName >>Else >>　　_xlsWorkSheet = CType(xlsSheets(strSheetName), Excel.Worksheet) >>End If > これだと、「以前に _xlsWorkSheet が参照していた COM オブジェクト」が > 解放されなくなってしまいます。 > > > No35247 において、解説の最後に > >> Dim y As Excel.Workbooks = x.Workbooks > >> Dim z As Excel.Workbooks = x.Workbooks > という実験コードを書いていますが、この場合、VBA や VBS とは異なり、 > .NET においては y と z が別インスタンスとなることに注意が必要です。 > > この場合、COM の参照カウントは y と z それぞれに対して減じねばなりません。 > y と z の両方を RelaseComObject した場合と、どちらか一方しか > 解放しなかった場合とで、Excel の残存性を確認してみてください。 > > 仮に同一インスタンスを返す仕様であったとしたら、 > 　Trace.WriteLine(Marshal.ReleaseComObject(z))　'ア > 　Trace.WriteLine(Marshal.ReleaseComObject(y))　'イ > において、ReleaseComObject の戻り値から得られる残存参照カウント数が > 「イ = ア - 1」の関係となるはずですが、実際には別インスタンスであるため > 「イ = ア」な戻り値で返されていると思います。
File	/ アップ可能拡張子=> /.gif/.jpg/.png/.zip 1) 太字の拡張子は画像として認識されます。 2) 画像は初期状態で縮小サイズ250×250ピクセル以下で表示されます。 3) 同名ファイルがある、またはファイル名が不適切な場合、　　ファイル名が自動変更されます。 4) アップ可能ファイルサイズは1回20KB(1KB=1024Bytes)までです。 5) ファイルアップ時はプレビューは利用できません。 6) スレッド内の合計ファイルサイズ:[0/300KB] 残り:[300KB]
Icon	/ (画像を選択/サンプル一覧)
削除キー	/ (半角8文字以内)
解決済み! BOX/ 解決したらチェックしてください!（スレッドを閉じる目的ではチェックしないでください!）
クリエイティブ・コモンズ・ライセンスを Comment の末尾に挿入するには、以下のリンクをクリックしてください。（Javascript で挿入しているだけです。）表示（CC BY） \| 表示-改変禁止（CC BY-ND） \| 表示-継承（CC BY-SA） \| 表示-非営利（CC BY-NC） \| 表示-非営利-改変禁止（CC BY-NC-ND） \| 表示-非営利-継承（CC BY-NC-SA）
プレビュー/　クッキーに保存しない/