Buenas compañeros soy nuevo en el foro, mi consulta es que estoy haciendo un sistema donde nesecito exportar una tabla completa de sql a excel no se mucho del tema pq nunca lo habia echo asi que he investigado un poco en internet encontre algunos ejemplos pero no comprendi bien, hice una ventana para probar esto asi que solo puse un boton donde dentro del boton hace la consulta y me crea el archivo le puse titulos a las columnas del excel pero que pasa me crea el archivo vacion sin la data no se que estoy haciendo mal pq no me manda ningun error y no se que hacer ya estoy desesperado y quisiera saber si alguien le echa un vistazoal codigo y me diga en que parte estoy errado se los agradeceria mucho. aqui le spongo el codigo del boton
Código:
  1. Private Sub btnexportar_Click()
  2.  
  3. Call Conexion_BD.CONEXION 'Conexion a la base de datos
  4.  
  5. Dim RUTA As String
  6. Dim PacienteRs As ADODB.Recordset
  7. Dim Excel As Object
  8. Dim Libro As Object
  9. Dim Hoja As Object
  10.  
  11. RUTA = "C:\Documents and Settings\All Users\Escritorio\Datos.xlsx"
  12. '//------------------DIMENSIONES-----------------------
  13. Set Excel = CreateObject("Excel.Application")
  14. Set Libro = Excel.Workbooks.Add
  15. Set Hoja = Libro.Worksheets(1)
  16.  
  17. Set PacienteRs = New ADODB.Recordset
  18.  
  19. With PacienteRs
  20. .Open "Select * From tbl_paciente", CONEXION_ADO, adOpenStatic, adLockOptimistic
  21. .Close
  22. End With
  23. Set PacienteRs = Nothing
  24. '//-----------------Envabezados---------------------------------
  25. Hoja.Cells(1, 1) = "Codigo-lab"
  26. Hoja.Cells(1, 2) = "# tarjerta"
  27. Hoja.Cells(1, 3) = "nombre"
  28. Hoja.Cells(1, 4) = "1 apellido"
  29. Hoja.Cells(1, 5) = "2 apellido"
  30. Hoja.Cells(1, 6) = "cedula"
  31. Hoja.Cells(1, 7) = "provincia"
  32. Hoja.Cells(1, 8) = "letra"
  33. Hoja.Cells(1, 9) = "tomo"
  34. Hoja.Cells(1, 10) = "asiento"
  35. Hoja.Cells(1, 11) = "sexo"
  36. Hoja.Cells(1, 12) = "peso"
  37. Hoja.Cells(1, 13) = "semana gestacion"
  38. Hoja.Cells(1, 14) = "fecha nacimiento"
  39. Hoja.Cells(1, 15) = "fecha muestra"
  40. Hoja.Cells(1, 16) = "hospital nacimiento"
  41. Hoja.Cells(1, 17) = "hospital procedencia"
  42. Hoja.Cells(1, 18) = "telefono residencial"
  43. Hoja.Cells(1, 19) = "telefono celular"
  44. Hoja.Cells(1, 20) = "log"
  45.  
  46. Excel.Selection.CurrentRegion.Columns.AutoFit
  47. Excel.Selection.CurrentRegion.Rows.AutoFit
  48.  
  49. Libro.saveAs RUTA
  50. Libro.Close
  51.  
  52. Set Hoja = Nothing
  53. Set Libro = Nothing
  54. Excel.quit
  55. Set Excel = Nothing
  56.  
  57. MsgBox "Archivo generado correctamente" & vbCrLf & _
  58.         vbCrLf & "Almacenado en: " & RUTA, vbInformation, "Archivo"
  59.  
  60. End Sub