> wb=ex.workbooks.open (txtpath.text) Workbooksオブジェクトが解放漏れ > for col as integer =1 to range.columns.count columnsであるRangeオブジェクトが解放漏れ > range.cells(1,col).value =strarry(arrycount) cells(,)が返すRangeオブジェクトが解放漏れ 他にもあるかもしれませんがとりあえず目についただけ。 hoge.fuga.piyoのようにピリオドが1文に2個存在してたら漏れてると考えたほうがいいです。