如何解决在当前已打开工作簿中打开HTM工作表
我正在使用宏程序从HTM页面复制值。 (备份数据种类)。 是否有机会在我运行宏的当前工作簿中打开HTM页面? 现在它的工作方式如下:打开了不同的工作簿-我提取了所需的数据-我正在关闭工作簿。
我在下面附上我的代码...
Sub Button23_Click()
Dim ws As Worksheet
Dim LastRow As Long,i As Long
Dim DlPath,HypLink As String
Dim imgname,IP As String
DlPath = "H:\OP-ShapeCzech\0501-Mfg\Staff-Public\Welding Technician\ROBOTI\Záloha FANUC\Autobackup\Test\W30\"
IP = "10.110.13.172"
Workbook.Open Filename:="http://" & IP & "/MD/INDEX_TP.HTM"
Set ws = Sheets("INDEX_TP")
LastRow = ws.Range("A" & Rows.Count).End(xlUp).Row
For i = 13 To LastRow
imgname = Cells(i,1).Value
HypLink = "http://" & IP & "/MD/" & imgname
URLDownloadToFile 0,HypLink,DlPath & imgname & ".",0
Next i
ActiveSheet.Close
MsgBox "TP programs and Variable files have been saved !!!",vbInformation
Shell "explorer.exe" & " " & ("H:\OP-ShapeCzech\0501-Mfg\Staff-Public\Welding Technician\ROBOTI\Záloha FANUC\Autobackup\Test\W30\"),vbNormalFocus 'Otevreni zalozene slozky
End Sub
解决方法
您可以尝试使用MSHTML库抓取页面。 在这里,您可以找到一个简单的示例,说明如何从URL加载文件:
Dim html As New MSHTML.HTMLDocument
With html.createDocumentFromUrl("http://url/path/of/your/file.htm","")
Debug.Print .body.innerHTML
End With
由于HTML是有效的XML,因此您可以使用MSXML2库来解析此文件。 您可以在MS页面上找到关于该库的很好的文档:https://docs.microsoft.com/en-us/previous-versions/windows/desktop/ms764730(v=vs.85)
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。