Error 1004 Paste method of Worksheet class failed

I have a VB COM+ component which exports data from db to a spreadsheet.
The workbook has around 6 sheets which the VB program fills as part of the export process. It's a huge code with multiple function calls. I have given code snippets in brief.

Set xlBook = CreateObject("Excel.Application")
xlBook.Workbooks.Open (File_Path)
xlBook.DisplayAlerts = False
....

Set xlsheet = xlBook.Workbooks(1).Worksheets("SheetA")
xlsheet.Activate
xlsheet.Range(strrangearr(0)).Resize(reccount, UBound(recarray, 1) + 1).Value = TransposeDim(recarray)
.....
.....
Set xlsheet = xlBook.Workbooks(1).Worksheets("SheetB")
xlsheet.Activate
xlsheet.Range("PD_attendee_type1").Activate
xlsheet.Range("PD_attendee_type1").EntireRow.Copy
xlsheet.Range("PD_attendee_type1").Offset(intCntr1 - 1, 0).EntireRow.Insert
xlsheet.Paste xlsheet.Range("PD_AT").Offset(intCntr1 - 1, 0).EntireRow, False

These are 2 ways in which data is copied into the sheets.

I am unable to debug the COM+ component and also the error occurs irregularly. Any suggestions what could go wrong.

Thanks in advance.

Only a guess. Sometimes paste fails in VBA if something between the copy and
the paste empties the clipboard. Try re-aranging the code so the insert does
not come between the copy and paste.
--
Gary's Student


"skvabbili" wrote:

>
> I have a VB COM+ component which exports data from db to a spreadsheet.
> The workbook has around 6 sheets which the VB program fills as part of
> the export process. It's a huge code with multiple function calls. I
> have given code snippets in brief.
>
> Set xlBook = CreateObject("Excel.Application")
> xlBook.Workbooks.Open (File_Path)
> xlBook.DisplayAlerts = False
> ....
>
> Set xlsheet = xlBook.Workbooks(1).Worksheets("SheetA")
> xlsheet.Activate
> xlsheet.Range(strrangearr(0)).Resize(reccount, UBound(recarray, 1) +
> 1).Value = TransposeDim(recarray)
> .....
> .....
> Set xlsheet = xlBook.Workbooks(1).Worksheets("SheetB")
> xlsheet.Activate
> xlsheet.Range("PD_attendee_type1").Activate
> xlsheet.Range("PD_attendee_type1").EntireRow.Copy
> xlsheet.Range("PD_attendee_type1").Offset(intCntr1 - 1,
> 0).EntireRow.Insert
> xlsheet.Paste xlsheet.Range("PD_AT").Offset(intCntr1 - 1, 0).EntireRow,
> False
>
> These are 2 ways in which data is copied into the sheets.
>
> I am unable to debug the COM+ component and also the error occurs
> irregularly. Any suggestions what could go wrong.
>
> Thanks in advance.
>
>
> --
> skvabbili
> ------------------------------------------------------------------------
> skvabbili's Profile: http://www.excelforum.com/member.php...o&userid=34135
> View this thread: http://www.excelforum.com/showthread...hreadid=539055
>
>