暂无图片
暂无图片
暂无图片
暂无图片
暂无图片
首页 / VBA网抓汉英在线翻译结果

VBA网抓汉英在线翻译结果

VBA语言専攻 2021-12-05
178
【分享成果，随喜正能量】假如讨厌一个人，没必要让对方知道.总有我们不喜欢的人，不管是脾气还是行事方式，如果有利益冲突，那对着干没问题，但如果没有，自己心里知道就好，没必要做的太明显让对方知道。因为对方会因为知道你讨厌他，而反过来更加讨厌你，并且和你作对，给你设陷阱制造困难。尤其要注意，不要轻易把你对一个人的讨厌透露给第三方，除非你非常确定他和你是一路人。这也就是很多过来人提到的忌交浅言深的问题，如果所有的建议里，只能记住一点，那就记住这点好了。
《VBA信息获取与处理》教程是我推出第六套教程，目前已经是第一版修订了。这套教程定位于最高级，是学完初级，中级后的教程。这部教程给大家讲解的内容有：跨应用程序信息获得、随机信息的利用、电子邮件的发送、VBA互联网数据抓取、VBA延时操作，剪贴板应用、Split函数扩展、工作表信息与其他应用交互，FSO对象的利用、工作表及文件夹信息的获取、图形信息的获取以及定制工作表信息函数等等内容。程序文件通过32位和64位两种OFFICE系统测试。是非常抽象的，更具研究的价值。
教程共两册，八十四讲。今日的内容是专题六“VBA中利用XMLHTTP完成网抓数据”的第4讲：VBA网抓汉英在线翻译的结果
第四节 利用XMLHTTP抓取汉英在线翻译的结果
在利用VBA进行网抓数据的时候，利用XMLHTTP方法确实是一种非常方便的方案，按照我对VBA的理解“VBA是实现个人小型办公自动化的有效手段”，在网络数据和EXCEL表格相结合的时候，更能体现出VBA的实用主义。这种寄生的语言正是一个桥梁，让网络的数据可以近距离的来到我们使用的现场。
今日这节我给大家讲解利用XMLHTTP方法实现关键词的即时翻译，并给出结果在单元格中。这讲的内容也是我们在工作中可以用到的，当我们需要翻译一些词语，就可以利用这些方法。关键是这种方案的好处可以把翻译的结果直接实现在EXCEL工作表中，避免了大量的复制粘贴的过程，可以提高我们的工作效率。下面看我们这节的内容。
实现场景：在工作表中有一组关键词我们要实现网络的翻译，并把结果放到对应的单元格中。如下图，要求是当我们点击运行按钮时，即刻可以实现翻译。

1  应用XMLHTTP实现抓取汉英翻译结果的思路分析

网络上可以实现翻译网站有很多，这一讲我们采用“http://fanyi.youdao.com/translate” 。
为了分析方便，我们先在提示的网址内录入数据，看看翻译的结果。如下截图：
在上一节中我们利用的是GET提交数据，这一讲我们提交数据的时候采用POST方法. 实际上POST向指定资源提交数据进行处理请求（例如提交表单或者上传文件）时，数据被包含在请求体中。POST 请求可能会导致新的资源的建立和/或已有资源的修改。这一点不同于GET方法，GET只是请求指定的页面信息，并返回实体主体。
在请求头部的时候，我们利用：
.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
 其中Content-Type：用于定义网络文件的类型和网页的编码，决定浏览器将以什么形式、什么编码读取这个文件，这就是经常看到一些 网页点击的结果却是下载一个文件或一张图片的原因。Content-Type 标头告诉客户端实际返回的内容的内容类型。              
 application/x-www-form-urlencoded ：
中默认的encType，form表单数据被编码为key/value格式发送到服务器（表单默认的提交数据的格式）。


最后在返回的responseText中进行数据的提取即可。

2  应用XMLHTTP实现抓取汉英翻译结果的代码实现过程

为了实现上述的思路，我给出了下面的代码：
Sub myNZB() '利用VBA提取抓取汉英在线翻译的结果
 【详细代码见教程】 
End Sub
代码的截图：
由于在代码中我给出了大部分的注释，这里就不再进行代码的讲解了，大家要反复的看这几个专题的讲解，才能熟悉相关的知识点。

3  应用XMLHTTP实现抓取汉英翻译结果的实现结果

我们点击运行按钮，查看一下翻译的结果：
总体来说还是可以接受的。大家要注意的是这些翻译的结果来自网络.
另外,在代码中我给出的设置是“from=AUTO&to=AUTO&doctype=json" 下面我给出了一句英语看看可否能比较准确的翻译呢：如下图:

同样也得到了比较正确的结果。

本节知识点回向：GET提交数据和POST提交数据有何不同？如何设置浏览器读取数据？如何利用XMLHTTP反馈网页中的翻译数据？

本讲参考程序文件：006工作表.XLSM



【分享成果，随喜正能量】:多帮助别人，少麻烦别人.多帮助别人不是让你做个没原则的老好人，而是在力所能及的范围内，多表达善意，尤其是举手之劳，顺手就帮了，何乐而不为。除非个别心理变态或严重健忘的，否则大多数人还是倾向于拿友好回应友好的。不要想着所有付出的帮忙都能兑现，但是你会惊喜地发现，在你需要帮助的时候，经常能够得到意想不到的助力。少麻烦别人的意思是，不要透支别人对你的好感和帮助，不要因为懒惰和怕麻烦，就去打扰别人。而一旦得到别人的帮助，切记要及时的表达感谢，而且最好不要是口头上的，因为客套话最不值钱。

我20多年的VBA实践经验，全部浓缩在下面的各个教程中，教程学习顺序：


vba语言翻译xmlhttp教程
文章转载自VBA语言専攻，如果涉嫌侵权，请发送邮件至：contact@modb.pro进行举报，并提供相关证据，一经查实，墨天轮将立刻删除相关内容。

评论