Excel单元格html粗体标签到粗体字体答案

【问题标题】：Excel cell html bold tags to bold fontExcel单元格html粗体标签到粗体字体
【发布时间】：2017-01-16 18:04:27
【问题描述】：

我需要在 Excel 单元格字符串中替换所有带有粗体字体的 html 粗体标记子字符串并删除标签。我想我需要以某种方式遍历字符串，同时删除标签并设置如下字体：

xlWorksheet.Cells(1, 2).characters(a, b).font.bold = True

这应该在 Windows 窗体、vb.net 或 c# 中完成，而不是在 VBA 中完成。我知道有一种使用 Internet Explorer 的方法，但我宁愿不使用它。有线索吗？

【问题讨论】：

标签： excel vb.net

【解决方案1】：

您可以通过多种方式完成您想做的事情。这是一个很好的示例，说明如何完成您想做的事情。

http://vb.net-informations.com/excel-2007/vb.net_excel_update_data_oledb.htm

Imports System.Data
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, _
            ByVal e As System.EventArgs) Handles Button1.Click
    Try
        Dim MyConnection As System.Data.OleDb.OleDbConnection
        Dim myCommand As New System.Data.OleDb.OleDbCommand
        Dim sql As String

        MyConnection = New System.Data.OleDb.OleDbConnection _
        ("provider=Microsoft.Jet.OLEDB.4.0; Data Source=" + _
        "'c:\testfile.xls';Extended Properties=Excel 8.0;")

        MyConnection.Open()
        myCommand.Connection = MyConnection
        ' This would be where you would find the HTMl or strings that you are trying to change. 
        sql = "Update [Sheet1$] set name = 'New Name' where id=1"


        myCommand.CommandText = sql
        myCommand.ExecuteNonQuery()
        MyConnection.Close()
    Catch ex As Exception
        MsgBox(ex.ToString)
    End Try
    MsgBox("Updated ")
End Sub
End Class

【讨论】：

如何在 t-sql 中设置文本，使其在 Excel 中变为粗体？

【解决方案2】：

好的。自己做的。这仅适用于粗体标签。

xlWs.Cells(1, 2).value = StripTags("this <b>should</b> be <b>bold</b>")
Dim toBold As String = "this <b>should</b> be <b>bold</b>"
Dim i As Integer = 0
Dim loopcount As Integer = 0
While i > -1
    Dim startTag As Integer = toBold.IndexOf("<b>", i)
    If startTag = -1 Then Exit While
    Dim endTag As Integer = toBold.IndexOf("</b>", i)
    toBold.Remove(startTag, 3)
    toBold.Remove(endTag, 4)
    xlWs.Cells(1, 2).characters(startTag + 1 - (loopcount * 7), endTag - startTag - 3).font.bold = True
    loopcount += 1
    i = endTag + 1
End While


Function StripTags(ByVal html As String) As String
        Return Regex.Replace(html, "<.*?>", "")
End Function

【讨论】：