通过vb把保存在wps电子表格里的网址指向的网页，保存到指定的文件夹？？ - 编程论坛

#2

xiangyue05102017-02-20 11:02

下面是保存网页的示例代码，怎么调用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

#3

风吹过b2017-02-20 12:07

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

#4

tippical2017-02-20 19:06

回复 2楼 xiangyue0510

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