VSTO Excel粘贴失败

Question

I am trying to copy from one workbook with 5 sheets. Then paste content from all 5 sheets into a different workbook sheet one.

The first paste is successful, then it try to paste the second sheet it generate error:

The information cannot be pasted because the copy area and the paste area are not the same size or shape. Try one of the following:

• Click a single cell, and then paste.
• Select a rectangle that's the same size and shape, and then paste.

Following is my code:

int rowCount = 0;

app = Globals.ThisAddIn.Application;
sourceBook = app.ActiveWorkbook;

targetBook = app.Workbooks.Add(Type.Missing);
targetSheet = targetBook.Worksheets.Add(Type.Missing);
targetSheet.Name = "Merge Result";


foreach (Excel.Worksheet sheet in sourceBook.Worksheets)
{

    Excel.Range workSheetRange = sheet.UsedRange;
    workSheetRange.Copy(Type.Missing);
    Excel.Range pasteStartCell = (Excel.Range)targetSheet.Cells[rowCount + 1, 1];
    Excel.Range pasteEndCell = (Excel.Range)targetSheet.Cells[rowCount + workSheetRange.Rows.Count, workSheetRange.Columns.Count];
    Excel.Range pasteArea = targetSheet.get_Range(pasteStartCell, pasteEndCell);
    pasteArea.Select();
    targetSheet.Paste(Type.Missing, Type.Missing);
    rowCount = rowCount + workSheetRange.Rows.Count;

}

I have also tried with

Excel.Range pasteStartCell = (Excel.Range)targetSheet.Cells[rowCount + 1, 1];
pasteStartCell.Select()

then paste, same error message.

Does anyone know which part I went wrong?

Answer 1

您应该避免使用.Select()而是尝试Range.PasteSpecial() 。