Excelで漢字にカナを振ってみる。

Excelのマクロで次のような関数を実装します。

 
Public Function GetPhonetic(ByVal garStr As String) As String
    GetPhonetic = CreateObject("Excel.Application").GetPhonetic(garStr)
End Function