Hi All,
I want to develop a vba prog to automatically fill in the input box in the a forum shown in the following link, which is in Chinese. The input box is on the bottom of the page. Actually, it is pretty much like the one we are using on mrexcel forum.
¡¾µêÆÌÓªÏú¡¿ÖвîÆÀÄã²»µÃ²»ÖªµÀµÄΣº¦ - ÍøÉÌÂÛ½£ - ÌÔ±¦ÂÛ̳ - ÌÔ±¦Íø
By using the Firefox's page inspector, I can see it is not a regular input box. I don't know how to grasp the input tag which allows me to set the my message to the object.
my program is like this:
Sub replythread()
Dim thrdlink
Dim IE As Object
Dim objCollection As Object
Set IE = CreateObject("InternetExplorer.Application")
thrdlink = Cells(2, 2).Value
IE.Navigate "http://bbs.taobao.com/catalog/thread/1338197-263459730.htm"
IE.Visible = True
Do
DoEvents
Loop Until IE.readyState = READYSTATE_COMPLETE
Application.Wait (Now + TimeValue("0:00:02"))
Dim doc As MSHTML.HTMLDocument
Set doc = IE.document
Set objCollection = doc.getElementsByTagName("fieldset")
Set objCollection(0).Value = "support and mark" 'pseudocode and isn't supported by vba
objcollection(0).click 'pseudocode and isn't supported by vba
End Sub
The last two lines of code are pseudocode which means to input the word "support and mark" and submit it. This two lines of code didn't work since VBA doesn't support it.
Anybody has an idea about how to automatically input content and submit.
Any suggestion is welcome.
Thanks in advance.
I want to develop a vba prog to automatically fill in the input box in the a forum shown in the following link, which is in Chinese. The input box is on the bottom of the page. Actually, it is pretty much like the one we are using on mrexcel forum.
¡¾µêÆÌÓªÏú¡¿ÖвîÆÀÄã²»µÃ²»ÖªµÀµÄΣº¦ - ÍøÉÌÂÛ½£ - ÌÔ±¦ÂÛ̳ - ÌÔ±¦Íø
By using the Firefox's page inspector, I can see it is not a regular input box. I don't know how to grasp the input tag which allows me to set the my message to the object.
my program is like this:
Sub replythread()
Dim thrdlink
Dim IE As Object
Dim objCollection As Object
Set IE = CreateObject("InternetExplorer.Application")
thrdlink = Cells(2, 2).Value
IE.Navigate "http://bbs.taobao.com/catalog/thread/1338197-263459730.htm"
IE.Visible = True
Do
DoEvents
Loop Until IE.readyState = READYSTATE_COMPLETE
Application.Wait (Now + TimeValue("0:00:02"))
Dim doc As MSHTML.HTMLDocument
Set doc = IE.document
Set objCollection = doc.getElementsByTagName("fieldset")
Set objCollection(0).Value = "support and mark" 'pseudocode and isn't supported by vba
objcollection(0).click 'pseudocode and isn't supported by vba
End Sub
The last two lines of code are pseudocode which means to input the word "support and mark" and submit it. This two lines of code didn't work since VBA doesn't support it.
Anybody has an idea about how to automatically input content and submit.
Any suggestion is welcome.
Thanks in advance.