Question

我正在尝试通过VBA自动将一些单词输入到Google Translate的“文本区域”中，并使用“ IE.Document.GetElementByID（）。SetAttribute（）”函数输入这些单词。但是此表达式中有一些语法错误，我找不到原因。

我尝试通过“源”来显示文本区域的ID

Dim IE As Object

Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.navigate "https://translate.google.com/?hl=zh-TW"
Do Until IE.busy
Loop
Call IE.Document.GetElementByID("source").SetAttribute("value, "Dummy")

我希望在运行代码时，“虚拟”一词会自动输入到Google Translate的文本区域中。可以打开页面，但是“虚拟”未显示在文本区域上，并在最后一行显示“语法”错误。

Answer 1

这对我有用

Sub dothings()

    Dim objIE As InternetExplorer

    Set objIE = New InternetExplorer
    objIE.Visible = True

    objIE.navigate "https://translate.google.com"

    Do While objIE.Busy = True Or objIE.readyState <> 4: DoEvents: Loop

    objIE.document.getElementById("source").Value = "Hello world!"

End Sub

这对阅读http://automatetheweb.net/

非常有用

如何获取Google翻译的“文本区域”元素的ID？

1 个答案: