Improve company productivity with a Business Account.Sign Up

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 242
  • Last Modified:

pass ADO Recordset to Excel 97 Worksheet

I need a good method of populating data from a ADODB.Recordset into Excel97 WorkSheet.
ThanxManish
0
manish77
Asked:
manish77
1 Solution
 
EyalCommented:
Public Sub DropADORS(ByVal ADORS As ADODB.Recordset)
    Dim i As Integer, j As Integer
    Dim lCol As String, lRow As Integer
   
    For i = 0 To ADORS.RecordCount - 1
        For j = 0 To ADORS.Fields.Count - 1
            lCol = Chr(Asc("A") + j)
            Range(lCol & CStr(i + 1)).Select
            ActiveCell.FormulaR1C1 = ADORS.Fields(j).Value
        Next
        ADORS.MoveNext
    Next i
End Sub

0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Free Tool: Port Scanner

Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now