Visual Basic para Aplicaciones - Como paso un TxT con VB a un archivo de Excel

Life is soft - evento anual de software empresarial
 
Vista:

Como paso un TxT con VB a un archivo de Excel

Publicado por Ricardo Figueroa (22 intervenciones) el 10/03/2003 21:16:57
No tengo ni idea como crear un archivo de excel con VB, aunque ya se como puedo leer y cortar los datos del TXT, alguien me podria decir como puedo hacer o en donde debo consultar?
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:Como paso un TxT con VB a un archivo de Excel

Publicado por Mauricio Baeza (262 intervenciones) el 11/03/2003 07:29:01
Para manejar Excel desde VB, checa el siguiente vinculo

http://www.vbalym.netfirms.com/excel/excel.html#Lenguajes
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

RE:Como paso un TxT con VB a un archivo de Excel

Publicado por J.Fernando (39 intervenciones) el 11/03/2003 15:09:09
Esto te puede ayudar

Sub TxtExcel()
Dim Objeto As Object
Dim Libro As Object
Dim Fila As Long
Dim Columna as Integer
Dim Dato as Variant
Set objeto = CreateObject("Excel.Application")
Set libro = objeto.Workbooks.Open("C:\Ruta\MiExcel.xls")
Open "C:\Ruta\MiTexto.Txt" For Input as #1
Fila=0
Columna=1 ' Si es en esta columna donde quieres poner los datos
Do until EOF(1)
Fila=Fila+1
Line Input #1,Dato
Libro.Worksheets(1).Cells(Fila,Columna)=Dato ' p.e.j para la hoja 1
Loop
Close #1
Libro.Save
Libro.Close
Objeto.Quit
Set Libro=Nothing
Set Objeto=Nothing
End Sub

Saludos
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