ExcelVBAで英語選手名を日本語名に

質問

英語のサッカー選手名を自動で順次、日本語にしたいです。

A　　　　　　B
Joe Hart　　　(ここに検索結果を表示したい　例：ジョー・ハート)
Harry Kane
Kaoru Mitoma

日本語名は、Google検索結果で「ナレッジパネル」に表示される太文字の名前を取得。
A1を検索したら→B1へ取得結果を表示
A2を検索・・・と継続
ナレッジパネルが存在しない場合は空白で次の項目へと移り、A列の英語名がなくなった時点で終了・・・とさせたいです。

以前これができるコードを公開されてる方がいたのですが、現在ブログが消えてしまい、今になって非常に困ってしまいました。
自分でも試してはみているのですが…難しいです。
ご教授いただけると嬉しいです。よろしくお願いします。

回答No.1

SI299792 · ベストアンサー

探したら、このような記事が見つかりました。但し、バージョンによっては動かない可能性があります。
https://aprico-media.com/posts/9213#:~:text=%E3%82%A6%E3%82%A3%E3%83%B3%E3%83%89%E3%82%A6%E4%B8%8A%E9%83%A8%E3%81%AE%E3%80%8C%E6%A0%A1%E9%96%B2%E3%80%8D%E3%82%BF%E3%83%96%E3%82%92%E3%82%AF%E3%83%AA%E3%83%83%E3%82%AF%E3%81%97%E3%81%A6%E3%83%AA%E3%83%9C%E3%83%B3%E3%83%A1%E3%83%8B%E3%83%A5%E3%83%BC%E3%82%92%E9%96%8B%E3%81%8D%E3%80%81%E3%80%8C%E8%A8%80%E8%AA%9E%E3%80%8D%E9%A0%85%E7%9B%AE%E3%81%AE%E3%80%8C%E7%BF%BB%E8%A8%B3%E3%80%8D%E3%83%9C%E3%82%BF%E3%83%B3%E3%82%92%E3%82%AF%E3%83%AA%E3%83%83%E3%82%AF%E3%81%97%E3%81%BE%E3%81%97%E3%82%87%E3%81%86%E3%80%82,%E3%82%A6%E3%82%A3%E3%83%B3%E3%83%89%E3%82%A6%E3%81%AE%E5%8F%B3%E5%81%B4%E3%81%AB%E3%80%8C%E7%BF%BB%E8%A8%B3%E3%83%84%E3%83%BC%E3%83%AB%E3%80%8D%E3%81%8C%E8%A1%A8%E7%A4%BA%E3%81%95%E3%82%8C%E3%82%8B%E3%81%AE%E3%81%A7%E3%80%81%E7%BF%BB%E8%A8%B3%E3%81%97%E3%81%9F%E3%81%84%E6%96%87%E7%AB%A0%E3%81%AE%E3%81%82%E3%82%8B%E3%82%BB%E3%83%AB%E3%82%92%E9%81%B8%E6%8A%9E%E3%81%97%E3%81%BE%E3%81%97%E3%82%87%E3%81%86%E3%80%82
私の、Excel2013 でやったら
　　Dim oHtml As New MSHTML.HTMLDocument
でエラーになりました。

ブログが消されたのは、動かなくなったからという可能性があります。もし、IEを使ったものなら、現在使えません（現在ほとんどのサイトがIE非対応で、スクレイピーができなくなって困っています）

グーグルスプレッドシートでよければ、
B1: =googletranslate(A1,"en","ja")
下へコピペ、でできます。

お礼

回答いただきまして、大変ありがとうございます。
スプレッドシートや一般的な翻訳機能を利用しますと、「その名前が著名サッカー選手である」ことを踏まえていない一般的な訳となるため、発音的に別人のようになってしまう場合が多々あり、それもあって検索結果から抽出したいという意図でした。

質問と同時に試行錯誤を重ねた結果、先ほどChat GPTへと辿り着きました。
AIにより提示されるコードは手直しこそ必要ですが、概ね求めていた成果を得ることができそうです。
この度はありがとうございました。