エクセルＶＢＡでテキストの漢字の読みを入手するには？

質問

テキストファイルを読み込むエクセルＶＢＡを作りました。
テキストデータ内の漢字をカタカナに変換したいのですが
どのようなＶＢＡにしたら良いのでしょうか？
セルに入力された漢字の読みを入手する方法は分かっていますが、
テキストの漢字から入手する方法が分かりません。
よろしくお願いもうしあげます。

回答No.3

zap35

＃０１です
＞漢字から自動的にカナに変換したいのです。
ならばGetPhonetic関数で取得したよみがなを、どこかのセルに書き込めば良いだけではありませんか？　＃０２の回答にも類似サンプルは書きましたよ(^^;

テキストを読み込むVBAがお書きになれるレベルの方のようですから、どこが分からないのでしょうね？　補足回答が全く補足になっていません

例えばA列にテキストを読み込んだ文字列があるとき、B列にふりがなを表示させるならこんなマクロでもできます。シートの構成が分かりませんので後はご自身で工夫してください。

Sub Macro1()
Dim r As Range
　For Each r In Range(Range("A1"), Range("A65536").End(xlUp))
　　r.Offset(0, 1).Value = Application.GetPhonetic(r.Value)
　Next r
End Sub

お礼

回答ありがとうございます。
どうも私が勘違いしていたようです。
セルのよみがな取得はタイプ入力したものだけができるものと思い込んでいました。
テキスト入力したものをセルに書き込んで、Application.GetPhoneticで入手できるんですね。
理解不足でご迷惑をおかけしました。