Hola
Pepepere. Bienvenido a FdW.
Aquí tienes lo que pides:
Código:
Sub leer_determinada_linea_de_un_fichero()
'Creamos el objeto FileSystemObject
Set fso = CreateObject("Scripting.FileSystemObject")
'Abrimos el fichero
Set archivo = fso.OpenTextFile("C\Mis documentos\fichero_que_queremos_leer.txt", 1)
'Cargamos en una variable la línea que queremos leer.
'En el ejemplo, leemos la línea 3, para lo cual nos
'saltaremos las 2 primeras líneas del fichero.
For i = 1 To 2
'saltamos 2 líneas
archivo.Skipline
Next
'Leemos la línea
contenido = archivo.readline()
'Cerramos el fichero
archivo.Close
'Limpiamos todo
Set fso = Nothing
Set archivo = Nothing
'Escribimos la línea 3 en la celda A1
Range("A1") = contenido
End Sub
Salu2