エクセルのマクロのTreeViewについて

Question

前提・実現したいこと

閲覧いただきありがとうございます。
今回ご質問させていただくのは、エクセルのマクロに関してです。

現在TreeViewを使用し（DBからRecordsetを使用してデータを取得）、
ツリービューに反映まではできているのですが、
ツリービューのノードを選択し、反映ボタンを押すと
エクセルのA1にノードのtextを
エクセルのA2にノードのkeyを
出力させたいです。

反映ボタンのクリック時のソースです。

lstTestはツリービューのオブジェクト名です。

Private Sub btnTest_Click()
'Private Sub btnCheckSelectedNode_Click(sender As System.Object, e As System.EventArgs) Handles btnCheckSelectedNode.Click
 '↑本来はこちらを使用したいが、handlesでコンパイルエラーとなります。

    Dim strSelectedNode As String
    
    'ノードが選択されていない場合は、処理を中止します。
    If Me.lstTest.SelectedNode Is Nothing Then Exit Sub

    '選択されているノードを取得するための定義をします。
    Dim SelectedNode As New TreeNode

    '選択されているノードを取得します。
    SelectedNode = Me.TreeView.SelectedNode

　　'セルに反映
　　Cells(1,1).Value = SelectedNode
    Cells(2,1).Value = SelectedKey ←キーを取得できたら


End Sub

上記のような形でエクセルのセルに反映させたいです。

ご教示お願いいたします。

補足情報（FW/ツールのバージョンなど）

EXCEL2013

追加

下記のコードだと.SelectedNodeで"メソッドまたはメンバーが見つかりません"とエラーがでてしまいます。
ツリービューにかかわるメソッドが使用できないのはどこかで設定する必要があるのでしょうか。

Private Sub btnTest_Click()
    '選択されているノードを取得します。
    Dim strSelectedNode As String
    strSelectedNode = lstTest.SelectedNode.Text
    MsgBox strSelectedNode
End Sub

Answer 1

下記のコードで表示できました。

Private Sub CommandButton1_Click()
    With TreeView1.SelectedItem
        Cells(1, 1).Value = .Text
        Cells(2, 1).Value = .Key
    End With
End Sub

コマンドボタン名、ツリービュー名はサンプル作成時のものですので、そちらのものに変更してください。

Comments

[khr0404]

hatena19様

回答ありがとうございます。
無事解決いたしました。
ありがとうございました。