error en macro

15/09/2009 - 18:09 por AnaB | Informe spam
Tengo una Macro que toma un archivo en Asscii y lo divide en varios archivos
pero al correrla en la version 2007 me marca un error en la siguiente
instruccion


With Application.FileSearch


el error es

Se ha producido el error '5111' en tiempo de ejecucion:
Este comando no esta disponible en esta plataforma


Saben que instuccion se debe de usar en la version 2007


Saludos y Gracias de antemano


Ana B

Preguntas similare

Leer las respuestas

#1 Monica May
16/09/2009 - 00:30 | Informe spam
hola Ana,

Tengo una Macro que toma un archivo en Asscii
y lo divide en varios archivos
pero al correrla en la version 2007 me marca un error en la siguiente
instruccion
With Application.FileSearch
el error es
Se ha producido el error '5111' en tiempo de ejecucion:
Este comando no esta disponible en esta plataforma
Saben que instuccion se debe de usar en la version 2007




Bien mirate la sigueinte conversacion sobre el objeto FileSearch ;) >>

http://spedr.com/3ytkx

y... con la nueva version de office 2007 han introducido algunos cambios :(

entonces...Podrias poner el codigo completo que utilizas para tomar el
archivo ASCII ?? para adaptarla a Word

Comentanos...!

Saludos
Monica

www.fermu.com
www.teladearana.es
Respuesta Responder a este mensaje
#2 AnaB
20/10/2009 - 07:58 | Informe spam
Gracias por contestar Monica


el codigo es:

' Abre el Archivo
With Application.FileSearch
.Filename=NomA
.LookIN=CurDir
.FileType=msoFileTypeAllFiles
.Execute

v_existe=false
For i = 1 to FoundFiles.Count
<<<<<<<<<<<<<<<--
If UCase(.Foundfiles(I))= UCase(CurDir + "\" +ArchM) Then
EXISTE=True
Exit For
End If
Next I
End With

If Not w_existe Then
MsgBox "ERROR: No existe el archivo " & archN & en el directorio & CurDir
Else
Exit Do
End if





Ana B


























Do While True

' Alimentar nombre
NomA=Inputbox("Nombre archivo maestro","Formato yFragmentacion",sugerencia)
NomA=Trim(NomA)
Sugerencia=NomA

'Validaciones
If NomA="" Then
End
End If
If Len(NomA) <1 or Len(NomA) >8 then
MsgBox "ERROR: El nombre debe de ser de 1 a 8 caracteres"
Elseif InStr(1, NomA, ".",1) > 0 Or InStr(1, NomA, "/",1) > 0 Or InStr(1,
NomA, "\",1) > 0 Then
MsgBox "Nombre con caracteres no validos"
Else



"Monica May" escribió:

hola Ana,

> Tengo una Macro que toma un archivo en Asscii
>y lo divide en varios archivos
> pero al correrla en la version 2007 me marca un error en la siguiente
> instruccion
> With Application.FileSearch
> el error es
>Se ha producido el error '5111' en tiempo de ejecucion:
> Este comando no esta disponible en esta plataforma
> Saben que instuccion se debe de usar en la version 2007


Bien mirate la sigueinte conversacion sobre el objeto FileSearch ;) >>

http://spedr.com/3ytkx

y... con la nueva version de office 2007 han introducido algunos cambios :(

entonces...Podrias poner el codigo completo que utilizas para tomar el
archivo ASCII ?? para adaptarla a Word

Comentanos...!

Saludos
Monica

www.fermu.com
www.teladearana.es




Respuesta Responder a este mensaje
#3 Monica May
21/10/2009 - 19:33 | Informe spam
hola Ana,

Bien puedes utilizar por ejemplo en lugar de [FileSearch] la [funcion Dir]
segun tu ejemplo>>


'[]

x= Dir(Curdir & NomA)
Do While x <> ""
Debug.Print Curdir & NomA)
x=Dir()
Loop


'[]

Comentanos...!

Saludos
Monica



' Abre el Archivo
With Application.FileSearch
.Filename=NomA
.LookIN=CurDir
.FileType=msoFileTypeAllFiles
.Execute

v_existe=false
For i = 1 to FoundFiles.Count
<<<<<<<<<<<<<<<--
If UCase(.Foundfiles(I))= UCase(CurDir + "\" +ArchM) Then
EXISTE=True
Exit For
End If
Next I
End With

If Not w_existe Then
MsgBox "ERROR: No existe el archivo " & archN & en el directorio &
CurDir
Else
Exit Do
End if
Respuesta Responder a este mensaje
#4 monica may
21/10/2009 - 19:53 | Informe spam
hola Ana,

Bien puedes utilizar por ejemplo en lugar de [FileSearch] la [funcion Dir]
segun tu ejemplo>>


'[]

x= Dir(Curdir & NomA)
Do While x <> ""
Debug.Print Curdir & x
x=Dir()
Loop


'[]

Comentanos...!

Saludos
Monica





' Abre el Archivo
With Application.FileSearch
.Filename=NomA
.LookIN=CurDir
.FileType=msoFileTypeAllFiles
.Execute

v_existe=false
For i = 1 to FoundFiles.Count
<<<<<<<<<<<<<<<--
If UCase(.Foundfiles(I))= UCase(CurDir + "\" +ArchM) Then
EXISTE=True
Exit For
End If
Next I
End With

If Not w_existe Then
MsgBox "ERROR: No existe el archivo " & archN & en el directorio & CurDir
Else
Exit Do
End if

Respuesta Responder a este mensaje
#5 AnaB
28/10/2009 - 11:04 | Informe spam
Monica


Gracias ya funciono

Saludos Ana B
Ana B


"AnaB" escribió:

Tengo una Macro que toma un archivo en Asscii y lo divide en varios archivos
pero al correrla en la version 2007 me marca un error en la siguiente
instruccion


With Application.FileSearch


el error es

Se ha producido el error '5111' en tiempo de ejecucion:
Este comando no esta disponible en esta plataforma


Saben que instuccion se debe de usar en la version 2007


Saludos y Gracias de antemano


Ana B
Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaSiguiente Respuesta Tengo una respuesta
Search Busqueda sugerida