Páginas

miércoles, 9 de julio de 2014

VBA Excel: Como asignar a una variable el valor de un archivo de texto.


Las claves son los statements Open y Line Input.

Sub mailtest()

Dim sourcefile As String
Dim linecontent As String
Dim mail_body As String


sourcefile = "D:\RubenBK\REPORTS\mailtemplates\Karla.txt"

'Esto abre el archivo para ingreso, y con el # le damos un numero de referencia.

Open sourcefile For Input As #1

'Line Input va ingresado el valor de cada linea a la variable linecontent

Do Until EOF(1)
    Line Input #1, linecontent
    mail_body = mail_body & vbNewLine & linecontent & vbNewLine
Loop
 
'Cierra el archivo.

Close #1

'Llamo a otro procedimiento para enviar el mail.

Call Mail_LSP("test", "ruben.torres@huawei.com", "ruben.torres@huawei.com", mail_body)

End Sub

No hay comentarios:

Publicar un comentario