S
skvabbili
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.
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.