Nombre de archivo en macros

15/09/2003 - 17:26 por Diego Granada | Informe spam
Hola, mi problema es que quiero activar un archivo en una
macro sin utilizar explititamente el nombre del archivo
sino utilizando algun comando porque es una macro que va a
ser utilizada en diferentes archivos con diferente nombre
pero que no van a estar abiertos al mismo tiempo.

aqui pongo un ejemplo:

Sub Mr_Valvulas()
'
' Mr_Valvulas Macro
' Macro grabada el 22/07/2003 por dgranada
'

'
Sheets("MR").Select
Selection.AutoFilter Field:, Criteria1:="<>0",
Operator:=xlAnd
Range("C5:K5").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Workbooks.Open Filename:="C:\Estandar
CAT\MRVALVULAS.xls"
Sheets("MATERIAL REQUISITION - MR").Select
Range("D14").Select
Selection.PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Windows("EJEMPLO.xls").Activate
Selection.AutoFilter Field:
Range("A1").Select
Sheets("Resultados").Select
Windows("MRVALVULAS.xls").Activate
End Sub

El nombre de mi archivo es EJEMPLO. Como hago para que la
macro active ese archivo con una funcion o un comando.

Gracias

Preguntas similare

Leer las respuestas

#1 fernan
15/09/2003 - 18:21 | Informe spam
¿has probado a sustituir el nombre del fichero por una variable, en la que
has guardado el valor del fichero?


"Diego Granada" escribió en el mensaje
news:016101c37b9d$c9145260$
Hola, mi problema es que quiero activar un archivo en una
macro sin utilizar explititamente el nombre del archivo
sino utilizando algun comando porque es una macro que va a
ser utilizada en diferentes archivos con diferente nombre
pero que no van a estar abiertos al mismo tiempo.

aqui pongo un ejemplo:

Sub Mr_Valvulas()
'
' Mr_Valvulas Macro
' Macro grabada el 22/07/2003 por dgranada
'

'
Sheets("MR").Select
Selection.AutoFilter Field:, Criteria1:="<>0",
Operator:=xlAnd
Range("C5:K5").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Workbooks.Open Filename:="C:\Estandar
CAT\MRVALVULAS.xls"
Sheets("MATERIAL REQUISITION - MR").Select
Range("D14").Select
Selection.PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Windows("EJEMPLO.xls").Activate
Selection.AutoFilter Field:
Range("A1").Select
Sheets("Resultados").Select
Windows("MRVALVULAS.xls").Activate
End Sub

El nombre de mi archivo es EJEMPLO. Como hago para que la
macro active ese archivo con una funcion o un comando.

Gracias
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida