gNameLine

Hola, este código exporta de un MSFlexgrid o itGrid de Visual Basic 6 a Excel...lo genera como un archivo de Excel 2003, el código de abajo está personalizado para usarlo con el control ItGrid, y el botón que lo ejecuta; más abajo está el link dónde está el ejemplo completo para usarlo con un MsFlexGrid.Espero les sea útil, a mí me sirvió.Private Sub CmdExportar_Click()If Exportar_Excel(App.Path & "Reporte.xls", NOMBRE DEL ITGRID) Then MsgBox " Datos exportados en " & App.Path, vbInformation End IfEnd SubPublic Function Exportar_Excel(sOutputPath As String, itGrid As Object) As Boolean On Error GoTo Error_Handler Dim o_Excel As Object Dim o_Libro As Object Dim o_Hoja As Object Dim Fila As Long Dim Columna As Long ' -- Crea el objeto Excel, el objeto workBook y el objeto sheet Set o_Excel = CreateObject("Excel.Application" Set o_Libro = o_Excel.Workbooks.Add Set o_Hoja = o_Libro.Worksheets.Add ' -- Bucle para Exportar los datos With itGrid For Fila = 1 To .Rows - 1 For Columna = 0 To .Cols - 1 o_Hoja.Cells(Fila, Columna + 1).Value = .TextMatrix(Fila, Columna) Next Next End With o_Libro.Close True, sOutputPath ' -- Cerrar Excel o_Excel.Quit ' -- Terminar instancias Call ReleaseObjects(o_Excel, o_Libro, o_Hoja) Exportar_Excel = TrueExit Function ' -- Controlador de ErroresError_Handler: ' -- Cierra la hoja y el la aplicación Excel If Not o_Libro Is Nothing Then: o_Libro.Close False If Not o_Excel Is Nothing Then: o_Excel.Quit Call ReleaseObjects(o_Excel, o_Libro, o_Hoja) If Err.Number <> 1004 Then MsgBox Err.Description, vbCriticalEnd Function' -------------------------------------------------------------------' \ -- Eliminar objetos para liberar recursos' -------------------------------------------------------------------Private Sub ReleaseObjects(o_Excel As Object, o_Libro As Object, o_Hoja As Object) If Not o_Excel Is Nothing Then Set o_Excel = Nothing If Not o_Libro Is Nothing Then Set o_Libro = Nothing If Not o_Hoja Is Nothing Then Set o_Hoja = NothingEnd Sub* itGrid puede ser reemplazado por FlexGridAquí está el Código Completo usando un MsFlexGrid espero les sirva.

Es arte!Ejemplo de paciencia, éste artista esculpe en las minas de los lápices.Dalton Ghetti, brasileño (nacionalizado estadounidense) utiliza como materia prima de sus obras de arte las minas de grafito de los lápices. Utiliza para ellos agujas y cuchillas de afeitar, el artista empezó trabajando como carpintero, y entonces descubrió que tenía una habilidad portentosa para tallar figuras en miniatura, él asegura que tiene una vista de lince y que por eso no necesita usar lupa para su trabajo. Cada pieza le lleva una media de entre dos y tres meses de trabajo, aunque dice que la que más tiempo le costó fue una talla de Elvis Presley en la que empleó dos años y medio de su vida. Como es lógico trabajando con un material tan delicado, muchas de sus obras acaban rompiéndose, pero en vez de tirarlas, Dalton las guarda en un armario que hace de simbólico cementerio, ya que siente un cariño especial por todas sus creaciones.Dalton ha abierto una escuela taller en Connecticutt para enseñar a los jóvenes los secretos de la microescultura.http://db3.stb.s-msn.com/i/59/F75C177DB53E7D79C0D565B78940.jpgDalton recoge viejos lápices usados e incluso roídos a mordiscos, en las papeleras de las escuelas, para tallarlos y realizar sus creaciones, como esta llave que casi parece real. Todo un ejemplo de reciclaje artístico.Esta efigie de Elvis Presley fue la que más tiempo le ha costado al artista. Casi dos años le llevó terminarla.

Cuando no hay nada que hacer en la Ofi :3 si trabajar en un edificio cerca de la ventana pues haz eso!! en vez de andar perdiendo el tiempo XD y presúmele a tus compañertos de la competencia que trabajan al frente que en donde trabajas SI se la pasan BIEN ! Las disculpas del caso si es que no se ven las imágenes...simplemente no me deja subir ... VER AQUI

El buceador Anatoly Beloshchin, se encontró con este sorprendente escenario: un río bajo el agua, declaró: “Cuando nos encontramos a unos 60 metros de profundidad, veo de repente un río, islas, hojas caídas. Estar allí y verlo con tus propios ojos es una sensación inolvidable”. Las siguientes imágenes fueron capturadas por él mismo en Cenote Angelita, Mexico. Sorprendente, da la impresión que hay un río bajo el mar pero en realidad es una capa da sulfuro de hidrógeno.