¿Como seleccionar entre los archivos abiertos?
Buenos días,
Soy nueva haciendo macros y necesito ayuda. He hecho una macro en la que uso un archivo, me lo mandan todos los días, el problema es que cada vez lo hacen de una forma diferente (OPERACIONES 18-08-11 ó Operaciones 18-08-11 ó Operaciones 18-08-2011...) Yo cojo el nombre de la hoja de caáculo donde hago un concatenate de la palabra y la fecha, pero dado q varía mucho la forma en q me mandan el archivo quería poder usar una ventana que me mostrara todos los archivos que hay abiertos (Lo he visto en otras macros pero no se como hacerlo).
Tambien quería saber como puedo hacer para transformar mayúsculas en minúsculas o viceversa para trabajar siempre igual, el problema es que también me mandan diferente el nombre de las hojas.
Así es como llamo al fichero:
Call fichero("LIQUIDADAS")
'Función:
Sub fichero(hoja As String)
Workbooks("Portugal").Worksheets("DATOS").Activate 'Coge el nombre de la fórmula.
Workbooks(ActiveSheet.Range("K1").Value).Worksheets(hoja).Activate
End Sub
Soy nueva haciendo macros y necesito ayuda. He hecho una macro en la que uso un archivo, me lo mandan todos los días, el problema es que cada vez lo hacen de una forma diferente (OPERACIONES 18-08-11 ó Operaciones 18-08-11 ó Operaciones 18-08-2011...) Yo cojo el nombre de la hoja de caáculo donde hago un concatenate de la palabra y la fecha, pero dado q varía mucho la forma en q me mandan el archivo quería poder usar una ventana que me mostrara todos los archivos que hay abiertos (Lo he visto en otras macros pero no se como hacerlo).
Tambien quería saber como puedo hacer para transformar mayúsculas en minúsculas o viceversa para trabajar siempre igual, el problema es que también me mandan diferente el nombre de las hojas.
Así es como llamo al fichero:
Call fichero("LIQUIDADAS")
'Función:
Sub fichero(hoja As String)
Workbooks("Portugal").Worksheets("DATOS").Activate 'Coge el nombre de la fórmula.
Workbooks(ActiveSheet.Range("K1").Value).Worksheets(hoja).Activate
End Sub
