trickard
04-09-2015, 06:31 AM
1.Today something happened and not sure why
I have this code a simple one that was provided last year and has worked fine to translate cells from English to Spanish
Public Function getGoogleTranslation(strSource As String, strSourceLang As String, strDestLang As String) As String 'Created by ShredDude
'06 September 2010
Dim strURL As String, x As String
'English = "en"
'Spanish = "es"
strURL = "https: translate dot google dot com/translate_a/t?client=t&text=" & _
Replace(strSource, " ", "%20") & _
"&hl=en&sl=" & strSourceLang & _
"&tl=" & strDestLang & "&multires=1&pc=0&rom=1&sc=1"
With CreateObject("msxml2.xmlhttp")
.Open "get", strURL, False
.send
x = .responseText
End With
getGoogleTranslation = Replace(Replace(Split(x, """,""")(0), "[", ""), """", "")
End Function
The issue I am having now is that today when I opened the program all I see is =value signs, it appears that the code all of a sudden isn't working.....all the workbooks are acting the same
I tried simply putting a simply sentence in a new workbook and that doesn't work either.....would you have any idea?
it worked fine since I got the coding but not now .....any help please would be appreciated
Tony
I have this code a simple one that was provided last year and has worked fine to translate cells from English to Spanish
Public Function getGoogleTranslation(strSource As String, strSourceLang As String, strDestLang As String) As String 'Created by ShredDude
'06 September 2010
Dim strURL As String, x As String
'English = "en"
'Spanish = "es"
strURL = "https: translate dot google dot com/translate_a/t?client=t&text=" & _
Replace(strSource, " ", "%20") & _
"&hl=en&sl=" & strSourceLang & _
"&tl=" & strDestLang & "&multires=1&pc=0&rom=1&sc=1"
With CreateObject("msxml2.xmlhttp")
.Open "get", strURL, False
.send
x = .responseText
End With
getGoogleTranslation = Replace(Replace(Split(x, """,""")(0), "[", ""), """", "")
End Function
The issue I am having now is that today when I opened the program all I see is =value signs, it appears that the code all of a sudden isn't working.....all the workbooks are acting the same
I tried simply putting a simply sentence in a new workbook and that doesn't work either.....would you have any idea?
it worked fine since I got the coding but not now .....any help please would be appreciated
Tony