this is my code so far, I am trying to extract daily updates from a server backup.
here is the source
when I debug.print it returns
[object HTMLCollection]
please help with this one.
Code:
Sub GetBaracudaBakups()
Dim email As String, password As String
email = [Email_Name]
password = [Password_name]
' nacigate to website
'=================================================================
Dim IE As New InternetExplorer
URL = "https://login.barracudanetworks.com/auth/login/"
With IE
.navigate URL
Do
DoEvents
Loop Until IE.readyState = READYSTATE_COMPLETE
Dim doc As HTMLDocument: Set doc = IE.document
.Visible = True
End With
' insert emial and password to login
'=================================================================
With doc
.getElementById("username").innerText = email
.getElementById("password").innerText = password
.getElementById("submit").Click
End With
' loop
'===================================================
Application.Wait (Now + TimeValue("0:00:10"))
Dim site As Worksheet: Set site = Sheet1
lr = site.Cells(Rows.Count, 3).End(xlUp).Row
For x = 1 To lr
URL = site.Cells(x, 3).Value
With IE
.navigate URL
End With
Application.Wait (Now + TimeValue("0:00:10"))
'=============================================
Dim sDD As String
' Dim html_col As HTMLElementCollection
With doc
sDD = .getElementsByTagName("span").Item(0).toString
End With
Debug.Print sDD
Next x
End Sub
here is the source
when I debug.print it returns
[object HTMLCollection]
please help with this one.