タイトル : Re^2: EntireColumn.AutoFit 投稿日 : 2005/03/24(Thu) 16:33 投稿者 : 匿名
度々、回答頂きまして本当に申し訳ないです。 Dim R5 As Excel.Range '今回追加しました R2 = DirectCast(R1(1, 1), Excel.Range) R3 = DirectCast(R1(250, 25), Excel.Range) '最大行・最大列です R4 = Sheet.Range(R2, R3) 'R3 が R4 になってたのは書き込みミスでした R5 = DirectCast(R4.EntireColumn, Excel.Range) R5.EntireColumn.AutoFit() System.Runtime.InteropServices.Marshal.ReleaseComObject(R5) System.Runtime.InteropServices.Marshal.ReleaseComObject(R4) System.Runtime.InteropServices.Marshal.ReleaseComObject(R3) System.Runtime.InteropServices.Marshal.ReleaseComObject(R2) どうも自分は R2 〜 R5 を変数として考えていたのですけど、 まったく別物って考えたほうが良いってことなんですよね? 1回使う毎に解放するわけですし。 今回のバージョンで実行してもリソースが残ってしまいました。 AutoFitの部分をコメントアウトするとリソースは残りません。 すみませんが、もう少しアドバイス頂けないでしょうか。 |