Component Request Pending

In my program, I call the excel application to perform a long operation task upon responding to a click onto a command buton. I like to know how do I by pass the display of the Component Request Pending dialog and raise an error trap in responding to the mouse clicks, or a keypress. In another word, my purpose is after clicking the button to perform the excel job, if somehow the user click the cancel button or escape key, i could be able to stop the program or pausing it. Any suggestion will be a big help. Thanks

Ive got the same problem, hey vbmember, if i find out ill let you know somehow, ok.

Hey...Somebody help US!!!

Dave

You have a form with a launch button and a cancel button, and all manipulation of the excel spreadsheet is done inside u'r vb app ?

Perhaps if I tell you the whole story :D

The following code searches withing files:

sDir = "\\BDS_SERVER\Dave\Dave\New CD-COB\" & vol

sSearchfor = Text1.Text
If sSearchfor = "" Then Exit Sub

If objWord Is Nothing Then
Set objWord = CreateObject("Word.Application")
Else
Set objWord = GetObject(, "Word.Application")
End If

With objWord.FileSearch
.NewSearch
.LookIn = sDir
.SearchSubFolders = True
.MatchTextExactly = False
.TextOrProperty = "*" & sSearchfor & "*"
.FileType = msoFileTypeAllFiles

If .Execute() > 0 Then
StatusBar1.SimpleText = "There were " & .FoundFiles.Count & " file(s) found that match your criteria."
Text2.Visible = False
For i = 1 To .FoundFiles.Count
List1.List(i - 1) = .FoundFiles(i)
Next i

Else
MsgBox "There were no files found."
Text2.Visible = False
End If
End With

I get the following problem. 'Component Request Pending, this action cannot be completed because the application is too busy? ....Press Switch too or Retry'

If i hit retry it will eventually complete the file search, any ideas on how i can get the code to stop freesing everything in the window. I also need to work out a way or stopping the search is the user requests it (but thats not as important).

I inserted messageboxes along the code and the problem seems to occur on the 'If .Execute() > 0 Then' line.

Ive been battling with this thing for days, and im kinda sick of the sight of it! :)

Many thanks in advance

Desperado ' REMEMBER ME ' Dave :confused:

Perhaps i should just look for different search code? Shame seeing as it took me days to get this piece! Ideas are welcome as i am lost.

Thanks
DAVE

VB Code:

'----------------------------------------
'- Name:    peet
'- Email:   [email][email protected][/email]
'- Web: 
'- Company: PvP
'----------------------------------------
'- Notes:   
'- Sample to show how to search a word-
'  document using automation
'       
'----------------------------------------
 
Private objWord As Word.Application
Private wd As Word.Document
 
Private Sub Command1_Click()
    Dim myRange As Range
    Dim sSearchfor As String
    sSearchfor = InputBox("What do u want to search for?")
    If sSearchfor = "" Then Exit Sub
    
    If objWord Is Nothing Then
        Set objWord = CreateObject("Word.Application")
    Else
        Set objWord = GetObject(, "Word.Application")
    End If
    DoEvents
    Set wd = objWord.Documents.Open("c:\Test.doc")
    
    Set myRange = wd.Content
    myRange.Find.Execute FindText:=sSearchfor, Forward:=True
    If myRange.Find.Found Then
        MsgBox "The document contains :'" & sSearchfor & "'", vbInformation
    Else
        MsgBox "The document do NOT contain'" & sSearchfor & "'", vbInformation
    End If
    
    If Not (wd Is Nothing) Then Set wd = Nothing
    If Not (objWord Is Nothing) Then objWord.Application.Quit
    If Not (objWord Is Nothing) Then Set objWord = Nothing
 
End Sub

This sample is a bit slower than the solution u had, but it will give u a better control over the code.

The problem with using .Execute is that u can not interrupt it...

Play around with the code above. Hope it can get u onto the right track. :)

Yes it does remove the .execute problem, ill have to give it more thought, Thanks Peet! :)

P.S sorry it took me so long to reply