Macros para extraer palabras especificas de un String

Parece que hay problemas en la página. Es la tercera vez que te lo envío. A ver si ahora.

Sub extraer_Año_y_Mes()
año = Mid(nom, InStr(1, nom, "2"), 4)
mes = Mid(nom, InStr(1, nom, "_") + 1, InStr(1, nom, "2") - InStr(1, nom, "_") - 1)
End Sub

Cambia nom, por el nombre de tu variable donde guardas el nombre del fichero.

Si te ha valido la respuesta.

Muchas gracias, funciona muy bien para el año. Aun tengo un  problema con el mes. Me falto algo en el nombre del texto. El texto es Informe_IVT_Noviembre2014_preliminar, por lo que algo pasa que no entrega solo el mes, si no que agrega más partes del texto

¿El nombre del fichero siempre va a comenzar por "Informe_IVT_"?

Si

Si es así, pon lo siguiente

Sub extraer_Año_y_Mes()
año = Mid(nom, InStr(1, nom, "2"), 4)
mes = Mid(13, InStr(1, nom, "2") - InStr(1, nom, "_") - 1)
End Sub

Si te ha valido la respuesta.

Sub extraer_Año_y_Mes()
año = Mid(nom, InStr(1, nom, "2"), 4)
mes = Mid(nom,13, InStr(1, nom, "2") - InStr(1, nom, "_") - 1)
End Sub

¡Gracias!  

Funciono muy bien! :)

Suponiendo que su variable "Informe_Noviembre2014_preliminar " está en la celda A1, entonces escribe en otra celda

=EXTRAE(A1;ENCONTRAR("_";A1)+1;ENCONTRAR("_";A1;ENCONTRAR("_";A1)+1)-ENCONTRAR("_";A1)-1)

Si esto lo querés hacer por código, también lo podés hacer de manera equivalente. La función extraer la podés reemplazar por Mid, y si bien no hay una función VBA que reemplace la función Encontrar, sí podés usar Application. WorksheetFunction. Find