Vista - Anyway to add worksheets on loop

Set rsTemp = server.createobject("adodb.recordset")
conn.Webqry_SelectList rsTemp
do while not rstemp.eof

Add worksheet here

loop

On Oct 14, 11:33*am, RICK <R...@xxxxxx> wrote:Hope this helps! - Jennifer

' Watch for word wrap!
Dim XL
Dim WB

' First create the Excel workbook
Set XL = GetObject(, "Excel.Application")
If Err.Number <> 0 Then
Set XL = CreateObject("Excel.Application")
End If

Set WB = XL.Workbooks.Add Set XL = GetObject(, "Excel.Application")
If Err.Number <> 0 Then
Set XL = CreateObject("Excel.Application")
End If
' Add a workbook to the Excel File
Set WB = XL.Workbooks.Add

'Do your stuff to create your connection and recordsets

Set rsTemp = server.createobject("adodb.recordset")
conn.Webqry_SelectList rsTemp
do while not rstemp.eof
'Add the worksheet to the workbook
WB.Worksheets.Add.Move after:=WB.Worksheets(WB.Worksheets.Count)
loop