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

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


"Daher Abdeen" wrote:

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

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"






"OssieMac" wrote:

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


"Daher Abdeen" wrote:

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

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

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


"Daher Abdeen" wrote:

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"






"OssieMac" wrote:

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


"Daher Abdeen" wrote:

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

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

"Daher Abdeen" wrote:

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"






"OssieMac" wrote:

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


"Daher Abdeen" wrote:

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