Macro excel para abrir dialogo seleccionar archivo
Buenas tardes.
Estoy realizando una macro en la que necesito copiar algunas hojas de un arhcivo a otro, el inconveniente es que no siempre es al mismo arhcivo al que se debe compiar las hojas, estaba tratando de colocar un cuadro de dialgo en el que pueda seleccionar el archivo al que yo quiero copiar la hojas pero no he podido lograrlo, he intentado colocar milibro = Application.GetOpenFilename pero no se como obtener el nombre del archivo que selecciono.
Agradezco me puedan ayudar, gracias.
Estoy realizando una macro en la que necesito copiar algunas hojas de un arhcivo a otro, el inconveniente es que no siempre es al mismo arhcivo al que se debe compiar las hojas, estaba tratando de colocar un cuadro de dialgo en el que pueda seleccionar el archivo al que yo quiero copiar la hojas pero no he podido lograrlo, he intentado colocar milibro = Application.GetOpenFilename pero no se como obtener el nombre del archivo que selecciono.
Agradezco me puedan ayudar, gracias.
1 Respuesta
Respuesta de Elsa Matilde
1
El nombre del libro que seleccionas en el cuadro de diálogo se guarda en la variable 'milibro', conteniendo además la ruta
Te dejo algunas instrucciones de ejemplo :
sub macroejemplo()
milibro = Application.GetOpenFilename 'ventana de diálogo
if milibro =false then exit sub 'si se cancelóla ventana
workbooks.open milibro 'se abre el libro seleccionado
nbrelibro = ActiveWorkbook.Name 'se guarda el nombre del libro sin la ruta
MsgBox nbrelibro 'opción de ver el nombre
end sub
Te dejo algunas instrucciones de ejemplo :
sub macroejemplo()
milibro = Application.GetOpenFilename 'ventana de diálogo
if milibro =false then exit sub 'si se cancelóla ventana
workbooks.open milibro 'se abre el libro seleccionado
nbrelibro = ActiveWorkbook.Name 'se guarda el nombre del libro sin la ruta
MsgBox nbrelibro 'opción de ver el nombre
end sub
