Excel Sin OWC

[emont]

Hola, encontre un código en internet el cual adapte un poco para lo que necesito, para aquellos que lo puedan necesitar es este:

Código:

set rs=server.CreateObject("adodb.recordset")
sql="SELECT t.tipopropuesta, count(p.codtipoprop) as cantidad,g.grupo from tipopropuesta t,grupos g,propuesta p "&_
    "where p.codtipoprop=t.cod and t.cod=g.codtipopropuesta group by t.tipopropuesta order by g.grupo"
set rs=conn.execute(sql)
Set ExcelApp = CreateObject("Excel.Application")
ExcelApp.Application.Visible = True
Set ExcelBook = ExcelApp.Workbooks.Add
i=2
    ExcelBook.Worksheets(1).Cells(2, 2).Font.Name = "Tahoma"
	ExcelBook.Worksheets(1).Cells(2, 2).Font.Size = 10
	'ExcelBook.Worksheets(1).Cells(2, 2).Font.Italic = true
	ExcelBook.Worksheets(1).Cells(2, 2).Value="Grupo Interdisciplinario"
	ExcelBook.Worksheets(1).Cells(2, 2).HorizontalAlignment = 1
	ExcelBook.Worksheets(1).Cells(2, 2).Font.Color = RGB(0,0,0)
	
	ExcelBook.Worksheets(1).Cells(2, 3).Font.Name = "Tahoma"
	ExcelBook.Worksheets(1).Cells(2, 3).Font.Size = 10
	'ExcelBook.Worksheets(1).Cells(2, 2).Font.Italic = true
	ExcelBook.Worksheets(1).Cells(2, 3).Value="Cantidad"
	ExcelBook.Worksheets(1).Cells(2, 3).HorizontalAlignment = 1
	ExcelBook.Worksheets(1).Cells(2, 3).Font.Color = RGB(0,0,0)
	compara=rs("grupo")
while not rs.eof
	ExcelBook.Worksheets(1).Cells(i+1, 2).Font.Name = "Tahoma"
	ExcelBook.Worksheets(1).Cells(i+1, 2).Font.Size = 10
	'ExcelBook.Worksheets(1).Cells(2, 2).Font.Italic = true
	ExcelBook.Worksheets(1).Cells(i+1, 2).Value=rs("tipopropuesta")
	ExcelBook.Worksheets(1).Cells(i+1, 2).HorizontalAlignment = 1
	ExcelBook.Worksheets(1).Cells(i+1, 2).Font.Color = RGB(0,0,0)
	
	ExcelBook.Worksheets(1).Cells(i+1, 3).Font.Name = "Tahoma"
	ExcelBook.Worksheets(1).Cells(i+1, 3).Font.Size = 10
	'ExcelBook.Worksheets(1).Cells(2, 2).Font.Italic = true
	ExcelBook.Worksheets(1).Cells(i+1, 3).Value=rs("cantidad")
	ExcelBook.Worksheets(1).Cells(i+1, 3).HorizontalAlignment = 1
	ExcelBook.Worksheets(1).Cells(i+1, 3).Font.Color = RGB(0,0,0)
	
	i=i+1
	rs.movenext
wend
ExcelBook.SaveAs "c:\yourfile.xls"
ExcelApp.Application.Quit
Set ExcelApp = Nothing 
%>

Sin embargo, también recurro a aquellos que tienen un poco más de experiencia para saber si apartir de este código puedo crear tablas dinámicas?
Muchas gracias por la ayuda.