Is this possible?

[Diabloz]

Hi, my mom is a translator and she currently has a huge job involving
Excel that I think could be more automated.

In the Excel file, there is a database of over 9000 addresses in column
all in Japanese. The task entails that she manually copy each address
and paste it in a Japanese to English translator located at
http://honyakuinfoseek.infoseek.co.jp/amitext/indexUTF8.jsp

Then she has to copy the translated English address and paste it back
into Excel to replace the Japanese address. I believe that this task is
very menial and could somehow be automated but I don't know how to go
about doing it and the deadline is on Tuesday.


Any help would be appreciated, I've helped her manually input 600
addresses but that took me several hours to do. I am 17 years old and I
think it'd make a good mother's day for me to help her out since this is
so stressful and menial.

 

[Tim Williams]

No idea how to test with actual Japanese, but this might get you started....

Tim

'#####################################
Option Explicit

Sub Tester()
MsgBox Translate("some text here")
MsgBox Translate("some other text here")
End Sub

Function Translate(sText As String)

Dim ie As Object


Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
ie.Navigate2 "http://honyakuinfoseek.infoseek.co.jp/amitext/indexUTF8.jsp"

Do While ie.ReadyState <> 4
DoEvents
Loop

With ie.document.forms("translateForm")
.elements("sourceText").Value = sText
.elements("translate").Click
End With

Do While ie.ReadyState <> 4
DoEvents
Loop

Translate = ie.document.forms("translateForm").elements("translatedText").Value
ie.Quit

End Function
'########################################################

 

[Diabloz]

Hmmm... there seems to be an error when I run that macro, here's the
excel document with the macro in place:
http://download.yousendit.com/A8C7C32A71D51F0D


BTW, thanks for taking the time to reply.

 

[Tim Williams]

There's an error in your third to last line. The name of the translated text control should have no space in it.