catsの出来ることからこつこつと…(漢字からフリガナを変換する)

漢字の文字はあるけども、フリカナをイチイチ入力するのってめんどいですよね。
そんな時、エクセルオブジェクトを使いフリガナを抽出するサンプルを下記に書いておきます。

Dim CN As ADODB.Connection
Dim RS As ADODB.Recordset
Dim SQL As String
Dim TMP As String
Dim EXL_OBJ As Object

Set CN = CurrentProject.Connection
Set RS = New ADODB.Recordset
Set EXL_OBJ = CreateObject("Excel.Application")
SQL = "SELECT * FROM [テーブル名]"
RS.Open SQL, CN
Do Until RS.EOF
    
        TMP = EXL_OBJ.GetPhonetic(RS!漢字)
   
        SQL = "UPDATE [テーブル名] SET フリガナ='" & TMP & "' WHERE 主キー='" & RS!主キー & "'"
        CN.Execute SQL
    RSA.MoveNext
Loop

 

[1回]