Ayuda con macro!

Hola a toda la comunidad!!!
Bueno, resulta que tengo que trabajar con un par de sistemas (excel y un emulador) de sistemas y me manda error en una parte de la
macro:

Private Sub filelistload()
filename = Dir(CurDir$ + "\data\*.xls")

filelist.Clear


Do While filename <> "" ' Start the loop.

filelist.AddItem filename

filename = Dir() ' Get next entry.
Loop
formlock = False
fileused.Caption = "NO FILE SELECTED"
End Sub


Y el mensaje que me manda es:

Compile error:
Can't find project or library

La información que coloqué entre "--" es la parte que me marca en amarillo con una flecha y seleccionado el texto CurDir$,

Como podré corregir esta falla!?

Gracias y saludos
Isrrael

Hola Isrrael,

?Has mirado en el menu Herramientas>Referencias... ya?

Saludos,
KL


"Isrrael" wrote in message
news:

Hola a toda la comunidad!!!
Bueno, resulta que tengo que trabajar con un par de sistemas (excel y un
emulador) de sistemas y me manda error en una parte de la macro:

Private Sub filelistload()
filename = Dir(CurDir$ + "\data\*.xls")

filelist.Clear


Do While filename <> "" ' Start the loop.

filelist.AddItem filename

filename = Dir() ' Get next entry.
Loop
formlock = False
fileused.Caption = "NO FILE SELECTED"
End Sub


Y el mensaje que me manda es:

Compile error:
Can't find project or library

La información que coloqué entre "--" es la parte que me marca en
amarillo con una flecha y seleccionado el texto CurDir$,

Como podré corregir esta falla!?

Gracias y saludos
Isrrael

Hola KL!
gracias por tu ayuda..., pero no esta habilitada esta funcion..., aparece, pero no puedo usarla...
Gracias
Isrrael
"KL" wrote in message news:%

Hola Isrrael,

?Has mirado en el menu Herramientas>Referencias... ya?

Saludos,
KL


"Isrrael" wrote in message news:

Hola a toda la comunidad!!!
Bueno, resulta que tengo que trabajar con un par de sistemas (excel y un emulador) de sistemas y me manda error en una parte de
la macro:

Private Sub filelistload()
filename = Dir(CurDir$ + "\data\*.xls")

filelist.Clear


Do While filename <> "" ' Start the loop.

filelist.AddItem filename

filename = Dir() ' Get next entry.
Loop
formlock = False
fileused.Caption = "NO FILE SELECTED"
End Sub


Y el mensaje que me manda es:

Compile error:
Can't find project or library

La información que coloqué entre "--" es la parte que me marca en amarillo con una flecha y seleccionado el texto CurDir$,

Como podré corregir esta falla!?

Gracias y saludos
Isrrael

Hola Isrrael,

Me refiero a que si has verificado que biblioteca te falta? Mira el menu
Herramientas>Referencias... del Editor VBA. Esta funcion es bastante
basica asi que probablemente te falte una [referencia a...] biblioteca
esencial. Es posible que tengas que reinstalar Excel aunque no sin antes
probar lo siguiente:

con excel 'cerrado'...
ejecuta el siguiente comando [desde: boton inicio -> ejecutar]:
excel /regserver

Saludos,
KL


"Isrrael" wrote in message
news:

Hola KL!
gracias por tu ayuda..., pero no esta habilitada esta funcion...,
aparece, pero no puedo usarla...
Gracias
Isrrael
"KL" wrote in message
news:%

Hola Isrrael,

?Has mirado en el menu Herramientas>Referencias... ya?

Saludos,
KL


"Isrrael" wrote in message
news:

Hola a toda la comunidad!!!
Bueno, resulta que tengo que trabajar con un par de sistemas (excel y
un emulador) de sistemas y me manda error en una parte de la macro:

Private Sub filelistload()
filename = Dir(CurDir$ + "\data\*.xls")

filelist.Clear


Do While filename <> "" ' Start the loop.

filelist.AddItem filename

filename = Dir() ' Get next entry.
Loop
formlock = False
fileused.Caption = "NO FILE SELECTED"
End Sub


Y el mensaje que me manda es:

Compile error:
Can't find project or library

La información que coloqué entre "--" es la parte que me marca en
amarillo con una flecha y seleccionado el texto CurDir$,

Como podré corregir esta falla!?

Gracias y saludos
Isrrael

Hi,
De nuevo, sigue sin funcionar..., ya realice ?los pasos indicados pero sigo sin poder usar la macro...
Saludos!
Ahora las bibliotecas o referencias son muchas..., ya hice referencia al emulador que uso, pero aun asi no funciona...
"KL" wrote in message news:%

Hola Isrrael,

Me refiero a que si has verificado que biblioteca te falta? Mira el menu Herramientas>Referencias... del Editor VBA. Esta funcion
es bastante basica asi que probablemente te falte una [referencia a...] biblioteca esencial. Es posible que tengas que reinstalar
Excel aunque no sin antes probar lo siguiente:

con excel 'cerrado'...
ejecuta el siguiente comando [desde: boton inicio -> ejecutar]:
excel /regserver

Saludos,
KL


"Isrrael" wrote in message news:

Hola KL!
gracias por tu ayuda..., pero no esta habilitada esta funcion..., aparece, pero no puedo usarla...
Gracias
Isrrael
"KL" wrote in message news:%

Hola Isrrael,

?Has mirado en el menu Herramientas>Referencias... ya?

Saludos,
KL


"Isrrael" wrote in message news:

Hola a toda la comunidad!!!
Bueno, resulta que tengo que trabajar con un par de sistemas (excel y un emulador) de sistemas y me manda error en una parte
de la macro:

Private Sub filelistload()
filename = Dir(CurDir$ + "\data\*.xls")

filelist.Clear


Do While filename <> "" ' Start the loop.

filelist.AddItem filename

filename = Dir() ' Get next entry.
Loop
formlock = False
fileused.Caption = "NO FILE SELECTED"
End Sub


Y el mensaje que me manda es:

Compile error:
Can't find project or library

La información que coloqué entre "--" es la parte que me marca en amarillo con una flecha y seleccionado el texto CurDir$,

Como podré corregir esta falla!?

Gracias y saludos
Isrrael