FileSearch error 1004

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Daher Abdeen - 19 Sep 2007 05:32 GMT

i have a macro using Application.FileSearch in excell and was working
perfectly. only when we installed windows XP the file search is generating
run time error 1004 as "can't move focus to the control as it is invisible,
not enabled, or of a type that does not accept focus"

can someone help ?

This is my code

With Application.FileSearch
.NewSearch
.LookIn = myCell.Offset(1, 0).Value
.SearchSubFolders = CSubFolders
.Filename = myCell.Offset(1, 1).Value
.MatchTextExactly = CmatchExactTxt
.FileType = msoFileTypeAllFiles

End With

Reg. Daher

Reply to this Message

OssieMac - 19 Sep 2007 06:56 GMT

Hi,

I suggest that you insert some MsgBox's immediately prior to
'With Application.FileSearch' line and check what values you have in the
variable parts of your code. Without actually testing, my first thoughts are
that since you have installed a new operating system, the path may no longer
be correct.

Example:-
MsgBox "LookIn variable is: " & myCell.Offset(1, 0).Value
MsgBox "CSubFolders is: " & CSubFolders
MsgBox "myCell.Offset(1, 1).Value is: " & myCell.Offset(1, 1).Value

Regards,

OssieMac

> i have a macro using Application.FileSearch in excell and was working
> perfectly. only when we installed windows XP the file search is generating
[quoted text clipped - 16 lines]
>
> Reg. Daher

Reply to this Message

Daher Abdeen - 19 Sep 2007 13:00 GMT

Hi OssieMac,
the error occurs exactly at statement "With Application.FileSearch" all the
parameters are correct, i have mad sure about this by running the below

msgbox "1"
With Application.FileSearch <<<< error occurs here
msgbox "2"

> Hi,
>
[quoted text clipped - 33 lines]
> >
> > Reg. Daher

Reply to this Message

Charles Chickering - 19 Sep 2007 13:42 GMT

Are you running Office 2007? If so that's your problem Microsoft removed
Application.FileSearch from Excel2007

Signature

Charles Chickering

"A good example is twice the value of good advice."

> Hi OssieMac,
> the error occurs exactly at statement "With Application.FileSearch" all the
[quoted text clipped - 41 lines]
> > >
> > > Reg. Daher

Reply to this Message

OssieMac - 19 Sep 2007 13:46 GMT

I realize that is where you are getting your error but did you insert the
msgbox's that I gave you immediately before the line with the error and test
that the variables it is picking up and using are what they should be?

Also you said that you have upgraded to Windows XP. You didn't indicate that
you upgraded Excel but if you did upgrade to xl2007 then filesearch is not
supported in xl2007 even though all the help files still refer to it.

Can you open the required files in the interactive mode? This will test
whether it is the code or some other problem like inherited write protect or
something which you would have to address in the attributes in Windows
Explorer.

Regards,

OssieMac

> Hi OssieMac,
> the error occurs exactly at statement "With Application.FileSearch" all the
[quoted text clipped - 41 lines]
> > >
> > > Reg. Daher

Reply to this Message