Question

我在这里有一个非常简单的例子，当按下button1将打开一个新的窗口并进入谷歌搜索输入“便宜的塑料窗口”。我想要做的是当我按下按钮2谷歌搜索（已打开即窗口）中的文本更改为“便宜的塑料门”。我一直试图做2天，但似乎无法找到如何。如果你能帮助一个有效的例子，我将不胜感激。谢谢

Private Sub CommandButton1_Click()

Set objIE = CreateObject("InternetExplorer.Application")

objIE.Visible = True

objIE.Navigate ("www.google.co.uk")

Do 

DoEvents

Loop Until objIE.ReadyState = 4

objIE.Document.GetElementById("lst-ib").Value = "cheap plastic windows"

End Sub

Private Sub CommandButton2_Click()
'the command below does not as obviously the objIE is not select which I have no idea how to do

ie.Document.GetElementById("lst-ib").Value = "cheap plastic doors"

End Sub

Answer 1

你可以使用它来检查以确保窗口在那里，如果是这样，它会找到它并输入它。如果用户在单击“CommandButton2”之前转到另一个应用程序可能无法正常工作，则存在一个小风险。但是，如果用户只停留在您的宏和IE上，它将起作用。

/app

VBA Excel输入数据已经打开即窗口

1 个答案: