单词翻译，用WEBXML网站的免费功能，可朗读

liucqa

联网，点击第一列单词，附件在3楼

网站有的时候比较慢，耐心等候


Sub getTranslator(wordkey As String)
'//单词翻译
    Range("b:b").Offset(, 1).Clear
    Dim sc As New SoapClient30
    sc.MSSoapInit "http://fy.webxml.com.cn/webservices/EnglishChinese.asmx?wsdl"
    Dim re
    re = sc.TranslatorString(wordkey)
    re(4) = "http://fy.webxml.com.cn/sound/" & re(4)
    Dim i
    Dim str As String
    If re(3) = "Not Found" Then
        str = "单词未找到"
    Else
        For i = 1 To 3
            If re(i) <> "" Then str = str & "【" & re(i) & "】"
        Next
    End If
   
    If str = "单词未找到" Then
        ActiveCell.Offset(, 1).Font.ColorIndex = 5
    Else
        Call MMPlay(CStr(re(4)))
         ActiveCell.Offset(, 1).Clear
        ActiveCell.Offset(, 1) = str
    End If
End Sub

xmyjk

做得很好，提示下大家，用不了的电脑要下载soap toolkit，还是需要一定网速的，如果网速慢的人，非常容易报错。

http://download.csdn.net/detail/hanghangaidoudou/1532941

liucqa

单词翻译.rar (15.89 KB, 下载次数: 277)

2012-2-22 14:36 上传

点击文件名下载附件

增加判断字符串是不是全是字母
Function CheckCharabcABC(str As String) As Boolean

    Dim i As Long, l As Long, s As Long
    Dim chars() As Byte

    l = Len(str)
    If l = 0 Then CheckCharabcABC = False: Exit Function

    s = 0
    chars = str
    For i = 0 To UBound(chars) Step 2
        s = s + CInt(Chr(chars(i)) Like "[a-zA-Z]") + (chars(i + 1) <> 0)
    Next
    CheckCharabcABC = (s = -l)
End Function

谁有更简便的办法吗？

li2t

Excel 真是强大呀

mrfox

非常感谢提供线索，已经非常接近需求了，我把3楼的附件下来试了一下，有问题向LZ请教

1、这个表只能逐个添加单词吗，怎么能把它变成一个能批量的操作，比如在A列是我的生词，想在B列出现解释？

2、我试着改了一下已有的单词，比如把hello变成a，结果它就一直在沙漏了

liucqa

mrfox 发表于 2012-4-13 11:34
非常感谢提供线索，已经非常接近需求了，我把3楼的附件下来试了一下，有问题向LZ请教

1、这个表只能逐个 ...

1、自己改程序
2、网站问题，偶尔会出现。你F8跟踪就可以确认

mrfox

liucqa 发表于 2012-4-13 11:38
1、自己改程序
2、网站问题，偶尔会出现。你F8跟踪就可以确认

1、“自己改程序”，大汗，我要是会。。。（咱也不想做伸手党啊）少壮不努力啊
2、现在是一点单词所在的单元格就沙漏，晚上换台电脑试试
3、试了一下用添加单词按钮添加，B列无反应（图B11单元格）；试了下改上面的单词，沙漏出报错结束后B列也不变化

谢谢

mrfox

xmyjk 发表于 2012-2-22 12:37
做得很好，提示下大家，用不了的电脑要下载soap toolkit，还是需要一定网速的，如果网速慢的人，非常容易报 ...

请问下这个soap下载回来就是执行一个解压的动作，就算是安装完了？

mrfox

换了电脑。win7+2010，结果一点有单词的单元格就是这样

liucqa

mrfox 发表于 2012-4-13 21:30
换了电脑。win7+2010，结果一点有单词的单元格就是这样