Símbolo comodín en macro excel
Hola,
En este ejemplo de "Aprendemos", que es una macro en excel para enviar un mail con fichero adjunto. ¿Cual sería el símbolo de comodín para ponerlo en el nombre de fichero?
Por ejemplo, para adjuntar varios ficheros que empiezan por el mismo nombre pero que, por la fecha de creación cambien las últimas letras del nombre.
He probado con asterisco, pero da error. Muchas gracias, un saludo
Sub correo()
'Por.Dam
Ruta = "C:\Documents and Settings\Soporte expertos\"
Archivo = "aa.xls"
Set dam1 = CreateObject("outlook.application")
Set dam2 = dam1.createitem(olmailitem)
dam2.to = "" '"[email protected]" 'Destinatarios
dam2.cc = "" '"[email protected]" 'Con copia
dam2.bcc = "[email protected]" 'Con copia oculta
dam2.Subject = "aviso informativo" '"Asunto"
dam2.Attachments.Add Ruta & Archivo
dam2.display 'El correo se muestra
End Sub
1 respuesta
Cambia la macro por esta
Sub correo()
'Por.Dam
ruta = "C:\trabajo\"
archivo = "*.xls*"
Set dam1 = CreateObject("outlook.application")
Set dam2 = dam1.createitem(olmailitem)
dam2.to = "" '"[email protected]" 'Destinatarios
dam2.cc = "" '"[email protected]" 'Con copia
dam2.bcc = "[email protected]" 'Con copia oculta
dam2.Subject = "aviso informativo" '"Asunto"
ChDir ruta
arch = Dir(archivo)
Do While arch <> ""
dam2.Attachments.Add ruta & arch
arch = Dir()
Loop
dam2.display 'El correo se muestra
End SubAhora con esta macro puedes usar el comodín * para poner varios archivos
Muchas gracias!!
Me ha servido de mucha ayuda. Ahora modificándolo y añadiendo un par de lineas me sera muy útil.
Un saludo.
