是不是跨域了,不让呀,我见过跨域不行的
Set ie = CreateObject("internetexplorer.application")
ie.navigate "http://tieba.baidu.com/f?kz=205761378"
ie.Visible = True
While ie.busy Or ie.readystate <> 4
Wend
ie.document.Post.co.Focus
ie.document.Post.co.Value = "me"
ie.document.Post.Submit3.Click
这样即可,如果不想出现IE窗口,把ie.Visible = True这句去掉
mei