Save Web Pages And Objects By ExecWB

'Module1

'Available References List

'1) Name: VBA, Description: Visual Basic For Applications, FullPath: C:\Program Files (x86)\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL
'2) Name: Excel, Description: Microsoft Excel 11.0 Object Library, FullPath: C:\Program Files (x86)\Microsoft Office\OFFICE11\EXCEL.EXE
'3) Name: stdole, Description: OLE Automation, FullPath: C:\Windows\SysWOW64\stdole2.tlb
'4) Name: Office, Description: Microsoft Office 11.0 Object Library, FullPath: C:\Program Files (x86)\Common Files\Microsoft Shared\OFFICE11\MSO.DLL
'5) Name: SHDocVw, Description: Microsoft Internet Controls, Full Path: C:\WINDOWS\system32\ieframe.dll

Option Explicit
Private Url As String
Private IE As New InternetExplorer
Sub ExecWB()

On Error GoTo Hata
IE.Visible = True
Url = "http://www.excelkodklavuzu.blogspot.com"
IE.Navigate Url
Do

DoEvents

Loop While Not IE.ReadyState = 4
IE.ExecWB OLECMDID_SAVEAS, OLECMDEXECOPT_DODEFAULT
Exit Sub
Hata:
MsgBox VBA.Err.Description, vbInformation, "[PBİD®]"

End Sub
'Sub References_List()

' On Error Resume Next
' Dim Eleman, No
' No = 1
' For Each Eleman In ThisWorkbook.VBProject.References

' Sheets(1).Cells(No, 1) = No & ") Name: "
' Sheets(1).Cells(No, 2) = Eleman.Name
' Sheets(1).Cells(No, 3) = ", Description: "
' Sheets(1).Cells(No, 4) = Eleman.Description
' Sheets(1).Cells(No, 5) = ", FullPath: "
' Sheets(1).Cells(No, 6) = Eleman.FullPath
' No = No + 1

' Next Eleman

'End Sub