EXCELのクエリを使って、漢字のよみを取り出したいのですが、

PHONETIC 関数を使うのがお手軽だと思います。


＃ クエリじゃないですけれど。

Function 漢字の読みを調べる(元ネタ)

    Set xhr = CreateObject("MSXML2.ServerXMLHTTP")
    Set doc = CreateObject("htmlfile")

    URL = "http://dictionary.goo.ne.jp/srch/all/" & 元ネタ & "/m0u/"

    xhr.Open "GET", URL, False
    xhr.send ""
    If xhr.StatusText = "OK" Then
    
        doc.write xhr.responseText
        Set nodeList = doc.getElementsByTagName("DT")
        読み = "×"
        For i = 0 To nodeList.Length - 1
            If nodeList(i).className = "title search-ttl-a" Then
                s = nodeList(i).innerHTML
                iPos = InStr(s, "【")
                If iPos <> 0 Then
                    読み = Left(s, iPos - 1)
                End If
                Exit For
            End If
        Next
        漢字の読みを調べる = 読み

    Else
        漢字の読みを調べる = "×"
    End If

    Set doc = Nothing
    Set xhr = Nothing

End Function

'
'   ここから後は、テスト用
'
Sub テストサブ(kanji)
    yomi = 漢字の読みを調べる(kanji)
    Debug.Print yomi
End Sub

Sub テスト()
    Call テストサブ("石器")
    Call テストサブ("磨製石器")
    Call テストサブ("那智黒")
    Call テストサブ("那智赤")
End Sub