En este grupo En todos

Foro de Excel



Selector de Hoja desde un Control Activo (VBA)

Marcos
Aragua, Venezuela
Escrito por Marcos Rom
el 19/03/2012

Saludos a Todos
Estoy trabajando en una rutina que al correrla el usuario va a seleccionar un archivo excel, donde la información del mismo estará repartida en varias hojas.
Lo que necesito hacer es que el usuario una vez seleccionado el archivo a abrir pueda seleccionar con algun formulario la hoja donde se aplicará la rutina ya programada.
Existe la manera de realizar esta selección?

He visto cuando se trabaja (en Word) con combinación de correspondencia, que al seleccionar la base de datos, de ser esta un archivo Excel, se debe seleccionar de que hoja se combinaran los datos. Algo similar a esto es lo que estoy necesitando hacer en este momento.

Gracias de antemano el apoyo que me puedan dar.

Que estén muy bien!

Cacho Rodríguez
Ingeniería electrónica universidad nac...
Escrito por Cacho Rodríguez
el 19/03/2012

Si te parece bien, Marcos, podrías ir mostrándonos lo que has desarrollado para ayudarte a partir de esa base.

Marcos Rom
Aragua, Venezuela
Escrito por Marcos Rom
el 19/03/2012

Saludos Cacho
Parte de lo que se ha desarrollado es:
'====================================================
'Diálogo para abrir archivo

StrNombreArchivo = Application. GetOpenFilename
If strNombreArchivo = False Then Exit Sub

Workbooks. OpenText _
Filename:=strNombreArchivo, _
Origin:=xlWindows, _
StartRow:=1, _
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, _
Tab:=False, _
Semicolon:=False, _
Comma:=False, _
Space:=True, _
Other:=False, _
FieldInfo:=Array(1, 1)


Antes de este proceso el usuario debería escoger cual de las hojas disponible en el archivo recien abierto sera la hoja a procesar.
Se copiaría solo la hoja seleccionada por el usuario.


'====================================================
'Crear copia de archivo original en Hoja1

Workbooks(Workbooks. Count). Activate
Sheets(1). Select
Sheets(1). Copy After:=Workbooks("nombre archivo"). Sheets(3)
Workbooks(Workbooks. Count). Activate
ActiveWorkbook. Close savechanges:=False 'Evita el mensaje de guardar cambios
Workbooks("nombre archivo"). Activate

Agradezco el apoyo.

Saludos

Cacho Rodríguez
Ingeniería electrónica universidad nac...
Escrito por Cacho Rodríguez
el 19/03/2012

Al mirar el código que publicas, uno se "desayuna" con que estabas hablando de un archivo de texto.

Personalmente considero que te encuentras brindando información -demasiado- en cuenta gotas, por lo que resultará muy difícil comprender tu problemática.

Dicho de otro modo: será bueno que subas al Foro los archivos involucrados en el proceso sobre el que consultas (de Excel y de Texto) para no tener que estar "adivinando" ni haciendo suposiciones.

Te pongo por caso: quieres que el usuario seleccione a partir de un formulario, una cierta hoja, pero dicho formulario lo deberíamos ver en alguno de tus archivos y no en el texto que has publicado.

Saludos, Cacho R.

Cacho Rodríguez
Ingeniería electrónica universidad nac...
Escrito por Cacho Rodríguez
el 29/03/2012

Cerramos este debate ante el abandono del mismo por parte del OP.