html 删除第一个字符串,VBA从字符串中删除HTML标记仅删除第一个字符

的VBA替换功能不能处理通配符，但Range.Replace方法可以。如果将Response变量写入单元格中，请运行Range.Replace方法，然后将单元格值读回到消息变量中，它将完成您正在尝试执行的操作。

示例代码：

Sub SendHTTP()

Dim myRequest As Object

Set myRequest = CreateObject("WinHttp.WinHttpRequest.5.1")

myRequest.Open "Get", _

"http://tyda.se/search/test?lang[0]=en&lang[1]=sv"

'Send

myRequest.Send

Dim Response, message As String

Response = myRequest.ResponseText

'Write Response to cell

With ThisWorkbook.Sheets(1).Range("A1") 'Change this to a cell that is available for your code to use.

.Value2 = Response

'Strip HTML tags

.Replace What:="", Replacement:=" ", LookAt:=xlPart

'Read value back into variable

message = .Value2

'Clear cell

.ClearContents

End With

'Display message

MsgBox message

End Sub