Where is web page opened via VBA macro stored on C: drive?

[chemebabak]

I am running this code in Excel VBA:

Sub marco1()
Application.Workbooks.Open "[URL unfurl="true"]http://www.eng-tips.com"[/URL]
End Sub

which opens this page as a read-only file. Where is this file stored on my C: drive? I have looked in C:\Users\Default\AppData\Local\Microsoft\Windows\Temporary Internet Files and it is empty. I have also looked in Libraries\Documents, where the MS Excel file is saved, and I did not find it there either. I also have looked in C:\Program Files (x86)\Microsoft Office\Office12 and I still did not find anything.

Where is this file stored?

 

[IRstuff]

When I run your code in Excel, the page opens in Excel itself as a new tab, with frame boundaries demarcating columns, and line returns demarcating rows.

That's not surprising, since Workbooks.Open is supposed to open a WORKBOOK. It's not saved anywhere until you do a SaveAs.

TTFN
faq731-376

 

[MiketheEngineer]

yes!!

 

[chemebabak]

Ok, let me explain my problem a little better - the code opens a web page that contains key words. These key words are then verified. If the key words are not found, the excel workbook deletes all the sheets and saves. This is one way to prevent each file from being used without authorization. The file could then be sold to be used on a licensed basis or some other way requiring authorization.

My concern is in this section of code:

'OPEN INTERNET WINDOW AND REVIEW AUTHORIZATION
On Error GoTo internet_access_required:
Application.Workbooks.Open (Web_Page)

On Error GoTo not_authorized:
Cells.Find(What:=authorization_key_word, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        True, SearchFormat:=False).Activate
'close Web_Page
Application.ActiveWorkbook.Close savechanges:=False

Application.DisplayAlerts = True
Exit Sub

Sometimes the page opens slowly. Is it possible for the user to find that instance of the web page on the C: drive? Is it possible that the user interrupts the macro prior to running:

'close Web_Page
Application.ActiveWorkbook.Close savechanges:=False

I know that Excel has an auto-save feature. Where is the location of the file that is automatically saved?

This is the complete code. Web_Page, authorization_key_word, WBook_Password and Sheet_Password are strings defined elsewhere in VBA. The webpage is a blog that only I can access.

Sub VERIFICATION()

Application.DisplayAlerts = False

'OPEN INTERNET WINDOW AND REVIEW AUTHORIZATION
On Error GoTo internet_access_required:
Application.Workbooks.Open (Web_Page)

On Error GoTo not_authorized:
Cells.Find(What:=authorization_key_word, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        True, SearchFormat:=False).Activate
'close Web_Page
Application.ActiveWorkbook.Close savechanges:=False

Application.DisplayAlerts = True
Exit Sub

'===============
'goto NOT AUTHORIZED
not_authorized:

'delete all sheets
ActiveWorkbook.Unprotect Password:=WBook_Password
Sheets.Add Before:=Sheets(1)
While Sheets.Count > 1
Sheets(Sheets.Count).Visible = True
Sheets(Sheets.Count).Unprotect Password:=Sheet_Password
Sheets(Sheets.Count).Select
ActiveWindow.SelectedSheets.Delete
Wend

Sheets(1).Protect Password:=Sheet_Password
ActiveWorkbook.Protect Password:=WBook_Password
'save and close this workbook
Application.ActiveWorkbook.Save

MsgBox prompt:="Use not authorized." _
    & "  This application will now close.", _
    Buttons:=vbCritical, _
    Title:=verification_title
Application.ActiveWorkbook.Close

Application.DisplayAlerts = True
Exit Sub
   
'===============
'goto Internet access required to run this program
internet_access_required:
MsgBox prompt:="Internet access is required to run this program." _
        & "  This application will now close.", _
    Buttons:=vbCritical, _
    Title:=verification_title
'close this workbook
Application.ActiveWorkbook.Close savechanges:=False
Application.DisplayAlerts = True
Exit Sub

End Sub

 

[IRstuff]

Still not clear what you're asking. If you interrupt it before it closes, the page is sitting there in Excel as Application.ActiveWorkbook. You can then save it to wherever you want.

The Autosave goes to whatever folder is the default, unless current directory is changed by the user during the time Excel is opened.


TTFN
faq731-376