EXPORTAR EL RESULTADO DE UN DATA REPORT A EXCEL EN VB 6.0

Marko
16 de Julio del 2004
Hola a todos, esta es la gran pregunta, espero q puedan ayudarme:
Bueno tengo una consulta la cual la abro en un Recordset, esta le asigo al DataReport para que se pueda mostrar, ahora como hago para q ese mismo Recordset pueda exportarse a excel, u otro programa de texto, basicamente en Excel.....
Salu2

Kotrach
16 de Julio del 2004
Puedes usar un codigo como este:

\'Para crear el archivo excel y conectarse como si fuese base \'de datos
Function conectarseConExcel(Path As String)
Dim conn: Set conn = CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Path & ";" & _
"Extended Properties=""EXCEL 5.0;"";"
Set conectarseConExcel = conn
End Function


Dim ExcelCon
Set ExcelCon = conectarseConExcel(PathExcel & "\" & _ ArchivoExcel & ".xls")

ExcelCon.Execute "Create Table " & NOMBREDELAHOJA & " (Columna_A char(20), Columna_B integer)"

While Not TuRecordset.EOF
ExcelCon.Execute "Insert into " & NOMBREDELAHOJA & " Values(\'" & TuRecordset.Fields(0)"\')"
TuRecordet.MoveNext
Wend

ExcelCon.Close

En el fondo lo tratas como una consulta a base de datos...
Asi lo hago yo.. espero que te sirva...