Vba 打开后与IE选项卡交互

Vba 打开后与IE选项卡交互,vba,internet-explorer,excel,Vba,Internet Explorer,Excel,我在这里尝试的是在独立的IE选项卡中同时自动打开多个帮助台通知单。我在Excel中创建了一个票号列表,然后循环浏览票号,打开每个票号 当我在一个单独的IE实例中打开每一个实例时,我的代码似乎工作正常,但由于我试图在一个IE实例的单独选项卡中打开它们,所以在第二个循环中出现了一个错误。以下是我到目前为止的情况: Set Tickets=Sheet5.范围(“a1”,范围(“a1”).结束(xlDown)) 设置ie=新的InternetExplorerMedium 即可见=1 apiShowWin

我在这里尝试的是在独立的IE选项卡中同时自动打开多个帮助台通知单。我在Excel中创建了一个票号列表,然后循环浏览票号,打开每个票号

当我在一个单独的IE实例中打开每一个实例时,我的代码似乎工作正常,但由于我试图在一个IE实例的单独选项卡中打开它们,所以在第二个循环中出现了一个错误。以下是我到目前为止的情况:

Set Tickets=Sheet5.范围(“a1”,范围(“a1”).结束(xlDown))
设置ie=新的InternetExplorerMedium
即可见=1
apiShowWindow ie.hwnd,SW_最大化
车票中的每张票
如果票证“”和票证不象“IM*”和票证不象“ARS*”和票证不象“C*”,那么
'加载螳螂页面
如果Tabbed=False,则
即“导航”http://URL"
其他:
即“导航”http://URL“,CLng(2048年)
如果结束
做
多芬特
循环直到ie.ReadyState=4
“登录检查
Set LoginExists=ie.document.getElementById(“用户名”)
如果LoginExists什么都不是
转到搜索频道
其他:转到登录
如果结束
登录:
调用ie.document.getElementById(“用户名”).SetAttribute(“值”,“xx”)
调用ie.document.getElementById(“密码”).SetAttribute(“值”,“xx”)
ie.document.getElementById(“登录表单”)。提交
做
多芬特
循环直到ie.ReadyState=3
转到搜索频道
“搜索螳螂票
SearchForTicket:
Application.Wait(现在+时间值(“0:00:03”))
ie.document.All(“bug_id”)。值=票证
设置AllButtons=ie.document.getElementsByTagName(“输入”)
对于所有按钮中的每个按钮
如果Button.Value=“Jump”,则
按钮,点击
退出
如果结束
下一个
如果结束
Tabbed=True
下一个
它第一次工作,打开IE,导航到页面并搜索票证。第二次,它打开新选项卡并导航到该页面,但当它尝试搜索第二张票证时,我收到一个错误提示:

对象不支持此属性或方法”
在线:

ie.document.All(“bug\u id”)。值=票据
到目前为止,我一直在寻找一个不走运的答案。任何帮助都将不胜感激