VBA/VB6/VB.NET 采用金山词霸在线翻译函数(自动识别语言种类)

  1. VB6/VB.NET 直接调用即可
  2. EXCEL VBA 先把函数粘贴到模块中,然后在单元格单用即可
Public Function FY_Data(ByVal StrData As String) As String
''***********由VB小源码编写*********************************
''**********更多精彩请继续关注,微信公众号:VB小源码**********
''**********************************************************
  On Error GoTo ERR: '出错跳转至ERR
  Dim XMLHTTP As Object '定义http对象
  Set XMLHTTP = CreateObject("Microsoft.XMLHTTP") '创建xmlhttp对象
  XMLHTTP.open "POST", "http://fy.iciba.com/ajax.php?a=fy", True  'post地址
  XMLHTTP.setrequestheader "Content-Length", Len("&f=auto&t=auto&w=" & StrData)  '数据长度
  XMLHTTP.setrequestheader "Content-Type", "application/x-www-form-urlencoded"  '数据类型
  XMLHTTP.setrequestheader "User-Agent", "Mozilla/5.0 (Windows NT 6.1; Win64; x64; rv:66.0) Gecko/20100101 Firefox/66.0"  '模拟浏览器发送
  XMLHTTP.send ("&f=auto&t=auto&w=" & StrData) '传送数据给服务器
  Do Until XMLHTTP.ReadyState = 4  '判断网页状态,当等于4时,数据返回成功
    DoEvents
  Loop
  ''****************************************************
  '以下部分为数据解析
  Dim JS As Object '定义js对象
  Set JS = CreateObject("MSScriptControl.ScriptControl") '创建js对象
  JS.allowui = True '使UI可见
  JS.Language = "JavaScript" '语言类型这里采用js
  JS.AddCode ("var js=" & XMLHTTP.ResponseText) '把网页返回的数据传入js对象
  If InStr(XMLHTTP.ResponseText, Chr(34) & "out" & Chr(34)) > 0 Then  '当有"out" 时采用文章输出,否者输出单词结果
        FY_Data = JS.eval("js.content.out")
  Else
        FY_Data = JS.eval("js.content.word_mean")
  End If
  ''*****************************************
  Set JS = Nothing '释放对象
  Set XMLHTTP = Nothing '释放对象
  Exit Function '退出方法
ERR:
 '返回错误值
  FY_Data = "ERROR"
End Function

本文分享自微信公众号 - VB小源码(vb_xym)

原文出处及转载信息见文内详细说明,如有侵权,请联系 yunjia_community@tencent.com 删除。

原始发表时间:2019-04-29

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

发表于

我来说两句

0 条评论
登录 后参与评论

相关文章

来自专栏完美Excel

Excel应用实践03:使用Excel进行个人计划执行记录与统计分析

一转眼,2019年已至4月,自从年初立下flag后,便努力朝着实现它的方向奔跑。有些执行得很好,比如每天更新完美Excel微信公众号,坚持每天学习,而有些则还没...

5620
来自专栏完美Excel

Excel VBA解读(134): 使用Excel函数提高自定义函数的效率

在上篇文章中,我们展示了自定义函数有效的方式是通过将单元格区域读取到Variant型数组来传递单元格区域数据。本文将介绍在自定义函数中最有效的方式是使用Exce...

14830
来自专栏完美Excel

VBA实用小程序50: 在指定的单元格中插入指定的形状

下面的自定义函数使用Shapes集合对象的AddShape方法及其参数,可以在指定的单元格中插入指定的形状。

15960
来自专栏FreeBuf

Matlab加上VBA编程,表格就能画画了

之前学习Matlab是为了参加一个数学建模的比赛,但是在慢慢的学习当中发现了matlab这款软件是真的有趣,真的非常有用,大家没事也可以去学习一下使用matla...

11010
来自专栏完美Excel

Excel应用实践04:分页单独打印Excel表中的数据

在实际工作中,我们经常会遇到想将工作表中的数据(如下图1所示的“数据”工作表)导入到固定的表格(如下图2所示)中并打印。

6710
来自专栏完美Excel

Excel VBA解读(135): 影响工作表公式中运用自定义函数效率的Bug及解决方法

在前面的两篇文章中,我们通过简单地修改VBA代码来使自定义函数运行得更快。本文将聚焦于Excel中会影响到自定义函数的Bug,并探讨如何避免它们。

14420
来自专栏完美Excel

Excel应用实践06:进行多条件统计

这是在知乎上看到的一个问题,我试着用VBA来解决。欢迎大家就自已使用Excel中遇到的问题或想要的解决方案提问,我将尽力解答。

8920
来自专栏完美Excel

Excel VBA解读(137): 让使用用户定义函数的数组公式更快

Excel数组公式能够做很多令人惊讶的事情。除了在输入完后要按Ctrl+Shift+Enter组合键外,与普通公式一样。本文主要研究使用用户定义函数的数组公式。

12920
来自专栏完美Excel

Excel VBA解读(143): 在自定义函数中使用整列引用时,如何更有效率?

Excel用户经常发现在公式中使用整列的引用很方便,这样可避免每次添加新数据时都必须调整公式。因此,当编写用户自定义函数时,可能会使用:

15320
来自专栏完美Excel

Excel VBA解读(138): 自定义函数时使用字节数组实现更快的字符串处理

如果有很多行,要查找每行字符串第一个大写字母的位置,则使用数组公式会花费不少时间。

10620

扫码关注云+社区

领取腾讯云代金券

年度创作总结 领取年终奖励