代码如下:Function IsValidUrl(str) Dim regEx Set regEx = New RegExp regEx.Pattern = "http(s)?://([w-]+.)+[w-]+(/[w-./?%&=]*)?" IsValidUrl = regEx.Test(str) End Function