关于保存浏览器页面的问题

Question

先findwindow，
然后sendmessage

Answer 1

首先在引用中加入Microsoft Internet Controls，下面的代码
Dim dWinFolder As New ShellWindows
'Dim dw As New InternetExplorerDim objWB As WebBrowserPrivate Sub Command1_Click()          
    Dim objIE As Object
    Dim objDoc As Object
    
    For Each objIE In dWinFolder
            List1.AddItem objIE.Document.Title
            List2.AddItem objIE.LocationURL
        Set objIEMain = objIE
    Next
    
 End Sub可以遍历系统中的IE窗口对象，然后用ExecWB就可以保存了。