On Aug 18, 12:15*pm, ryguy7272 wrote:
On Aug 18, 10:58*am, ron wrote:





On Aug 17, 9:55*pm, ryguy7272 wrote:

Hello friends! *I have a SharePoint URL, which I define as this:

URL =https://collaboration.co.net/sites/US/Shared%20Documents/

Here is my VBA:

setrestart:
Set IE = Nothing
Set IE = CreateObject("InternetExplorer.Application")

With IE
* * .navigate URL
* * .Visible = False
* * 'Wait for page to load
* * While .Busy Or .readyState < 4 Or IE.Busy = True: Wend
* * Set HTMLdoc = .document
End With

Application.StatusBar = "Processing your Request. Please wait..."
xlFile = strpath & "/" & strFullString & ".xls" '& ActiveWorkbook.Name
activeWB = strFullString & ".xls"

Now . . . I’m trying to see if files are checked out from the
SharePoint site, so I’m thinking of using a line of VBA, as such

If InStr(1, URL, "Checked Out To:") 1 Then
‘ . . . do something
End If

Of, course, the URL is just the string from above. *What I really want
to do is something like go into IE View Source . . . THEN and only
then, I can start to use my If InStr command. *I’m sure I’ll have a
combination of If InStr commends, actually.

So, my question is, how do I get something like IE View Source and
assign that to some variable, URL2, or whatever?

Thanks!!!

If your macro needs to have IE opened and has already done so, then

* * * * my_var = ie.document.body.innerhtml

will assign the source code behind the current web page to the
variable "my_var". *If there is no need to have IE open, then the
following construction will also assign the source code to "my_var".

* * my_url = "http://www.whatever"
* * Set my_obj = CreateObject("MSXML2.XMLHTTP")
* * my_obj.Open "GET", my_url, False
* * my_obj.send
* * my_var = my_obj.responsetext
* * Set my_obj = Nothing

Since IE is not opened, this latter construction will run much more
quickly. *It is paticularly advantageous if you are collecting data
from multiple urls...Ron- Hide quoted text -

- Show quoted text -

Thanks Ron! *I tried this:
With IE
* * .navigate URL
* * .Visible = True
* * While .Busy Or .readyState < 4 Or IE.Busy = True: Wend
* * Set HTMLdoc = .document
End With

Dim my_var As Variant
my_var = IE.document.body.innerHTML

I get a message saying ‘Object variable or with block variable not
set’

I even put my_var inside the With . . . End With and the result was
the same.

I use the following construction, does it work for you?

Set ie = CreateObject("InternetExplorer.Application")

With ie
.Visible = True
.Navigate "http://www.whatever"
.Top = 50
.Left = 530
.Height = 400
.Width = 400

' Loop until the page is fully loaded
Do Until .ReadyState = READYSTATE_COMPLETE And Not .Busy
DoEvents
Loop

End With

' assign the source code to a variable
my_var = ie.document.body.innerhtml

' do stuff

ie.Quit

If it fails for you, let me know which references you have set

Anyway, I don’t want to display the source so I did:
.Visible = False

So, I tried this:
* * Set my_obj = CreateObject("MSXML2.XMLHTTP")
* * my_obj.Open "GET", URL, False
* * my_obj.send
* * my_var = my_obj.responseText
* * Set my_obj = Nothing

I step through the code and when I’m past my_var, I do the old ?
my_var, in the Immediate Window, and I get a very small sample of the
I get a small sample of HTML, but I don’t think it’s the View
Source, and it’s only about 1% of what should be there.

Yep, that's been my experience as well. I only see the last 50-100 or
so lines of code when I do that. But I'd bet that all the code is
contained in the variable, it has been for me. Check it by looking
for certain words that are in the source code by using instr() with
the variable. Or you could use something like

my_var = ie.Document.body.innerhtml
rr = Split(my_var, Chr(13))
For c = LBound(rr) To UBound(rr)
ActiveCell = rr(c)
ActiveCell.Offset(1, 0).Select
Next

to put the variable contents onto a sheet to compare visually against
the source code...Ron