在Excel中，如何将所选内容的html表示形式存储到变量中？

Sub SaveHTMLToVariable()
    Dim rng As Range
    Dim html As String
    
    ' 选择要保存为HTML的内容
    Set rng = Selection
    
    ' 将内容保存为HTML
    rng.Copy
    html = rng.HTML
    
    ' 将HTML内容存储到变量中
    Dim myVariable As String
    myVariable = html
    
    ' 在变量中显示HTML内容
    MsgBox myVariable
End Sub