Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
FileSearch error 1004
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
FileSearch error 1004
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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
FileSearch error 1004
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 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
FileSearch error 1004
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 |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
FileSearch error 1004
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
run time error 1004 general odbc error excel 2003 vba | Excel Programming | |||
Run Time Error 1004: Application or Object Defined Error | Excel Programming | |||
Run Time 1004 Error: Application or Object Difine Error | Excel Programming | |||
run-time error '1004': Application-defined or object-deifined error | Excel Programming | |||
Filesearch 1004 error with XL 2003 | Excel Programming |