用excel中的vba 给网页的文本框输入文字

Question

比如给http://post.58.com/7088/14455/s5?PGTID=14229846848900.9805473684182713&ClickID=3&ver=npost
用excel中的vba 给网页的培训内容的文本框输入文字 中国人民我爱你
需要完整的语句 请高人指点

Answer 1

Sub 输入()
    Set ie = CreateObject("InternetExplorer.Application")
    With ie
        .Navigate "
http://post.58.com/7088/14455/s5?PGTID=14229846848900.9805473684182713&ClickID=3&ver=npost
"  'Navigate方法可以打开指定的网页
        .Visible = True '打开后要显示网页
        .Document.All("Title").Value = "中国人民我爱你" 'Document.All("元素名称或ID") 可以引用某个元素，需要在网页源代码中查找。    End With
    Set ie = Nothing
End Sub

将以上代码复制到excel模块里，即为宏，运行此宏。因没找到你所说的培训内容，就以标题为例了。

追问

这个命令挺好的不过我要的是对培训介绍下面的文本框赋值
培训介绍：

其中的textarea赋予值，这个有没有什么语句可以的。

追答

给你回复以后，我自己也尝试了给textarea赋值，但没有成功。再请教高人吧。