设为首页收藏本站
简字体切换切换到宽版

ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步，快速开始

快捷登录

搜索
ExcelHome技术论坛»论坛 › Office Family › Word › 关于VBA 读取html的问题
EH技术汇-专业的职场技能充电站 妙哉！函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
返回列表 发新帖
查看: 1017|回复: 5

[求助] 关于VBA 读取html的问题

[复制链接]
mhh7553

TA的精华主题

TA的得分主题
发表于 2017-3-31 11:05 | 显示全部楼层 |阅读模式
[广告] ★ExcelHome默写助手 - 不用妈妈陪的默写神器 · Word/WPS插件 · 自定义默写单 · 自定义描红字帖★
<b>纬纱排列 (1):</b> 1<SPAN STYLE="BACKGROUND: #000001"><FONT color="#ffffff">a</FONT></SPAN><br>




我的html文档中，有这么一段语句，不知道用CreateObject("internetExplorer.Application")的这个方法如何将他们提取出来（纬纱排列 (1):1a）
关于, 读取, html, 的问题, 问题
回复

举报

duquancai

TA的精华主题

TA的得分主题
发表于 2017-3-31 11:29 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册★
这网抓的意思？html文档是本地文件？请提供完整的代码，以便分析！
回复

举报

mhh7553

TA的精华主题

TA的得分主题
 楼主| 发表于 2017-3-31 12:00 | 显示全部楼层
[广告] ★ExcelHome默写助手 - 不用妈妈陪的默写神器 · Word/WPS插件 · 自定义默写单 · 自定义描红字帖★
<HTML>
<HEAD><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=UTF-8"><title>ArahWeave 8.0y: JO3872185-D82</title>

</HEAD>
<BODY>
<table border=0 width="100%"><tr><td><h1><IMG SRC="logo.gif" ALT="logo" WIDTH="148", HEIGHT="141">JO3872185/D82</h1>
<td><h6 align=right>ArahWeave 8.0y: JO3872185-D82<br>
<a >http://www.ouqiaoworsted.com</a><br>
MASA; linux-5jef:capdam<br>
29.09.2016</h6>
</table>
<table border=0 cellspacing=0 cellpadding=1 rowpadding=0 width="100%"><tr><td rowspan=3>
<table border=1 cellspacing=0 cellpadding=1 rowpadding=0>
<tr align=right><td>经纱长度</td><td>56.95 m</td>
<tr align=right><td>坯布长度</td><td>53.53 m</td>
<tr align=right><td>织物长度</td><td>53 m</td>
<tr align=right><td>坯布幅宽</td><td>177 cm</td>
<tr align=right><td>成品幅宽</td><td>153 cm</td>
<tr align=right><td>经纱 根</td><td>4080 + 2x68</td>
<tr align=right><td>密度 经纱</td><td>266.67 / 10 cm</td>
<tr align=right><td>密度 纬纱 (织机)</td><td>226 / 10 cm</td>
<tr align=right><td>密度 纬纱 (坯布)</td><td>235.04 / 10 cm</td>
<tr align=right><td>密度 纬纱 (成品)</td><td>237.39 / 10 cm</td>
<tr align=right><td>下机缩率</td><td>6%</td>
<tr align=right><td>经纱损耗</td><td>1%</td>
<tr align=right><td>纬纱损耗</td><td>7%</td>
<tr align=right><td>织造缩率</td><td>4%</td>
<tr align=right><td>印染缩率</td><td>1%</td>
<tr align=right><td>重量损失</td><td>-3%</td>
<tr align=right><td>纱线用量</td><td>13.98 kg</td>
<tr align=right><td>坯布克重</td><td>243.1 g/m<br>137.3 g/m<sup>2</sup></td>
<tr align=right><td>成品克重<br></td><td>238.2 g/m<br>155.7 g/m<sup>2</sup></td>
</table>
<td>

<table border=1 cellspacing=0 cellpadding=1 rowpadding=0>
<tr><td>品号<td>JO3872185
<tr><td>花型<td>D82
<tr><td>CAD文件名<td>/mnt/hgfs/Arahne/fabrics/JO3872185-D82

</table><table border=1 cellspacing=0 cellpadding=1 rowpadding=0>
<tr align=right><td>筘号</td><td>筘幅</td><td>穿筘 </td><td>筘齿数</td>
<tr align=right><td>109 / 10 cm</td><td>187.16 cm</td><td>2</td><td>2040</td>
<tr align=right><td>布边</td><td>2 x 2.48 cm</td><td>13(2)14(3)</td><td>2 x 27</td>
<tr align=right><td>全部</td><td>192.11 cm</td><td> </td><td>2094</td>
</table><tr><td><table border=1 cellspacing=0 cellpadding=1 rowpadding=0>
<tr align=center><th>循环</th><td>织物组织<br></td><td>花型</td><td>穿筘<br>停撬</td><td>织物组织<br>花型</td><td>全部</td>
<tr align=center><td>经纱</td><td>6<br>6 综框页数</td><td>32<br>1.20 cm</td><td>2<br>1 筘齿数</td><td>96<br>3.60 cm</td><td>96<br>3.60 cm</td>
<tr align=center><td>纬纱</td><td>2</td><td>1<br>0.04 cm</td><td>1<br>1 前移卷布辊</td><td>2<br>0.08 cm</td><td>2<br>0.08 cm</td>

</table><tr><td>
<table border=1 cellspacing=0 cellpadding=1 rowpadding=0>
<caption>覆盖系数</caption><tr align=center><td>经纱</td><td>纬纱</td><td>全部</td><td>透明度</td>
<tr align=center><td>87.96%</td><td>77.42%</td><td>82.69%</td><td>2.72%</td></table></table>

<table border=1 cellspacing=0 cellpadding=1 rowpadding=0>
<tr align=center><th>综页<th>1<th>2<th>3<th>4<th>5<th>6
<tr align=center><th>综丝数量<td>680<td>680<td>680<td>680<td>680<td>680
<tr align=center><th>g/m<td>19.0<td>18.9<td>18.9<td>19.0<td>19.0<td>18.9
</table>
<b>穿综方法 (6 综框页数):</b> 1, 3, 5, 2, 4, 6<br>
<b>边纱排列:</b> 24<SPAN STYLE="BACKGROUND: #000009"><FONT color="#ffffff">A</FONT></SPAN>2<SPAN STYLE="BACKGROUND: #fcfdfc"><FONT color="#000000">C</FONT></SPAN>8<SPAN STYLE="BACKGROUND: #120a30"><FONT color="#ffffff">D</FONT></SPAN>12(1<SPAN STYLE="BACKGROUND: #fcfdfc"><FONT color="#000000">C</FONT></SPAN>1<SPAN STYLE="BACKGROUND: #120a30"><FONT color="#ffffff">D</FONT></SPAN>)8<SPAN STYLE="BACKGROUND: #120a30"><FONT color="#ffffff">D</FONT></SPAN>2<SPAN STYLE="BACKGROUND: #fcfdfc"><FONT color="#000000">C</FONT></SPAN><br>
<b>经纱排列  (127x32):</b> 23<SPAN STYLE="BACKGROUND: #000009"><FONT color="#ffffff">A</FONT></SPAN>3<SPAN STYLE="BACKGROUND: #6c6f78"><FONT color="#ffffff">B</FONT></SPAN>6<SPAN STYLE="BACKGROUND: #000009"><FONT color="#ffffff">A</FONT></SPAN><br>
<b>剩余根数 (16 根):</b> 16<SPAN STYLE="BACKGROUND: #000009"><FONT color="#ffffff">A</FONT></SPAN> <br>

<table border=1 cellspacing=0 cellpadding=1 rowpadding=0>
<tr align=right><th>经纱<th>循环<br>根<th>花型<br>根<th>边组织<br>根<th>全部<br>根<th>循环<br>%<th>重量<br>%<th>花型<br>kg<th>边组织<br>kg<th>全部<br>kg
<tr align=right><td>A<td>29<td>3699<td>2*24<td>3747<td>90.62<td>90.42<td>5.910<td>0.077<td>5.987
<tr align=right><td>B<td>3<td>381<td><td>381<td>9.38<td>9.58<td>0.626<td>0.000<td>0.626
<tr align=right><td>C<td>0<td>0<td>2*16<td>32<td>0.00<td>0.00<td>0.000<td>0.053<td>0.053
<tr align=right><td>D<td>0<td>0<td>2*28<td>56<td>0.00<td>0.00<td>0.000<td>0.092<td>0.092
<tr align=right><th>全部<td>16+127*<b>32</b><td>=4080<td>+136<td>=4216<td><td> <td>6.537<td>+0.221<td>=6.758

</table>

<table border=1 cellspacing=0 cellpadding=1 rowpadding=0>
<tr align=center><th>经纱<td>A<td>B<td>C<td>D
<tr><th>纱线细度<td>2/72 Nm<td>2/70 Nm<td>2/70 Nm<td>2/70 Nm
<tr><th>成份<td align=left>50% WO 羊毛<br>50% PL 涤纶<td align=left>/<td align=left>/<td align=left>/
<tr><th>捻回数(/m)<td>800 S<td>540 Z<td>800 S<td>800 S
<tr><th> 1<td bgcolor="#000009"><font color="#ffffff">3872185d82</font><td bgcolor="#6c6f78"><font color="#ffffff">17-0000 Frost Gray</font><td bgcolor="#fcfdfc"><font color="#000000">11-4201 Cloud Dancer</font><td bgcolor="#120a30"><font color="#ffffff">19-3714 Navy</font>
</table>

<b>纬纱排列 (1):</b> 1<SPAN STYLE="BACKGROUND: #000001"><FONT color="#ffffff">a</FONT></SPAN><br>

<table border=1 cellspacing=0 cellpadding=1 rowpadding=0>
<tr align=right><th>纬纱<th>循环<br>根<th>循环<br>%<th>kg<tr align=right><td>a<td>1<td>100.00
<td>7.220
<tr align=right><th>全部<td><b>1</b><td><td>7.220

</table>
<table border=1 cellspacing=0 cellpadding=1 rowpadding=0>
<tr align=center><th>纬纱<td>a
<tr><th>纱线细度<td>2/72 Nm
<tr><th>捻回数(/m)<td>800 S
<tr><th> 1<td bgcolor="#000001"><font color="#ffffff">19-4305 Pirate Black</font>
</table>
<br><IMG SRC="JO3872185-D82.jpg" ALT="simulation"><br><IMG SRC="JO3872185-D82.gif" ALT="weave">
</BODY>
</HTML>

回复

举报

mhh7553

TA的精华主题

TA的得分主题
 楼主| 发表于 2017-3-31 12:15 | 显示全部楼层
[广告] ★ExcelHome默写助手 - 不用妈妈陪的默写神器 · Word/WPS插件 · 自定义默写单 · 自定义描红字帖★
我的这个html文件包括表格和非表格的内容，我想用VBA 代码把他全部读出放入excel 文档。请各位高人帮忙。

JO3872185-D82.zip

1.99 KB, 下载次数: 2

html文件
回复

举报

duquancai

TA的精华主题

TA的得分主题
发表于 2017-3-31 13:22 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册★
mhh7553 发表于 2017-3-31 12:15
我的这个html文件包括表格和非表格的内容，我想用VBA 代码把他全部读出放入excel 文档。请各位高人帮忙。

全部读出放入excel 文档？？？
那就请看附件，打开Excel文件，点击按钮》》》》》》》

JO3872185-D82.rar

19.61 KB, 下载次数: 33
回复

举报

mhh7553

TA的精华主题

TA的得分主题
 楼主| 发表于 2017-3-31 15:09 | 显示全部楼层
[广告] ★ ChatOffice，能听会写的AI办公，包含百种Excel、Word、PPT工具，兼容WPS，百倍效率！★
duquancai 发表于 2017-3-31 13:22
全部读出放入excel 文档？？？
那就请看附件，打开Excel文件，点击按钮》》》》》》》

能否给予代码
回复

举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-4-27 12:43 , Processed in 0.049385 second(s), 10 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！     本站特聘法律顾问：李志群律师

快速回复 返回顶部 返回列表