エクセルの機能を利用してフリガナを取得 - VBレスキュー(花ちゃん)　Visual Basic,VS6.0,VB6.0,サンプル,Tips

Option Explicit
Private Sub Command1_Click()
　 Dim xlApp　　As Object
　 Dim myName　 As String
　 Dim furigana As String
　 Set xlApp = CreateObject("Excel.Application")　'転載禁止
　 '文字列中の空白を除去(途中に空白があると変換できない）
　 myName = Replace(StrConv(Text2.Text, vbWide), "　", "")
　 'ExcelのGetPhonetic関数を使ってふりがなを取得転載禁止
　 furigana = xlApp.GetPhonetic(myName)　'転載禁止
　 '取得したふりがなをひらがなに変換（お好みで）
　 Text1.Text = StrConv(furigana, vbHiragana)
　 'xlApp を解放
　 Set xlApp = Nothing
End Sub

取得結果

エクセルの機能を利用してフリガナを取得 (020) 動作確認： WindowsXP(SP2)　VB6.0(SP6) /　Excel 2000　Excel 2002　Excel 2007
	まず、VBからExcel及びWordを操作する時の注意事項を見て下さい Option Explicit Private Sub Command1_Click() 　 Dim xlApp　　As Object 　 Dim myName　 As String 　 Dim furigana As String 　 Set xlApp = CreateObject("Excel.Application")　'転載禁止　 '文字列中の空白を除去(途中に空白があると変換できない）　 myName = Replace(StrConv(Text2.Text, vbWide), "　", "") 　 'ExcelのGetPhonetic関数を使ってふりがなを取得転載禁止　 furigana = xlApp.GetPhonetic(myName)　'転載禁止　 '取得したふりがなをひらがなに変換（お好みで）　 Text1.Text = StrConv(furigana, vbHiragana) 　 'xlApp を解放　 Set xlApp = Nothing End Sub 取得結果
ふりがなの取得結果はIME等のバージョンによっても異なります。本格的に御使用になるなら、API を使った、No.210 のサンプルを御使用下さい。 VBからExcelの関数を使ったり、このような事もできると言う参考程度に留めておいて下さい。