Откройте документ в IE и сохраните его как переменную в vbs

Question

Я пытаюсь написать программу vbs, где я перехожу к веб-странице, щелкните ссылку, которая открывает файл в excel, а затем запустите макрос в файле excel. Я знаю, как перейти на веб-страницу и нажать ссылку. Мне нужна помощь в выяснении того, как я храню файл excel так, чтобы программа vbs могла манипулировать им.

Set IE = WScript.CreateObject("InternetExplorer.Application", "IE_") 
IE.Visible = True 
IE.Navigate ("https://www.whateverWebsite.com/") 

Dim LinkHref  
LinkHref = "analyze" 'the key word that will be in the link to click 
Dim a 

For Each a In IE.Document.GetElementsByTagName("a") ' for every element whose tag name starts with 'a' for "a href" pull out its contents 
    If InStr((a.GetAttribute("href")), LinkHref)>0 Then 'checks to see if the link that is set contains the string stored in LinkHref 
     a.Click 'click the link 
    End If 
Next 

Dim objExcel 
Set objExcel = CreateObject("Excel.Application") 

Теперь, как я могу прикрепить файл excel, который я открыл со ссылкой, к objExcel?

Answer 1

Вы можете прикрепить к экземпляру под управлением Excel с помощью GetObject:

Set xl = GetObject(, "Excel.Application") 

Если несколько экземпляров запущены, то будет только вам первым, хотя. Вам нужно будет завершить первый экземпляр, чтобы перейти ко второму.

С учетом сказанного, лучшим подходом будет иметь Excel открыть URL непосредственно:

Set xl = CreateObject("Excel.Application") 
For Each a In IE.Document.GetElementsByTagName("a") 
    If InStr(a.href, LinkHref) > 0 Then 
     Set wb = xl.Workbooks.Open(a.href) 
     Exit For 
    End If 
Next