Archivo TXt y envio por Email

Pienso que es mejor abrir el fichero de texto con la instruccion Open de VBA, ir a la línea 32 y almacenar el texto en una variable, algo como:

Sub prueba()
Dim intFich As Integer, btNúmLínea As Byte, strLínea As String
intFich = FreeFile(0)

Open "C:\Ruta\Fichero.txt" For Input Access Read As intFich 'Ruta y nombre del fichero de texto
While btNúmLínea < 32
Line Input #intFich, strLínea
btNúmLínea = btNúmLínea + 1
Wend

'Ahora la variable strLínea tiene almacenada la línea 32 del fichero .txt
MsgBox strLínea

Close intFich
End Sub


Un saludo.


Fernando Arroyo
MS MVP - Excel


"jpandiani" escribió en el mensaje news:OHCOepb$

Tengo unos archivos en txt que en una determinada posicion
dentro del archivo digamos en la linea 32 tiene el destinatario
quiero enviar este archivo a ese destinatario.

lo que hice fue grabar una macro tomando el archivo , abrirlo con el excel y
evitando que se abra en columnas , luego extraer en una posicion con la
funcion extrae de la linea 32 el nombre del destinatario.
No se como pasar esa variable luego a la macro para que la pase como envio.

Desde ya muchas gracias