タイトル : Re^7: Excelを呼ぶとエラー 投稿日 : 2005/11/30(Wed) 11:48 投稿者 : 魔界の仮面弁士
> Dim xlRange As Excel.Range ’この部分修正 > DP(h, i) = CType(xlRange, Excel.Range).Value ’この部分修正 Excel.Range型の変数を、Excel.Range型に CType していますが、これは明らかに無意味でしょう。 それと、ループを使って、 xlSheet.Cells の取得と解放を繰り返していますが、これも無駄です。 ループの外で Cells を変数に受け取り、ループ中ではそれを利用するようにして、 ループ後に解放するように組み替えましょう。 また、Try〜End Try の使い方も奇妙に思えます。そのコードだと、例外が発生した時に、 Excelのオブジェクトの解放処理が抜け落ちてしまう可能性がありますよね。 > ただし、まだ実行形式にしたものの確認は出来ていません。 コンパイル後に実行されますから、常に実行形式なのでは。 |