如何用vb修改excel表中的内容

Question

<A href="javascript:SMS('1')">张三</A>
<A href="javascript:SMS('2')">张三</A>
<A href="javascript:SMS('3')">张三</A>有一列中是这种格式的内容，现在想把代码<a ></a>去掉，只保留汉字，代码如何写

Answer 1

这是html代码，要做的比较完整的话，可以引用HTML目标库（Microsoft HTML Object Library）Function extractText(p)
    Dim doc As HTMLDocument
    Set doc = New HTMLDocument
    doc.body.innerHTML = p
    extractText = doc.body.innerText
    Set doc = Nothing
End Function输入：<A href="javascript:SMS('1')"><p>张三<p>sfds</A>
输出："张三sfds"

Answer 2

    Dim xlapp As Excel.Application
    Dim xlbook As Excel.Workbook
    Dim xlsheet As Excel.Worksheet
    Dim i, r As Integer
    Set xlapp = CreateObject("excel.application")
    Set xlbook = xlapp.Workbooks.Open("c:
.xls")
    Set xlsheet = xlbook.Worksheets("sheet1")
    r = xls.ActiveSheet.UsedRange.Rows.Count
    For i = 2 To r
        xlsheet.Cells(i, 3) = "1020"
    Next i
    xlbook.Save
    xlbook.Close
    Set xlapp = Nothing
    MsgBox ("完成")
参考这个