Tomar archivo y extraer datos sin abrirlo

Para Dante Amor :

Maestro, ¿podrias ayudarme con el siguiente problema?

Esta vez trataré de explicarlo detalladamente paso por paso:

- Seleccionar un archivo mediante dialogo tipo

Application. FileDialog(msoFileDialogFilePicker)

- Luego, sin abrir este archivo (o al menos que no sea visible) copiar datos o rango desde el archivo seleccionado hasta el archivo actual, algo así:

Copiar libroseleccionado. Sheets("hoja1"). Range("e10:h20") to thisworkbook. Sheets("pedido"). Range("a1:d10")