Bilgiyi nereye kopyalamak istediğinizide belirtirseniz daha anlaşılır olur.
Örneğin bir sütünü başka bir sütüna kopyalama
ExcelApp.ActiveSheet.Used.Range.Copy;
ExcelApp.ActiveSheet.Range[ 'A1:E2' ].Copy;
ExcelApp.ActiveSheet.Range.[ 'A1' ].PasteSpecial;
ExcelApp.ActiveSheet.Range.PasteSpecial;
Ayrıca excel 'de
1) Belirttiğiniz satır ve sütündaki veriyi şöyle seçebilirsiniz.
Excel.ActiveSheet.Cells[1,1].Select;
2) Excelde üzerinde bulunduğunuz satır numarasına şöyle ulaşabilirsiniz.
Excel.ActiveCell.Row;
3)Belli bir satırı kopyalamak için şöyle bir kod gördüm. Ama test etmedim
ExcelApp.ActiveSheet.Rows[2].copy;
4)! İncele ! Belli bir aralıkta satırları seçip silmek için şöyle bir örnek verilmiş. Bu örnekteki delete ifadeleri yerine copy varmı deneyin. Belki size kılavuz olur.
MsExcelWorkSheet1.ActiveSheet.Rows[IntToStr(StartRow)+':'+IntToStr(EndRow)].Select;
MsExcelWorkSheet1.ActiveSheet.Rows[IntToStr(StartRow)+':'+IntToStr(EndRow)].Delete;
Birde şöyle bir örnek gördüm , ama sizin istediğiniz mi emin değilim..
//Excel sayfasından seçimli kopyalama yapmak için.Sadece değerler yapıştırılır.
Function ExcelPasteValuesOnly(
Excel : Variant;
ExcelFirstRow : Integer;
ExcelFirstCol : Integer;
ExcelLastRow : Integer;
ExcelLastCol : Integer): Boolean;
Begin
Result := True;
try
If ExcelVersion(Excel) = '8.0' Then
Begin
If Not ExcelSelectRange(
Excel,
ExcelFirstRow,
ExcelFirstCol,
ExcelLastRow,
ExcelLastCol)
Then
Begin
Result := False;
ShowMessage('Unable to select the range to paste as values.');
Exit;
End;
Excel.Selection.Copy;
Excel.Selection.PasteSpecial(xlValues);
Excel.Application.CutCopyMode := False;
End
Else
Begin
Excel.Range(
ExcelColIntToStr(ExcelFirstCol)+IntToStr(ExcelFirstRow)+
':'+
ExcelColIntToStr(ExcelLastCol)+IntToStr(ExcelLastRow)).Select;
Excel.Selection.Copy;
Excel.Selection.PasteSpecial(xlValues);
Excel.Application.CutCopyMode := False;
Excel.Selection.Replace('#N/A','0');
End;
except
ShowMessage('Unable to paste range as values');
Result := False;
end;
End;
