We have been developing an Excel/VBA program for over 20 years and it is up to 2000 lines of code and an extensive use of Excel spread sheet. Now that Edge has taken over IE. the our program no longer works. The need is to invoke a browser and set a URL. After one hour, the browser is to close and a new browser session will open with another URL. This has to be done without any manual intervention, not even a click.
The code has been working very well in IE but now that Edge has taken control, the code opens a new tab for each URL presented on the hour but the tab remains open. On the second hour, two URL/tabs are playing and for each subsequent hour, another URL/tab will be playing. At the moment, I have to be here on the hour to close the old tab(s). Since the program runs for 24 hours, my closing tabs manually is not an option. It has to be automated.
Here are the key commands I am using:
To open the browser from one sub:
Dim obj As Object
Set obj = CreateObject("InternetExplorer.Application") obj.Navigate ThisURL
And this code to close the browser from another sub:
Dim obj As Object: Dim ie As Object
Set obj = CreateObject("shell.application")
For Each ie In obj.Windows
On Error GoTo ForgetMe
If TypeName(ie.Document) = "HTMLDocument" Then
ie.Quit
Instances = Instances - 1
What is the new Edge code to open a browser for each hour and to close it after each hour. Also acceptable would be if there is code to open and close tabs.
I have about 400 members of the community who benefit from the output of this program so it is no trivial matter.
