Sub SendByPOST()
  Query = ""
  For RowCount =  1  To Selection.Rows.Count
    If RowCount >  1  Then
      Query = Query + Chr( 13 )
    End If
    For ColumnCount =  1  To Selection.Columns.Count
    If ColumnCount >  1  Then
      Query = Query + Chr( 9 )
    End If
      Query = Query + Selection.Cells(RowCount, ColumnCount).Text
    Next ColumnCount
  Next RowCount
    
  Set xmlReq = CreateObject("Microsoft.XMLHTTP")
  xmlReq.Open "POST", "http://antares/insql.php", False
  xmlReq.setRequestHeader "Content-Type", "text/xml"
  xmlReq.setRequestHeader "Connection", "Close"
  xmlReq.setRequestHeader "Content-length", Len(Query)
  xmlReq.send (Query)
  If (xmlReq.Status >=  200  And xmlReq.Status <  300 ) Then
    MsgBox "отправленно"
  Else
    MsgBox "Filed: " + CStr(xmlReq.Status)
  End If
End Sub