Visual Basic - Exportar datos a Excel

Life is soft - evento anual de software empresarial
   
Vista:

Exportar datos a Excel

Publicado por Jhoxan (3 intervenciones) el 03/03/2018 23:55:52
Buenas tardes

Tengo un programa en VB6 con conexion a SQL mediante ODBC. Requiero realizar una exportacion de datos de una tabla de excel.

Si me pueden ayudar.

Lo que quiero es es que al momento de hacer clic en el boton ejecutar el programa me guarde un archivo de excel con la informacion de este en un query
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Andres Leonardo

Exportar datos a Excel

Publicado por Andres Leonardo (1164 intervenciones) el 05/03/2018 15:21:32
Haber .. yo que hago teniendo la misma conexion ....


y cuando tengo el stringsql y el nombre del archivo (coloca un nombte de archivo con extension .XLS )


1
2
' En el codigo del Boton  o llamada exportar.
RstoXls ("aqui va el select que armaste" , "c:\ReporteArchivo.xls")

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
'en un modulo tengo lo siguiente 
Sub RstoXls(SQL As String, filename As String)
 
On Error GoTo etterro
 
cont = 0
'MsgBox SQL
rs.Open SQL, enlace
'****si no hay resultados ********
    If rs.EOF = True And rs.BOF = True Then
            Open filename For Append As 9
                    Print #9, "No Existen Registros para Exportar"
            Close 9
    rs.Close
    Exit Sub
    End If
'salgo del sub
'**********************************
 
Dim i, j, k As Integer
   j = 0
   While j < Val(rs.Fields.Count)
        Datafile = Datafile & rs.Fields(j).Name & vbTab
        j = j + 1
   Wend
        Open filename For Append As 9
             Print #9, Datafile
             Datafile = ""
        Close 9
    i = 1
    k = 0
    While Not rs.EOF
        i = i + 1
        k = 0
        While k < j
            Datafile = Datafile & Replace(rs(k), vbLf, "", 1) & vbTab
            k = k + 1
        Wend
        'Datafile = Datafile & vbCr
                    Open filename For Append As 9
                        Print #9, Datafile
                        Datafile = ""
                    Close 9
        RaR = RaR + 1
        rs.MoveNext 'aumenta el contador
    Wend
       rs.Close
 
etterro:
 
If Err.Number <> 0 Then grabalog Err.Description
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Exportar datos a Excel

Publicado por Jhoxan (3 intervenciones) el 05/03/2018 15:49:21
Mil gracias voy a probar tu codigo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Revisar política de publicidad