IEを使い 日本語を韓国語へ変換するサイトへデータをセット
objIE.Document.all("origin_doc").Value = Cells(yCNT, 1) 'A列の値を渡す
objIE.Document.all("selector_1").Checked = True
objIE.Document.all("submit").Click '翻訳ボタンを押す
質問内容とソースは http://ken3-info.blog.ocn.ne.jp/objie/2009/09/qa0914_document.html を見て笑ってください。
マウスカーソルが無いと、やっぱり 違和感 が...あるよね。
ken3video 1 year ago