Running a Class Module from a Button

[indo583]

Hello,

I am new to class modules and I'm trying to figure out how to run it. I am trying to use WithEvents and NewWindow2 to access a child window. WithEvents is only available in an object module, so I created a class module and added the following code:

Public WithEvents IE1 As InternetExplorer
Public IE2 As InternetExplorer

Private Sub CommandButton1_Click()

    Dim strURL As String
    Dim ieDoc As Object
    
    strURL = "http://demos.telerik.com/aspnet-ajax/window/examples/overview/defaultcs.aspx"
    
    Set IE1 = New InternetExplorer
    Set IE2 = Nothing
    
    With IE1
        .navigate strURL
        .Visible = True
        While IE1.Busy: DoEvents: Wend
    End With
    
    Set ieDoc = IE2.document
    
    'code to interact with IE2 goes here

End Sub

Private Sub IE1_NewWindow2(ppDisp As Object, Cancel As Boolean)
    Set IE2 = New InternetExplorer
    Set ppDisp = IE2.Application
End Sub

I then created a command button on Sheet1, however when I click the button nothing happens. I have attached a workbook with this example.

Thanks in advance,
Matt

[Norie]

Matt

The code for the command button doesn't go in the class module, well not that one anyway.

It goes in the Sheet1's module.

[indo583]

Thanks for the reply. I moved the code to Sheet1's module, and it does run when I click the command button, but I get an error with:

Set ieDoc = IE2.document

The error I get is "Object variable or With block variable not set", any idea as to why?

Thanks,
Matt

[Solus Rankin]

You have IE2 set to nothing. It won't have a method or property.

Set IE2 = Nothing

[Norie]

What's the name of the class?

[indo583]

Thanks Solus, but the other Sub in the code sets IE2 as New InternetExplorer once it is created:

Private Sub IE1_NewWindow2(ppDisp As Object, Cancel As Boolean)
    Set IE2 = New InternetExplorer
    Set ppDisp = IE2.Application
End Sub

However, even if I remove "Set IE2 = Nothing" I still get the same error.

Thanks,
Matt

[indo583]

Hi Norie,

The entire code is listed in my first post. I moved it into the Sheet1 module as you suggested and deleted the class module, which allows it to run, however, I don't believe the second Sub that sets IE2 is running:

Private Sub IE1_NewWindow2(ppDisp As Object, Cancel As Boolean)
    Set IE2 = New InternetExplorer
    Set ppDisp = IE2.Application
End Sub

I added a message box to the IE1_NewWindow2 Sub, just to see it it was firing, and it was not.

I found this method of WithEvents and NewWindow2 from the following websites:

http://www.mrexcel.com/forum/excel-q...ld-window.html

http://visualbasic.about.com/od/stan...ieinstance.htm

Thanks,
Matt

[indo583]

I believe my original question of how to run my code has been answered. My issue is now more in line with my other thread of using VBA to interact with a Child Window in IE8: http://www.excelforum.com/excel-prog...ow-in-ie8.html

So I am going to mark this thread as solved, thanks for the help.
Matt

[Norie]

Matt

If the code is now working then you should have a reference to the child window, IE2.

You should be able to interact with that in the same way you would any other instance of IE.

[indo583]

Hi Norie,

The problem I now have is that the second sub is not firing:

Private Sub IE1_NewWindow2(ppDisp As Object, Cancel As Boolean)
    Set IE2 = New InternetExplorer
    Set ppDisp = IE2.Application
End Sub

Since this doesnt fire, IE2 is not set, and an error occurs when trying to interact with IE2

In my other thread, about interacting with a child window:

http://www.excelforum.com/excel-prog...ow-in-ie8.html

The forum user Chippy thinks the problem is that the WithEvents/NewWindow2 method is not working because it relates to IE browser windows. He believes the child window I am trying to access is a dynamic HTML/Javascript/AJAX window which is inside an iframe. Unfortunately he was unsure how to reslove this problem, so the issue remains. I just didn't want to have two active threads with the same question.

Thanks,
Matt

[Norie]

Matt

Is the URL in your original post 'real'?

[indo583]

Yes. The webpage is shows an example of a RadWindow. I thought it was just a IE browser window within a window, but apparently it is something completely different.