VBA：如何在internetexplorer.application的对象类型中将值设置为textarea

我一直在尝试使用VBA在宏中使用对象internetexplorer.application将一些文本写入aspnet表单的textarea元素

当我在设置“Value”属性后将手表添加到对象时，我会得到我正在设置的文本（使用MsgBox），但提交时浏览器似乎没有得到文本

我正在使用IE8.0.6001和Office 2003

如有任何帮助/意见，将不胜感激

谢谢

Sub Test2()

Dim Title As String
Dim Comments As String



Set wb = CreateObject("internetexplorer.application")
wb.navigate2 "http://tudrintra01/ads/Lists/Tasks1/NewForm.aspx?RootFolder=%2Fads%2FLists%2FTasks1&ContentTypeId=0x01030062FE73EDFA7DA644A27CE244EA983DA4&Source=http%3A%2F%2Ftudrintra01%2Fads%2FLists%2FTasks1%2FMyItems%2Easpx" 

wb.Visible = True

 Title = "TITULO PRUEBA"
 Comments = COMENTARIO PRUEBA" '"Comentario"


Do Until wb.readyState = 4 ' wait for page to load
 DoEvents
 Loop

    'Si el objeto es el Titulo del task
    wb.Document.getElementByID("ctl00_m_g_c0644918_3730_4e2c_8434_7b760939e3d4_ctl00_ctl04_ctl00_ctl00_ctl00_ctl04_ctl00_ctl00_TextField").Value = Title

    'Si el objeto es el Comment
    wb.Document.getElementByID("ctl00_m_g_c0644918_3730_4e2c_8434_7b760939e3d4_ctl00_ctl04_ctl14_ctl00_ctl00_ctl04_ctl00_ctl00_TextField").Value = Comments



    ' Clean up
    Set wb = Nothing

End Sub

---

你已经好几天没有得到答案了，所以我现在就评论你的问题。我通过WebBrowser对象成功地自动化了IE，而不是通过Internetexplorer.Application对象。Webbrowser不会打开IE应用程序实例，只会打开Access应用程序窗体中Webbrowser控件中的“文档窗口”。因此，如果您不使用Access或出于其他原因，这可能不是一个有价值的提示

---

这不是对你问题的回答，这就是为什么我等了一段时间才给出我的评论，但这是我最好的评论，我通过wb对象对DOM模型做了一切可能的事情，从未遇到过像你这样我无法解决的问题。因此，您可能希望尝试使用Webbrowser重写sub。

在要将文本添加到的元素上或在用于提交表单的控件上是否有任何事件处理程序？