带有标签的 HTML 文本，用于 Excel 单元格中的格式化文本，带有多行按钮

Question

我正在努力在 excel 中预览 html 代码，这个参考很好

回复：HTML Text with tags to formatted text in an Excel cell

但是，我现在正在尝试为每一行构建一个按钮（有点像邮件合并），所以目的是当我根据哪一行单击按钮时，预览会显示该行的 html 代码.

例如，如果我点击第 5 行 (A5)，我将看到第 5 行 (A5) 的 html 代码。

我使用的 VBA 代码是：

Sub HTMLPreview()
    Dim Ie As Object, RowNumber As Integer
    
    Set Ie = CreateObject("InternetExplorer.Application")
    
    With Ie
        .Visible = True
        
        .Navigate "about:blank"
        
        .document.body.InnerHTML = Sheets("Sheet1").Range("A1").Value
        
        '.document.body.createtextrange.execCommand "Copy"
        'ActiveSheet.Paste Destination:=Sheets("Sheet1").Range("A1")
        
        '.Quit
    End With
End Sub

有人可以帮忙吗？

截图供参考。

enter image description here

提前谢谢大家

Answer 1

试试这个 - 它不会为每次按钮单击打开一个新窗口，而是尝试重新使用以前打开的 IE。

将所有按钮分配给ShowHTML

Sub ShowHTML()
    Dim Ie As Object, html
    
    Set Ie = GetIE("about:blank") 'try to get already-open window
    If Ie Is Nothing Then
        Set Ie = CreateObject("InternetExplorer.Application") 'open a new IE
        Ie.Visible = True
        Ie.Navigate "about:blank"
    End If
    
    'Application.Caller is the name os the clicked-on button
    html = ActiveSheet.Shapes(Application.Caller).TopLeftCell.EntireRow.Cells(1).Value
    
    Ie.document.body.InnerHTML = html
End Sub

'Find an open IE window which has a matching URL
Function GetIE(sLocation As String) As Object
    Dim o As Object, sURL As String, retVal As Object
    For Each o In CreateObject("Shell.Application").Windows
        sURL = ""
        sURL = o.LocationURL
        If sURL Like sLocation & "*" Then
            Set retVal = o
            'Exit For
        End If
    Next o
    Set GetIE = retVal
End Function