Hi,

I'm running into a problem with relatively long fields (this one is
1351 chars long) where it's failing on the copyFromRecordset(rs) call.

The exception I'm getting is:

An unhandled exception of type
'System.Runtime.InteropServices.COMException' occurred in mscorlib.dll

Additional information: Unspecified error

Which of course is less than helpful :)

The RS is properly formatted and this is an ADODB recordset, the field
is adVarWChar, length 1600.  It only seems to fail on long long data
transfers - the preceeding rows in the recordset transferred without
issue.  Code snippet is below.

Anybody who can help would greatly be appreciated.  I apologize for
cross posting in advance - I made a mistake in posting to vba.excel
first.

Cheers
Dave

---------------------------------------------------8<--------------------------------

   Public Sub showRSinExcel(ByRef theRSList As Hashtable, Optional
ByVal actionType As excelActionType = excelActionType.actionOpen,
Optional ByVal fileName As String = Nothing)
       Dim msExcel As New Excel.Application
       Dim columnCount As Integer
       msExcel.DisplayAlerts = False
       Dim rsCount As Integer = 0
       Dim theWorkbook As Excel.Workbook = msExcel.Workbooks.Add

       For Each key As String In theRSList.Keys
           Dim rs As ADODB.Recordset = theRSList(key)
           Dim theWorksheet As Excel.Worksheet =
theWorkbook.Worksheets.Add
           theWorksheet.Name = key
           For j As Integer = 1 To rs.Fields.Count
               theWorksheet.Cells(1, j).Interior.ColorIndex = 15
               theWorksheet.Cells(1, j) = rs.Fields(j - 1).Name
               columnCount = j - 1
           Next
           theWorksheet.Range("A2").CopyFromRecordset(rs) '<--- fails
here
           theWorksheet.Columns("A:BZ").AutoFit()
           rsCount += 1
       Next

       For i As Integer = theWorkbook.Worksheets.Count To rsCount + 1
Step -1
           theWorkbook.Worksheets(i).Delete()
       Next
       Select Case actionType
           Case excelActionType.actionOpen
               msExcel.DisplayAlerts = True
               msExcel.Visible = True
               theWorkbook.Worksheets.Item(1).activate()
           Case excelActionType.actionSave
               If Not IsNothing(fileName) Then
                   theWorkbook.SaveAs(fileName)
                   msExcel.Quit()
                   Exit Sub
                   'theWorkbook.Close(False, Nothing, Nothing)
               End If
       End Select
       msExcel.DisplayAlerts = True
       msExcel.Visible = True
   End Sub
------------------------------------------------------>8----------------------------------------