HTML转表格

Sub ht(Html, Range) s1 = Split(Html, "<tr") rn = UBound(s1) cn = UBound(Split(s1(2), "<td>")) ReDim arr(rn - 1, cn - 1) For ri = 1 To rn s2 = Split(s1(ri), "<td") If UBound(s2) = 0 Then s2 = Split(s1(ri), "<th") For ci = 1 To cn arr(ri - 1, ci - 1) = smid(s2(ci), ">", "<") Next Next Range.Resize(rn, cn) = arr End Sub

Function smid(a, b, c) '截取首次出现文本中间 If InStr(a, b) > 0 Then smid = Right(a, Len(a) - InStr(a, b) - Len(b) + 1) If InStr(smid, c) > 0 Then smid = Left(smid, InStr(smid, c) - 1) End If End If End Function

本文参与腾讯云自媒体分享计划,欢迎正在阅读的你也加入,一起分享。

我来说两句

0 条评论
登录 后参与评论

相关文章

  • ★Outlook邮件模板

    林万程
  • MySQL 循环查询树 函数

    林万程
  • VBA破解VBA密码

    林万程
  • 有人利用服务器做违法生意

    举报域名www.idaikan.com,经过查询,此域名ip119.28.49.236属于腾讯云

    用户3480401
  • 专业音响品牌入局,“低价”称王的智能音箱能否扛住高端市场的暴击?

    截至目前,国内9成智能音箱市场份额已经被阿里、百度和小米拿下,而剩下的1成市场中,因为诸多品牌的存在而显得格外拥挤。

    镁客网
  • 写给初学者的LASSO回归

    LASSO回归是对回归算法正则化的一个例子。正则化是一种方法,它通过增加额外参数来解决过拟合问题,从而减少模型的参数、限制复杂度。正则化线性回归最常用的三种方法...

    老齐
  • 自动驾驶汽车的交通标志识别

    由于特斯拉等公司在电动汽车自动化方面的努力,无人驾驶汽车正变得非常受欢迎。为了成为5级自动驾驶汽车,这些汽车必须正确识别交通标志并遵守交通规则。在识别出这些交通...

    代码医生工作室
  • [机器学习从零到壹sklearn]·0.1.1·线性拟合

    小宋是呢
  • Python快速实战机器学习(3) 线性分类器

    机器学习是如今人工智能时代背景下一个重要的领域。这个“Python快速实战机器学习”系列,用Python代码实践机器学习里面的算法,旨在理论和实践同时进行,快速...

    HuangWeiAI
  • 微软再发温馨提示:Windows XP技术支持将在90天结束

    据外媒报道,微软于日前又再次向Windows XP用户发出温馨提示:公司对该系统的技术支持将在90天后结束。据悉,微软将于今年的4月8日正式结束对Window...

    安恒信息

扫码关注云+社区

领取腾讯云代金券