タイトル : Re: Excelのプロセスについて 投稿日 : 2007/06/25(Mon) 02:18 投稿者 : 魔界の仮面弁士
> '使わせてもらってます > Private Sub CloseXls(ByRef objCom As Object) ByRef だと、Option Strict On の時に使いづらいのが難点…。 # 2005 なら、ジェネリックで対応できるのだけれども。 > intLastRow = CType(xlsCell(xlsCell.Rows.Count, 4) _ > , Excel.Range).End(Excel.XlDirection.xlUp).Row 試してはいませんが、おそらく、下記程度までは分解しないとマズイかと。 rowsRange = xlsCell.Rows cellsRange = xlsCell(rowsRange.Count, 4) endRange = cellsRange.End(Excel.XlDirection.xlUp) lastRow = endRange.Row CloseXls(endRange) CloseXls(cellsRange) CloseXls(rowsRange) |