Visual Basic - ayuda con visual basic 6 y excel

Life is soft - evento anual de software empresarial
   
Vista:

ayuda con visual basic 6 y excel

Publicado por jesus ledesma (10 intervenciones) el 28/06/2010 19:27:09
hola amigos estoy haciendo un sistema y quiero que me genero ls reportes en excel bueno ps loestuve intentando y ya me envia los datos pero no todos yps me dijeron que con un ciclo y ps no se como hacerlo jejeje ayuda con esto les dejo mi codigo y mi correo es jex_car@hotmail.com

es en un modulo

Public ObjExcel As Excel.Application

Public Function inicio()

Set conecta = New ADODB.Connection
Set registro = New ADODB.Recordset
Dim fila As Integer
Dim ObjExcel As Object
Dim ObjLibro As Object
Dim ObjHoja As Object
Set ObjExcel = CreateObject("Excel.Application")
Set ObjLibro = ObjExcel.Workbooks.Add '(App.Path & "\calificacion.xls")
Set ObjHoja = ObjExcel.ActiveSheet


conecta.ConnectionString = "DSN=easy"
conecta.Open
registro.ActiveConnection = conecta
registro.CursorType = adOpenDynamic
registro.LockType = adLockOptimistic
nivel = InputBox("ingresa el nivel")
registro.Source = "SELECT * FROM alumnos where nivel='" & nivel & "'"
registro.Open
'If fila = 0 Then
' MsgBox "No hay datos para exportar a excel. Se ha indicado 0 en el parámetro Filas "
' Else
'objExcel.Visible = True
Set ObjHoja = ObjExcel.ActiveSheet
For fila = 1 To fila + 1

'objExcel.ActiveSheet.Cells(fila, Columna + 0) = registro.Fields!nombre
'objExcel.ActiveSheet.Cells(fila, Columna + 1) = registro.Fields!horario
'objExcel.ActiveSheet.Cells(fila, Columna + 2) = registro.Fields!nivel

ObjHoja.Cells(fila, 1) = registro.Fields!nombre
ObjHoja.Cells(fila, 2) = registro.Fields!horario
ObjHoja.Cells(fila, 3) = registro.Fields!nivel

fila = fila + 1

Next fila
ObjExcel.Visible = True
'End If
End Function
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

RE:ayuda con visual basic 6 y excel

Publicado por wilman (7 intervenciones) el 29/06/2010 01:46:42
YO lo haria haci es mas facil

Public ObjExcel As Excel.Application

Public Function inicio()

Set conecta = New ADODB.Connection
Set rs as ADODB.Recordset
Dim fila As Integer
Dim ObjExcel As Object
Dim ObjLibro As Object
Dim ObjHoja As Object
dim sSql as string
Set ObjExcel = CreateObject("Excel.Application")
Set ObjLibro = ObjExcel.Workbooks.Add '(App.Path & "\calificacion.xls")
Set ObjHoja = ObjExcel.ActiveSheet



nivel = InputBox("ingresa el nivel")
sSql = "SELECT * FROM alumnos where nivel='" & nivel & "'"
set rs = conecta.execute (sSql, adopenforwardonly)
'ojo conecta entiendo yo que es la conexion a la base de datos si no deberias de 'colocar tu variable que tiene la conecxion para que funcione


'If not rs.eof Then
' MsgBox "No hay datos para exportar a excel. Se ha indicado 0 en el parámetro Filas "
' Else
'objExcel.Visible = True
Set ObjHoja = ObjExcel.ActiveSheet

While Not Rs.EOF

fila = fila + 1

'objExcel.ActiveSheet.Cells(fila, Columna + 0) = "nombre"
'objExcel.ActiveSheet.Cells(fila, Columna + 1) = "horario"
'objExcel.ActiveSheet.Cells(fila, Columna + 2) = "nivel"

ObjHoja.Cells(fila, 1) = rs(0)
ObjHoja.Cells(fila, 2) = rs(1)
ObjHoja.Cells(fila, 3) = rs(2)

rs.movenext

wend

ObjExcel.Visible = True
'End If

End Function
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