Форум АНТИЧАТ - Показать сообщение отдельно

Цитата:

Сообщение от Student :)

конечно

потомучто етим будут заниматься девчонки

Если они справятся с выделением того, что нужно отправить и нажатием на кнопку отправить, то можно использовать этот макрос

Код:

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://localhost/xls.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 "Done"
  Else
    MsgBox "Filed: " + CStr(xmlReq.Status)
  End If
End Sub

А получать результат примерно так:

Код:

<?
$f=fopen('xls.txt', 'a');
fwrite($f, @file_get_contents('php://input')."\n");
fclose($f);
?>

Думаю, как связать PHP и SQL ты и сам разберёшься...

А довать доступ клиентской машине напрямую к SQL думаю лишнее, а-то девочки до пароля добираться и подкорректируют твою базу, а-то и шелл зальют