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

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

■35247 / 3階層)

　Excel Com オブジェクトの増殖

□投稿者/ 魔界の仮面弁士大御所(1488回)-(2022/11/27(Sun) 11:36:26)

■No35241に返信(たこさんの記事)
> xlsWorkSheet = xlsWorkSheets.Item(1)
.Item の戻り値は Object のはずですので、明示的にキャストしましょう。

参照カウントが不用意に増加することを防ぐため、可能であれば
「Option Strict On」で実装することをお奨めします。

たとえば「Range オブジェクトを引数に受け取るプロパティやメソッド」に対して
Range 型の変数ではなく Object 型の変数を通じて受け渡した場合、
相互運用機能アセンブリによる内部的な型判定の時点で参照カウントが増加し、
解放漏れにつながることがあります。

もしもレイトバインド前提で実装するのなら、.NET ではなく
VBS や VBA から利用した方が安全です。

■No35245に返信(たこさんの記事)
> 　　Public Sub Sheets(strSheetName As String)
> 　　　　xlsWorkSheet = xlsApplication.Sheets(strSheetName)
> 　　　　If SheetVisible Then xlsWorkSheet.Select()
> 　　End Sub

案の定、Sheets メソッドに原因がありそうですね。

xlsWorkSheet = xlsApplication.Sheets(strSheetName) ではなく
xlsWorkSheet = xlsWorkSheets(strSheetName) でしょう。

ただし上記は厳密には同義ではありません。
xlsWorkSheets は WorkBook_Open 時に
　xlsWorkSheets = xlsWorkbook.Worksheets
で代入されていますので、strSheetName の処理対象が
「WorkBook_Open 時のワークブック」のシートではなく
「現在アクティブなワークブック」のシートの操作を意図しているなら
　　Dim wBook = xlsApplication.ActiveWorkbook
　　Dim wSheets = wBook.Sheets
　　xlsWorkSheets = wSheets(strSheetName)
　　MRComObject(wSheets)
　　MRComObject(wBook)
といった形になるかと思います。

いずれの方法をとるにせよ、xlsWorkSheet の初期値は
xlsWorkSheets.Item(1) だったはずなので、xlsWorkSheet 変数への
代入前に MRComObject(xlsWorkSheet) も呼んでおく必要があります。

Dim x As New Excel.Application()
Dim y As Excel.Workbooks = x.Workbooks
Dim z As Excel.Workbooks = x.Workbooks

MsgBox(y Is z) 'これは True ではなく、False になる可能性が高い

x.Quit()
Trace.WriteLine(Marshal.ReleaseComObject(z))
Trace.WriteLine(Marshal.ReleaseComObject(y))
Trace.WriteLine(Marshal.ReleaseComObject(x))

違反を報告

上記関連ツリー
前の記事(元になった記事)	次の記事(この記事の返信)
←Re[2]: Excel Com オブジェクトの増殖 /たこ	→Re[4]: 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
`├` Excel Com オブジェクトの増殖 / 魔界の仮面弁士 (22/11/27(Sun) 11:36) #35247 ←Now
`│└` 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
`│└` Re[6]: Excel Com オブジェクトの増殖 / 魔界の仮面弁士 (22/11/28(Mon) 06:16) #35255
`└` 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文字以内) ■No35247に返信(魔界の仮面弁士さんの記事) > ■No35241に返信(たこさんの記事) >>xlsWorkSheet = xlsWorkSheets.Item(1) > .Item の戻り値は Object のはずですので、明示的にキャストしましょう。 > > 参照カウントが不用意に増加することを防ぐため、可能であれば > 「Option Strict On」で実装することをお奨めします。 > > たとえば「Range オブジェクトを引数に受け取るプロパティやメソッド」に対して > Range 型の変数ではなく Object 型の変数を通じて受け渡した場合、 > 相互運用機能アセンブリによる内部的な型判定の時点で参照カウントが増加し、 > 解放漏れにつながることがあります。 > > もしもレイトバインド前提で実装するのなら、.NET ではなく > VBS や VBA から利用した方が安全です。 > > > ■No35245に返信(たこさんの記事) >>　　Public Sub Sheets(strSheetName As String) >>　　　　xlsWorkSheet = xlsApplication.Sheets(strSheetName) >>　　　　If SheetVisible Then xlsWorkSheet.Select() >>　　End Sub > > 案の定、Sheets メソッドに原因がありそうですね。 > > xlsWorkSheet = xlsApplication.Sheets(strSheetName) ではなく > xlsWorkSheet = xlsWorkSheets(strSheetName) でしょう。 > > > ただし上記は厳密には同義ではありません。 > xlsWorkSheets は WorkBook_Open 時に > 　xlsWorkSheets = xlsWorkbook.Worksheets > で代入されていますので、strSheetName の処理対象が > 「WorkBook_Open 時のワークブック」のシートではなく > 「現在アクティブなワークブック」のシートの操作を意図しているなら > 　　Dim wBook = xlsApplication.ActiveWorkbook > 　　Dim wSheets = wBook.Sheets > 　　xlsWorkSheets = wSheets(strSheetName) > 　　MRComObject(wSheets) > 　　MRComObject(wBook) > といった形になるかと思います。 > > > > いずれの方法をとるにせよ、xlsWorkSheet の初期値は > xlsWorkSheets.Item(1) だったはずなので、xlsWorkSheet 変数への > 代入前に MRComObject(xlsWorkSheet) も呼んでおく必要があります。 > > > Dim x As New Excel.Application() > Dim y As Excel.Workbooks = x.Workbooks > Dim z As Excel.Workbooks = x.Workbooks > > MsgBox(y Is z) 'これは True ではなく、False になる可能性が高い > > x.Quit() > Trace.WriteLine(Marshal.ReleaseComObject(z)) > Trace.WriteLine(Marshal.ReleaseComObject(y)) > Trace.WriteLine(Marshal.ReleaseComObject(x))
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）
プレビュー/　クッキーに保存しない/