Añadir un control a un UserForm que adjunte archivos

Solo consultas sobre macros y código VBA Excel.

Reglas del Foro
1. Antes de hacer tu pregunta intenta con el buscador de este foro (muchas preguntas ya fueron respondidas antes!)
2. Si haces una nueva pregunta, es muy recomendable que adjuntes el ejemplo Excel para poder comprenderla mejor!
3. Realiza tu pregunta de forma clara, explicando bien cada paso de lo que haces y tendrás más probabilidad de respuesta!
Compartir en:
     

Añadir un control a un UserForm que adjunte archivos

Notapor saulo » 09 Mar 2010 18:44

Hola

Quisiera saber si es posible hacer lo siguiente:

Tengo un userform que envía correos, eso me funciona bien,
Si pongo por ejemplo

.AddAttachment = TextBox7

me adjunta el archivo y va bien pero me obliga a escribir y saber la ruta completa, el nombre y extension del adjunto de antemano, lo que me gustaría es poder poner un control en el userform (Ej.: command button o lo que me digan), que lo que haga es buscar en mi disco duro el archivo (si se pudieran buscar varios mejor) y me ponga la ruta completa y nombre de archivo en un textbox o donde me digan que es mejor, y así poder enviarlo adjunto al mail en la instrucción

.AddAttachment = ????????

Les adjunto lo que tengo hecho de momento

Gracias anticipadas por vuestra ayuda
No tiene los permisos requeridos para ver los archivos adjuntos a este mensaje.
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
saulo
Miembro Nuevo
Miembro Nuevo
 
Registrado: 28 Feb 2010 22:28

Re: Añadir un control a un UserForm que adjunte archivos

Notapor Tokenring » 09 Mar 2010 19:30

Buenas Tardes:

Tal vez no entendí bien, pero según yo para que en un TextBox te ponga la ruta y el nombre del archivo
Puede usar algo así:

Private Sub Buscar_Archivos_Click()
Dim archivo As String
archivo = Application.GetOpenFilename
TextBox7.Text = archivo
End Sub

En espera de tus comentarios para saber si entendí el problema

Saludos...
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
Tokenring
Miembro Frecuente
Miembro Frecuente
 
Registrado: 03 Mar 2010 14:41
Ubicación: Mexico

Re: Añadir un control a un UserForm que adjunte archivos

Notapor saulo » 10 Mar 2010 22:11

perfecto, es justo lo que necesitaba.

mil gracias. :D :D
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
saulo
Miembro Nuevo
Miembro Nuevo
 
Registrado: 28 Feb 2010 22:28


Compartir en:
     

  • Anuncio
Manual Excel avanzado

Volver a Macros

¿Quién está conectado?

Usuarios navegando por este Foro: davisal y 5 invitados