macro

[excelente]

como puedo hacer una macro con esta idea

Sub AbrirSubCarp()
Dim NomCarpeta As String
'encontrar una carpeta fija
NomCarpeta = "G:\01 ESTADOS CUENTA 2004"
'preguntar cual carpeta se desea...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Adrian]

Antes de todo pido disculpas, por que no entiendo bien cuál es tu requerimiento.

Atte.

 

[excelente]

NomCarpeta = "G:\01 ESTADOS CUENTA 2004\10\200\"

como puedo hacer una macro que realice los sig

que abra esta ruta G:\01 ESTADOS CUENTA que seria una carpeta fija, en esta carpeta tengo mas...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Adrian]

Mamos a ver si puedo ayudar, esta es la macro ejemplo:

Sub AbrirSubCarp()
Dim NomCarpeta As String
'encontrar una carpeta fija
NomCarpeta = "G:\01 ESTADOS CUENTA 2004"
'preguntar cual carpeta...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[excelente]

como puedo agregar un InputBox para que
me pregunte el archivo que deseo abrir dentro de la carpeta 200
son 31 archivos con ext .prn

despues con el asistente para importar texto debo de oprimir...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Adrian]

Suponiendo que ya estamos "parados" en el lugar donde tengo los archivos que se abrirán puedo agregar este código:

Dim Archivo As String
Archivo = InputBox("Nombre del archivo" & Chr(13) & "sin...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[excelente]

me genera el error '1004'

en la sig linea Workbooks.Open Trim(Archivo) & ".xls"

Error en la macro
Hay un error en la macro que se estaba ejecutando. El método especificado no puede utilizarse en...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Adrian]

Veremos que puedo hacer ahora, te propongo ver esta macro.