タイトル : Re^5: エクセルをコピーし、... (訂正) 投稿日 : 2005/04/04(Mon) 00:25 投稿者 : 花ちゃん
Dim xlRange As Excel.Range Dim xlRows As Excel.Range xlRows = xlSheet.Rows ' xlRange = DirectCast(xlRows("1:5"), Excel.Range) xlRange = xlRows("1:5") xlRange.Copy() System.Runtime.InteropServices.Marshal.ReleaseComObject(xlRows) System.Runtime.InteropServices.Marshal.ReleaseComObject(xlRange) 上記ならプロセスが終了しておりますが、xlRange = xlRows("1:5") の部分を xlRange = DirectCast(xlRows.Rows(("1:5"), Excel.Range) に変えると終了しませんでした。 > objRows = xlsSheet.Rows > RCopy = DirectCast(objRows.Rows("1:5"), Excel.Range) objRows は xlsSheet.Rows なので objRows.Rows("1:5") のような使い方が間違って いるので RCopy = DirectCast(objRows("1:5"), Excel.Range) なら終了するはずですが。 |