如何通过从excel获取信息来输入多个网页的数据

'此代码仅适用于选项卡编号0。我想对其使用“编辑”，以便我可以控制多个页面，如''选项卡1和选项卡2等，通过从EXCEL获取信息对多个页面进行数据输入，但'' “同时不按页签”吗？ 结束sub

你说过

此代码仅适用于选项卡编号0。我想对其使用“编辑”，以便 控制多个页面，如“”选项卡1和选项卡2以及更多待办数据 通过从EXCEL获取信息进入多个页面，但在 同一时间，而不是逐个选项卡

要同时执行某些代码，用户需要创建多个线程

请注意，VBA中不支持多线程。VBA一次可以在单线程上工作。因此，使用VBA代码不可能同时在多个页面中输入数据

您可以逐个选项卡进行数据输入

如果您仍然需要使用VBA，则可以参考下面的链接，这些链接可能会为您提供一些解决方法

---

请不要在这里大喊大叫-我们都能听到你的声音。对不起，我不明白你说的英语不是我的语言你说的

选项卡

是什么意思没有看到网站，很难建议，你可能需要在获得元素后调整

（0）

。或者在您的windows中循环

objShell.windows（winNo）

递增winNo并查看它包含的内容。您知道，如果设置boolWindowFound=True并在下一行询问boolWindowFound=True，则始终匹配？只讨论代码中的一个问题。WinCount=objShell.Windows.Count如何？只是为了谈论你“代码”的另一部分。对不起，但是你的代码中几乎所有的东西都是错的，我想没有人真正知道你想要什么。

Sub accessExistingIEtabs()

     boolWindowFound = False
     Set objShell = CreateObject("Shell.Application")
     WinCount = objShell.Windows.Count
     winNo = 0
        Set IE = objShell.Windows(winNo)
         boolWindowFound = True
         If boolWindowFound Then
         Set doc = IE.document
         End If
                doc.getElementsByClassName("a-input-text a-form-normal ui-autocomplete-nested-button ui- 
                autocomplete-input")(0).Value = "italy"

end sub