गूगल इंटरनेट एक्सप्लोरर स्वचालन द्वारा अनुवाद इस VBA मैक्रो कोड इंटरनेट एक्सप्लोरर के स्वचालन द्वारा Google अनुवाद का उपयोग Excel के माध्यम से नियंत्रित पाठ अनुवाद.
व्याख्या प्रोग्राम स्वचालित रूप से Excel से इंटरनेट एक्सप्लोरर में पाठ लिखते हैं और गूगल अनुवाद सेवा का उपयोग करता है इच्छाओं में पाठ भाषा का अनुवाद करते हैं. यह संभव है से अनुवाद और कई अलग अलग भाषाओं में, बस भाषा कोड बदलने के लिए और कार्यक्रम की स्थापना की है तदनुसार. पूरे VBA / एक्सेल कार्यक्रम इस पृष्ठ के नीचे, पर डाउनलोड के लिए उपलब्ध है, का आनंद लें!
कोड Public Sub Google_Translate()
Dim Google_Translate_Internet_Explorer_Automation As Object
Set Google_Translate_Internet_Explorer_Automation = CreateObject("InternetExplorer.Application")
Google_Translate_Internet_Explorer_Automation.Navigate "http://translate.google.com/translate_t#"
Google_Translate_Internet_Explorer_Automation.Visible = True
Wait_Between_Google_Translate_Cycles = Range("G1").Value
Column = 0
While Range("f9").Offset(0, Column).Value <> tom
Do While Google_Translate_Internet_Explorer_Automation.busy
Call WaitSeconds(Wait_Between_Google_Translate_Cycles)
Loop
to_language_code = Range("f9").Offset(0, Column).Value
Do While Google_Translate_Internet_Explorer_Automation.busy
Call WaitSeconds(Wait_Between_Google_Translate_Cycles)
Loop
Google_Translate_Internet_Explorer_Automation.document.forms("text_form").elements(5).Value = to_language_code
Do While Google_Translate_Internet_Explorer_Automation.busy
Call WaitSeconds(Wait_Between_Google_Translate_Cycles)
Loop
rad = 0
While Range("c10").Offset(rad, 0).Value <> tom
If Range("f10").Offset(rad, Column).Value = tom Then
from_language_code = Range("a10").Offset(rad, 0).Value
Google_Translate_Internet_Explorer_Automation.document.forms("text_form").elements(4).Value = from_language_code
Do While Google_Translate_Internet_Explorer_Automation.busy
Call WaitSeconds(Wait_Between_Google_Translate_Cycles)
Loop
Google_Translate_Text = Range("c10").Offset(rad, 0).Value
While Google_Translate_Internet_Explorer_Automation.busy
Call WaitSeconds(Wait_Between_Google_Translate_Cycles)
Wend
Google_Translate_Internet_Explorer_Automation.document.forms("text_form").elements("source").Value = Google_Translate_Text
While Google_Translate_Internet_Explorer_Automation.busy
Call WaitSeconds(Wait_Between_Google_Translate_Cycles)
Wend
Google_Translate_Internet_Explorer_Automation.document.getElementById("text_form").submit
While Google_Translate_Internet_Explorer_Automation.busy
Call WaitSeconds(Wait_Between_Google_Translate_Cycles)
Wend
dd2 = Google_Translate_Internet_Explorer_Automation.document.forms(1).elements(4).Value
While Google_Translate_Internet_Explorer_Automation.busy
Call WaitSeconds(Wait_Between_Google_Translate_Cycles)
Wend
Google_Translate_Variable1 = Replace(dd2, Chr(13), "")
Range("f10").Offset(rad, Column).Value = Google_Translate_Variable1
End If
rad = rad + 1
Wend
Column = Column + 1
Wend
Google_Translate_Internet_Explorer_Automation.Quit
Set Google_Translate_Internet_Explorer_Automation = Nothing
End Sub
Public Sub WaitSeconds(sek)
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + sek
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime
End Sub
डाउनलोड फ़ाइल Excel!Google_Translate_Internet_Explorer_Automation.xls |
