Excel 你能从另一个子系统调用一个对象吗?
我对VBA相当陌生。我有一个项目,我正在工作,我需要得到的工具,通过一个excel表格循环,和4个IE页面。我有一个打开IE页面的子程序。打开页面后,我现在需要做的是循环浏览页面和编写代码的excel文档,以及在焦点离开页面后刷新IE页面。这些循环需要以5秒的间隔进行。下面是我打开IE页面的子程序。不太确定从这里走到哪里。任何帮助都将不胜感激Excel 你能从另一个子系统调用一个对象吗?,excel,internet-explorer,Excel,Internet Explorer,我对VBA相当陌生。我有一个项目,我正在工作,我需要得到的工具,通过一个excel表格循环,和4个IE页面。我有一个打开IE页面的子程序。打开页面后,我现在需要做的是循环浏览页面和编写代码的excel文档,以及在焦点离开页面后刷新IE页面。这些循环需要以5秒的间隔进行。下面是我打开IE页面的子程序。不太确定从这里走到哪里。任何帮助都将不胜感激 Sub openPendings() Dim IE1 As Object Dim IE2 As Object Dim IE3 As Object Dim
Sub openPendings()
Dim IE1 As Object
Dim IE2 As Object
Dim IE3 As Object
Dim IE4 As Object
Dim IE5 As Object
Set IE1 = CreateObject("InternetExplorer.Application")
Set IE2 = CreateObject("InternetExplorer.Application")
Set IE3 = CreateObject("InternetExplorer.Application")
Set IE4 = CreateObject("InternetExplorer.Application")
Set IE5 = CreateObject("InternetExplorer.Application")
IE1.navigate "https://www.google.com" 'Pending Issues
apiShowWindow IE1.hwnd, SW_MAXIMIZE
IE2.navigate "https://www.yahoo.com" 'Pending Issues
apiShowWindow IE2.hwnd, SW_MAXIMIZE
IE3.navigate "https://www.ebay.com" 'Pending Issues
apiShowWindow IE3.hwnd, SW_MAXIMIZE
IE4.navigate "https://www.espn.com" 'Pending Issues
apiShowWindow IE4.hwnd, SW_MAXIMIZE
IE5.navigate "http://www.nfl.com" 'Current issues
apiShowWindow IE5.hwnd, SW_MAXIMIZE
End Sub
焦点刷新不起作用?或者,刷新excel手册不起作用?此外,源是excel,目标是IE或reverse?源是excel。excel工作表是每分钟更新一次的图表。IE页面仅供参考,需要循环使用,以便图表显示5秒,然后IE1显示5秒,然后IE2显示5秒,以此类推。。然后重复。因为每个页面只显示5秒钟,所以我打算在焦点不再位于该页面时刷新IE页面。我希望这一切都有意义。上传更多关于你的图表和更新代码的信息。到目前为止,问题是,您的图表包含源信息,图表每分钟更新一次,即页面包含这些信息,但当页面刷新结束时,图表使用数据连接获取更新数据。IE页面用于视觉信息,与excel图表没有任何关系。