VBA使用网页判断版本

定义自动检测版本文件

网页内容直接写版本号就行了， 不需要其它HTTP代码

Sub ddd()
  Dim http, Pols, Arr, i, u
  dqbb = "配货单发出工具：1.1"
  Set http = CreateObject("Microsoft.XMLHTTP")
 
 u = "http://192.168.1.252/www/excel.html"
    http.Open "POST", u, False
    http.send ""


    v = http.responseText
    MsgBox v
    
 'a = InStr(0, v, dqbb, vbTextCompare)
 If IsError(Application.Find(dqbb, v, 1)) Then
 
 MsgBox "版本错误"


  
   Else
    MsgBox "正确"
   End If




  Set http = Nothing


End Sub
结束