Gracias Fernando, una última duda
Publicado por Ivette (28 intervenciones) el 24/12/2003 23:03:57
Hola Fernando, gracias por tu ayuda, ya logré la exportación de los datos como quería, sin embargo, siento que todavía se puede mejorar el código, ya que está de tal forma que conozco el número de columnas del grid, sin embargo, ojalá pudiera quedar el código para que no se especifique el número de columnas del grid, el código es el siguiente:
Dim cadena As String
Open "c:\mifichero.txt" For Output As #1
For r = 1 To MSFlexGrid2.Rows - 1
cadena = MSFlexGrid2.TextMatrix(r, 1)
cadena1 = MSFlexGrid2.TextMatrix(r, 2)
cadena2 = MSFlexGrid2.TextMatrix(r, 3)
cadena3 = MSFlexGrid2.TextMatrix(r, 4)
Print #1, cadena, cadena1, cadena2, cadena3
Next r
Close #1
Como veras sabía que el num de cols es 4, ojalá me pudiera ayudar, gracias, ah por cierto, no sé si me puedas decir si es posible que los datos que se exportan no estén redondeados, gracias y Feliz Navidad!!!!
Dim cadena As String
Open "c:\mifichero.txt" For Output As #1
For r = 1 To MSFlexGrid2.Rows - 1
cadena = MSFlexGrid2.TextMatrix(r, 1)
cadena1 = MSFlexGrid2.TextMatrix(r, 2)
cadena2 = MSFlexGrid2.TextMatrix(r, 3)
cadena3 = MSFlexGrid2.TextMatrix(r, 4)
Print #1, cadena, cadena1, cadena2, cadena3
Next r
Close #1
Como veras sabía que el num de cols es 4, ojalá me pudiera ayudar, gracias, ah por cierto, no sé si me puedas decir si es posible que los datos que se exportan no estén redondeados, gracias y Feliz Navidad!!!!
Valora esta pregunta


0