タイトル : 本当に有難う御座いました。上手く出来ました 投稿日 : 2005/03/31(Thu) 00:05 投稿者 : 匿名希望
コピーの所を、下記に修正しましたら、正常に出来ました。 本当に有難う御座いました。 vb6 でエクセルをコピーするときには Rows を使用していたので、 範囲に指定が上手くいかずに、そのまま Rows を使用していのが、 まずかったのですね。有難う御座いました。 R1 = DirectCast(objCells._Default(1, 1), Excel.Range) R2 = DirectCast(objCells._Default(4, 3), Excel.Range) RCopy = xlsSheet.Range(R1, R2) RCopy.Copy() RPaste = DirectCast(objCells._Default(6, 1), Excel.Range) RPaste.Insert() System.Runtime.InteropServices.Marshal.ReleaseComObject(R1) System.Runtime.InteropServices.Marshal.ReleaseComObject(R2) System.Runtime.InteropServices.Marshal.ReleaseComObject(RCopy) System.Runtime.InteropServices.Marshal.ReleaseComObject(RPaste) |