アクセスｖｂａでフリガナを取得したいのですが

質問

Sub tset()
MsgBox Application.GetPhonetic("東京")
End Sub
だとエラーになってしまいます。

エクセルでは問題なく使えます。

どうやら、
GetPhoneticは、エクセルのみで使用できるメソッドのようです。

なのでググってみたら
https://foolexp.wordpress.com/2012/07/14/p2wpsu-4l/
がヒットしたのですが、
作者には申し訳ないのですが、
もうちょっとスマートなコードはないのでしょうか？

エクセルオブジェクトを作ってやる方法があると思うのですが
コードがわかりません。

回答No.3

imogasi · ベストアンサー

＞作者には申し訳ないのですが、もうちょっとスマートなコードはないのでしょうか？
#２のご回答と同じところを見ていると思うが
http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1291520912
に同じような質問があるじゃないですか。
ーーー
検索のキーワードを、たとえば
「access 　ＶＢＡ　エクセル関数　GetPhonetic」でやってみましたか？
いろい検索キーワードを工夫して照会しましたか。
この「コツ」と「いろいろやってみる」（多少数多くやってみる）ことこそ、ここに質問するより、大切な事であると、現時点（２０１５年、ＷＥＢ記事が充実してきている。ほとんどの質問がすでに出ていると思え）思う。
ちなみにＶＢＳｃｒｉｐｔにはこの関数は無いようだ。
ーー
エクセルに関しては
http://www.relief.jp/itnote/archives/excel-vba-get-phonetic-other-cell.php
の記事がよい。

お礼

ご回答ありがとうございました。

回答No.2

dogs_cats

フィールドで使用する事を前提にされるのでしょうから、下記サイトのようにユーザー関数を作成する方法があるようです。

Function usGetPhonetic(moji As String) As String
Dim ExlObj As Object
Set ExlObj = CreateObject("Excel.Application")
usGetPhonetic = ExlObj.GetPhonetic(moji)
End Function

(3) クエリのフィールド欄に、
　ふりがな:usGetPhonetic([氏名])

http://www.accessclub.jp/bbs3/0190/superbeg62107.html

お礼

ご回答ありがとうございました。

回答No.1

piroin654

じか打ちですが、

dim obj as object
set obj = createobject("excel.application")
msgbox obj.getphonetic("東京")

のような感じですか。

お礼

ご回答ありがとうございました。