Ayuda programacion Excel-Visual
- Autor de tema deimozx
- Fecha de inicio
gaboing2008
Becerro
- Desde
- 15 Dic 2008
- Mensajes
- 16
Sub leer_fichero_de_texto()
On Error Resume Next
Application.ScreenUpdating = False
fichero_de_texto = "mifichero.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
ruta = ActiveWorkbook.Path
Set archivo = fs
penTextFile(ruta & "\" & fichero_de_texto, 1)
contenido = archivo.readall
archivo.Close
Set fso = Nothing
Set archivo = Nothing
contenido = Split(contenido, vbCrLf)
Range("A1").Select
For i = 0 To UBound(contenido)
ActiveCell = contenido(i)
ActiveCell.Offset(1, 0).Select
Next
Application.ScreenUpdating = True
End Sub
On Error Resume Next
Application.ScreenUpdating = False
fichero_de_texto = "mifichero.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
ruta = ActiveWorkbook.Path
Set archivo = fs
penTextFile(ruta & "\" & fichero_de_texto, 1)contenido = archivo.readall
archivo.Close
Set fso = Nothing
Set archivo = Nothing
contenido = Split(contenido, vbCrLf)
Range("A1").Select
For i = 0 To UBound(contenido)
ActiveCell = contenido(i)
ActiveCell.Offset(1, 0).Select
Next
Application.ScreenUpdating = True
End Sub