Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations Westi on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Run-time error 445 - Object doesn't support this action

Status
Not open for further replies.

ceil32

MIS
Apr 8, 2008
263
IE
I have a Macro that has always worked on previous versions of Excel (it still works on Excel 2003 & older on different clients)

When I upgraded a user to Excel 2007 and tried to run the Macro I got the error : "Run-time error 445 - Object doesn't support this action"

Macro Security is set to low - is there anything else I can do??

Thanks..
 
I've just read that Filesearch is no longer supported in Excel 2007 - here is the full code - is there a way around this?

:

-------

With Application.FileSearch

.LookIn = Worksheets("Runtime").Range("D3").Value
.SearchSubFolders = False
.Filename = Worksheets("Runtime").Range("D5").Value & "." & Worksheets("Runtime").Range("D7").Value
.MatchTextExactly = True
.FileType = msoFileTypeAllFiles

If .Execute() > 0 Then

For i = 1 To .FoundFiles.Count
response = MsgBox("Do you want to import " & .FoundFiles(i) & "?", vbYesNoCancel, "Select Order file to import")

If response = vbYes Then ' User chose Yes.
Debug.Print "Import " & .FoundFiles(i) ' Perform some action.
vrtSelectedItem = .FoundFiles(i)
Else ' User chose No.
If response = vbNo Then
Debug.Print " Don't Import " & .FoundFiles(i) ' Perform some action.
Else
Debug.Print "Cancel selected"
End If
End If

 
Please post in the VBA forum: Forum707

Rgds, Geoff

We could learn a lot from crayons. Some are sharp, some are pretty and some are dull. Some have weird names and all are different colours but they all live in the same box.

Please read FAQ222-2244 before you ask a question
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top