VBA实现百度百科电影的内容自动提取

[kkwgije]

网址是： https://baike.baidu.com/item/环太平洋：雷霆再起/22038038?fr=aladdin
需要提取里面“中文名”等的内容，自动填写在自己制作的Excel 文件上（如附件），如果没有信息就用“/”代替


可以找到中文名的innerText，但是就是不知道怎么去除dt下一个节点的dd的innerText，已经试过子节点和兄弟节点了，就是拿不到dd的innerText "环太平洋：雷霆再起".
<dt class="basicInfo-item name">中文名</dt>
<dd class="basicInfo-item value">
环太平洋：雷霆再起
</dd>

[笨狗先飞]

不要搜索节点了，直接搜索字符截取 <dt class="basicInfo-item name">中文名</dt>换行符<dd class="basicInfo-item value">换行符 换行符</dd> 这两行特征符之间的内容就是了

[kkwgije]

刚开始学VBA，可以写这个代码给我吗？thx

[kkwgije]

引用 1 楼 bakw 的回复:

不要搜索节点了，直接搜索字符截取 <dt class="basicInfo-item name">中文名</dt>换行符<dd class="basicInfo-item value">换行符 换行符</dd> 这两行特征符之间的内容就是了

刚开始学VBA，可以写这个代码给我吗？thx

[qq_25650269]

是这种的吗？我只做了个别的例子，只要百科上显示的条目都能抓到

[赵4老师]

注释掉所有On Error Resume Next语句，在VBA IDE中运行， 出错后点击调试，光标会停在出错的那条语句处， 或者 事先在怀疑可能有逻辑错误的语句处设置断点，运行经过断点时中断， 此时可以在立即窗口中使用 ?变量名 或 ?函数名(函数参数) 或 过程名(参数) 辅助调试。

[jaylv1983]

引用 4 楼 qq_25650269 的回复:

是这种的吗？我只做了个别的例子，只要百科上显示的条目都能抓到

我就是想达到这样的效果，谢谢啊，可以给你的那个代码我参考一下吗？

[kkwgije]

我就是想达到这样的效果，谢谢啊，可以给你的那个代码我参考一下吗？

[kkwgije]

引用 4 楼 qq_25650269 的回复:

是这种的吗？我只做了个别的例子，只要百科上显示的条目都能抓到

我就是想达到这样的效果，谢谢啊，可以给你的那个代码我参考一下吗？