1、网址在wps电子表格：aa.xlsx里的A列，
a列内容例如：
第一行：http://m.
第二行：http://m.
第三行：http://m.
第四行：http://m.
2、网页保存格式为：网页名称.html，
3、网页保存到一下文件夹：D盘：/我保存的网页

[此贴子已经被作者于2017-2-20 19:03编辑过]

下面是保存网页的示例代码，怎么调用wps你得自己研究了，我没有用过wps。不过既然是xlsx，用micro的方式应该也是可以的

    Dim X As XMLHTTP
    tmpth = "c:\temp.htm"
    URL = "http://news."
    Set X = New XMLHTTP
    X.Open "GET", URL, False
    X.send
    s = X.responseText
    ss = "<div class=""tabcon"">"
    arr = Split(s, ss)
    ss = ss & arr(1)
    Dim bt() As Byte
    bt = StrConv(ss, 128)
    If Dir(tmpth) <> "" Then Kill tmpth

 
    Open tmpth For Binary As 1
    Put #1, , bt
    Close 1
    WebBrowser1.Navigate2 tmpth
    Set bd = WebBrowser1.Document.body
    Do While bd Is Nothing
        DoEvents
        Set bd = WebBrowser1.Document.body
    Loop
    SendKeys "c:\人物专访.htm"
    SendKeys "{ENTER}"
    WebBrowser1.ExecWB OLECMDID_SAVEAS, OLECMDEXECOPT_PROMPTUSER
    Kill tmpth

wps 表格，现在类名与 EXCEL 的一样 ，如果 装了EXCEL ，那就用 ET 这个类名去，
方法属性，都是一一样的兼容。



'-------刷新工作簿列表-----------
On Error Resume Next
Dim i As Long

    '引用 已打开的 Excel 对象
   
    If Option1.Value Then
        Set excel1 = GetObject(, "Excel.Application")
        '是否有错误
        If Err.Number <> 0 Then
            '错误，提示，结束过程
            MsgBox "没有运行 Excel。请打开需要合并的文件后重新刷新。", vbCritical, "错误"
            Label6.Caption = "请刷新"
            Exit Sub
        End If
    Else
    '引用已打开的 WPS 表格
        'V8 ET V8
        Set excel1 = GetObject(, "ET.Application")
        '是否有错误
        
        If Err.Number <> 0 Then
            Err.Number = 0
            'WPS ET V9
            Set excel1 = GetObject(, "Ket.Application")
            '是否有错误
        
            If Err.Number <> 0 Then
                '错误，提示，结束过程
                MsgBox "没有运行 WPS 表格(Et)。请打开需要合并的文件后重新刷新。", vbCritical, "错误"
                Label6.Caption = "请刷新"
                Exit Sub
            End If
        End If
        
    End If

能否给个注解！我vb还不是很熟练！