VBA：如何將值設置爲對象類型的textarea internetexplorer.application

我一直在嘗試使用VBA在宏中使用對象internetexplorer.application將一些文本寫入到aspnet窗體的textarea元素中VBA：如何將值設置爲對象類型的textarea internetexplorer.application

當我添加一個手錶設置「值」屬性後的對象，我得到我的所在地（使用一個MsgBox）設置文本，但是瀏覽器亙古不似乎得到文字時，我提交。

用IE 8.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

來源

2011-01-26 user590000

是否有你所添加的文字或取器可以使用提交表單元素的任何事件處理程序？ – barrowc 2011-01-27 01:06:03

你沒有幾天的答案，所以我對你現在的問題發表評論。我通過WebBrowser對象成功自動化IE，而不是通過Internetexplorer.Application對象。 Webbrowser不會打開IE應用程序實例，而只是在Web瀏覽器控件中以Access應用程序中的窗體形式顯示「文檔窗口」。所以如果你不使用Access或者其他原因，這可能對你來說不是一個有價值的提示。

這不是你的問題的答案，這就是爲什麼我等待一段時間來給我的評論，但這是我最好的評論，我通過一個wb對象做了所有可能的與DOM模型，並沒有遇到過像你這樣的問題我解決不了。所以你可能想嘗試和重寫你的sub使用Webbrowser。

來源

2011-01-30 20:30:37 mupan

VBA：如何將值設置爲對象類型的textarea internetexplorer.application

回答

相關問題